Télécharger lfcdir.eso

Retour à la liste

Numérotation des lignes :

  1. C LFCDIR SOURCE CHAT 05/01/13 01:16:13 5004
  2. SUBROUTINE LFCDIR(NBAND,LMAX,R,IRETOU)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. DIMENSION R(1)
  6. IRETOU=0
  7. READ(NBAND,100,END=1000,ERR=1000) (R(I),I=1,LMAX)
  8. 100 FORMAT(3E22.15)
  9. RETURN
  10. 1000 IRETOU=1
  11. RETURN
  12. END
  13.  
  14.  
  15.  

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