Download idslen.eso

Back to the list

   1 : C IDSLEN    SOURCE    CHAT      05/01/13    00:30:42     5004           
   2 : C
   3 :       INTEGER FUNCTION IDSLEN(CHAINE)
   4 : C     *****************************************************************
   5 : C     OBJET  : RENVOI LA LONGUEUR D'UNE CHAINE
   6 : C     *****************************************************************
   7 :       IMPLICIT INTEGER(I-N)
   8 :       CHARACTER*(*) CHAINE
   9 : C
  10 :       INTEGER I,J,LCH
  11 : C     
  12 :       LCH = LEN(CHAINE) 
  13 :       J = LCH
  14 :       DO 10 I=1,LCH
  15 :         IF( CHAINE(J:J).NE.' ' )GOTO 888
  16 :         J = J - 1
  17 :    10 CONTINUE
  18 :   888 IDSLEN = J
  19 : C
  20 :   999 END     
  21 :  
  22 :  
  23 :  

© Cast3M 2003 - All rights reserved.
Disclaimer