Télécharger lfanc.eso

Retour à la liste

Numérotation des lignes :

  1. C LFANC SOURCE CHAT 05/01/13 01:15:35 5004
  2. SUBROUTINE LFANC(NBAND,LMAX,LECT,IRETOU,IFORM,ITAB)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCOPTIO
  5. CHARACTER*8 ITAB(*)
  6. DIMENSION LECT(*)
  7. IRETOU=0
  8. IF (LMAX.EQ.0) GO TO 15
  9. JG=LMAX*2
  10. IF(IFORM.EQ.1)READ(NBAND,801,END=10,ERR=10)(LECT(I),I=1,JG)
  11. IF(IFORM.EQ.0)READ(NBAND,END=10,ERR=10)(LECT(I),I=1,JG)
  12. DO 36 K=1,LMAX
  13. II= 2*K-1
  14. WRITE(ITAB(K),FMT='(2A4)')LECT(II),LECT(II+1)
  15. 36 CONTINUE
  16. 801 FORMAT(16(1X,A4))
  17. 15 RETURN
  18. 10 IRETOU=1
  19. RETURN
  20. END
  21.  
  22.  

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