Télécharger lfcdee.eso

Retour à la liste

Numérotation des lignes :

  1. C LFCDEE SOURCE PV 05/04/13 21:15:29 5073
  2. SUBROUTINE LFCDEE(NBAND,LMAX,ITAB,IRETOU,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCFXDR
  5. DIMENSION ITAB(1)
  6. IRETOU=0
  7. IF (LMAX.EQ.0) GO TO 1
  8. IF (IFORM.EQ.1)READ(NBAND,100,END=1000,ERR=1000)
  9. # (ITAB(I),I=1,LMAX)
  10. IF (IFORM.EQ.0)READ(NBAND,END=1000,ERR=1000)
  11. # (ITAB(I),I=1,LMAX)
  12. if (iform.eq.2) ios=IXDRIMAT( ixdrr, lmax, itab(1))
  13. 100 FORMAT(7I11)
  14. GO TO 1
  15. 1000 IRETOU=1
  16. 1 RETURN
  17. END
  18.  
  19.  
  20.  
  21.  

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