c c c routine for finding character lenght of string c c SUBROUTINE LENG(STRING,ILEN) CHARACTER*40 STRING DO 20 J=40,1,-1 IF(STRING(J:J).EQ.' ')GOTO 20 ILEN=J GOTO 30 20 CONTINUE 30 RETURN END