INTEGER FUNCTION LENGTH1(LINE)
!
! COMPUTES THE LENGTH (NON-BLANK) OF A STRING
!
CHARACTER*(*) LINE
N=LEN(LINE)
DO I=N,1,-1
   IF (LINE(I:I).NE.' '.AND.LINE(I:I).NE.CHAR(0)) THEN
      LENGTH1=I
      GOTO 10
   ENDIF
END DO
LENGTH1=1
10 RETURN
END FUNCTION LENGTH1
