Télécharger ecdien.eso

Retour à la liste

Numérotation des lignes :

  1. C ECDIEN SOURCE PV 05/04/13 21:15:14 5073
  2. SUBROUTINE ECDIEN(NBAND,LMAX,SEGTAB,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( ixdrw, itab(1)(1:itab(/1)*lmax))
  13. 8001 FORMAT(16(1X,A4))
  14. ENDIF
  15. RETURN
  16. END
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  

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