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. -INC CCOPTIO
  5. -INC CCFXDR
  6. CHARACTER*8 ITAB(*)
  7. IRETOU=0
  8. IF (LMAX.EQ.0) GO TO 15
  9. IF(IONIVE.LE. 2) THEN
  10. IF(IFORM.EQ.1)READ(NBAND,801,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. 801 FORMAT(16(1X,A4))
  13. ELSE
  14. IF(IFORM.EQ.1)READ(NBAND,8001,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  15. IF(IFORM.EQ.0)READ(NBAND,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  16. 8001 FORMAT(8(1X,A8))
  17. ENDIF
  18. if (iform.eq.2) ios=IXDRSTRING( ixdrr, itab(1)(1:8*lmax))
  19. 15 RETURN
  20. 10 IRETOU=1
  21. RETURN
  22. END
  23.  
  24.  
  25.  
  26.  

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