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.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. CHARACTER*4 ITAB(*)
  8. IRETOU=0
  9. IF (LMAX.EQ.0) GO TO 15
  10. IF(IFORM.EQ.1)READ(NBAND,8001,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  11. IF(IFORM.EQ.0)READ(NBAND,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  12. 8001 FORMAT(16(1X,A4))
  13. 15 RETURN
  14. 10 IRETOU=1
  15. RETURN
  16. END
  17.  
  18.  
  19.  
  20.  

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