!-----  Ex7_3: Get the length of a Word   -----
      CHARACTER(LEN=50):: word
      INTEGER :: len
      DO
         PRINT *, "Input a word:"
         READ '(A50)', word
                  IF( word == "" ) EXIT
         DO len = 1, 50
            IF( word(len:len) == " ") EXIT
         END DO
         PRINT '( "Word length =", I2 )', len-1
      END DO
      END