Télécharger lfcden.eso

Retour à la liste

Numérotation des lignes :

  1. C LFCDEN SOURCE CHAT 05/01/13 01:15:42 5004
  2. SUBROUTINE LFCDEN(NBAND,LMAX,ITAB,IRETOU,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCOPTIO
  5. CHARACTER*4 ITAB(*)
  6. IRETOU=0
  7. IF (LMAX.EQ.0) GO TO 15
  8. IF(IFORM.EQ.1)READ(NBAND,8001,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  9. IF(IFORM.EQ.0)READ(NBAND,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  10. 8001 FORMAT(16(1X,A4))
  11. 15 RETURN
  12. 10 IRETOU=1
  13. RETURN
  14. END
  15.  
  16.  
  17.  
  18.  

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