Télécharger lfdien.eso

Retour à la liste

Numérotation des lignes :

  1. C LFDIEN SOURCE PV 05/04/13 21:15:47 5073
  2. SUBROUTINE LFDIEN(NBAND,LMAX,SEGTAB,iretou,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCOPTIO
  5. -INC CCFXDR
  6. SEGMENT SEGTAB
  7. CHARACTER*4 ITAB(NTOTO)
  8. END SEGMENT
  9. IF (LMAX.NE.0) THEN
  10. IF (IFORM.EQ.1)WRITE(NBAND,8001) (ITAB(I),I=1,LMAX)
  11. IF (IFORM.EQ.0)WRITE(NBAND) (ITAB(I),I=1,LMAX)
  12. if (iform.eq.2) ios=IXDRSTRING( ixdrr, itab(1)(1:4*lmax))
  13. 8001 FORMAT(16(1X,A4))
  14. iretou=ios
  15. ENDIF
  16. RETURN
  17. END
  18.  
  19.  
  20.  

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