Télécharger lfcdin.eso

Retour à la liste

Numérotation des lignes :

  1. C LFCDIN SOURCE PV 05/04/13 21:15:42 5073
  2. SUBROUTINE LFCDIN(NBAND,LMAX,ITAB,IRETOU,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. -INC CCFXDR
  8. CHARACTER*8 ITAB(*)
  9. IRETOU=0
  10. IF (LMAX.EQ.0) GO TO 15
  11. IF(IONIVE.LE. 2) THEN
  12. IF(IFORM.EQ.1)READ(NBAND,801,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  13. IF(IFORM.EQ.0)READ(NBAND,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  14. 801 FORMAT(16(1X,A4))
  15. ELSE
  16. IF(IFORM.EQ.1)READ(NBAND,8001,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  17. IF(IFORM.EQ.0)READ(NBAND,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  18. 8001 FORMAT(8(1X,A8))
  19. ENDIF
  20. if (iform.eq.2) ios=IXDRSTRING( ixdrr, itab(1)(1:8*lmax))
  21. 15 RETURN
  22. 10 IRETOU=1
  23. RETURN
  24. END
  25.  
  26.  
  27.  
  28.  

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