Télécharger lfcdic.eso

Retour à la liste

Numérotation des lignes :

  1. C LFCDIC SOURCE PV 05/04/13 21:15:36 5073
  2. SUBROUTINE LFCDIC (NBAND,ITAB,IRETOU,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCFXDR
  5. CHARACTER ITAB*(*)
  6. IRETOU=0
  7. LMAX=LEN(ITAB)
  8. IF (LMAX.EQ.0) GO TO 1
  9. IN=MOD(LMAX,71)
  10. NF=(LMAX+70)/71
  11. LI=1
  12. DO 2 I=1,NF
  13. LN=LI+70
  14. IF(I.EQ.NF)LN=LMAX
  15. IF (IFORM.EQ.1)READ(NBAND,100,END=1000,ERR=1000) ITAB(LI:LN)
  16. IF (IFORM.EQ.0)READ(NBAND,END=1000,ERR=1000) ITAB(LI:LN)
  17. if (iform.eq.2) ios=IXDRSTRING( ixdrr, ITAB(LI:LN))
  18. 100 FORMAT(1X,A71)
  19. LI=LN+1
  20. 2 CONTINUE
  21. GO TO 1
  22. 1000 IRETOU=1
  23. 1 RETURN
  24. END
  25.  
  26.  
  27.  
  28.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales