Télécharger lfcdim.eso

Retour à la liste

Numérotation des lignes :

  1. C LFCDIM SOURCE PV 08/01/24 21:15:12 6030
  2. SUBROUTINE LFCDIM(NBAND,LMAX,ITAB,IRETOU,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. -INC CCOPTIO
  6. -INC CCFXDR
  7. DIMENSION ITAB(1)
  8. M=LMAX
  9. IRETOU=0
  10. IF (LMAX.EQ.0) RETURN
  11. IF (IFORM.EQ.1)READ(NBAND,100,END=1000,ERR=1000)
  12. # (ITAB(I),I=1,LMAX)
  13. IF (IFORM.EQ.0)READ(NBAND,END=1000,ERR=1000) (ITAB(I),I=1,LMAX)
  14. if (iform.eq.2) ios=IXDRIMAT( ixdrr, m , itab)
  15. 100 FORMAT(16(1X,A4))
  16. RETURN
  17. 1000 IRETOU=1
  18. RETURN
  19. END
  20.  
  21.  
  22.  
  23.  
  24.  

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