Esope source files

   1 : C LENCHA    SOURCE    CHAT      05/01/13    01:15:16     5004           
   2 :       SUBROUTINE LENCHA(NOM,L)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       CHARACTER*(*) NOM
   6 : 
   7 :       L1=LEN(NOM)
   8 : 
   9 :       L=L1
  10 :       DO 1 I=L1,1,-1
  11 :       IF(NOM(I:I).EQ.' ')THEN
  12 :       L=L-1
  13 :       ELSE
  14 :       GO TO 2
  15 :       ENDIF
  16 :  1    CONTINUE
  17 :       L=0
  18 :  2    CONTINUE
  19 :       RETURN
  20 :       END
  21 :