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.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. -INC CCFXDR
  8. SEGMENT SEGTAB
  9. CHARACTER*4 ITAB(NTOTO)
  10. END SEGMENT
  11. IF (LMAX.NE.0) THEN
  12. IF (IFORM.EQ.1)WRITE(NBAND,8001) (ITAB(I),I=1,LMAX)
  13. IF (IFORM.EQ.0)WRITE(NBAND) (ITAB(I),I=1,LMAX)
  14. if (iform.eq.2) ios=IXDRSTRING( ixdrr, itab(1)(1:4*lmax))
  15. 8001 FORMAT(16(1X,A4))
  16. iretou=ios
  17. ENDIF
  18. RETURN
  19. END
  20.  
  21.  
  22.  

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