Télécharger ecdiee.eso

Retour à la liste

Numérotation des lignes :

  1. C ECDIEE SOURCE CHAT 09/05/05 21:15:05 6385
  2. SUBROUTINE ECDIEE(NBAND,LMAX,ITAB,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCOPTIO
  5. -INC CCFXDR
  6. DIMENSION ITAB(1)
  7. IF (LMAX.EQ.0) GO TO 1
  8. DIMATT= DIMATT+LMAX+1
  9. do 10 j=0,0
  10. IF (IFORM.EQ.1)WRITE(NBAND,8000) (ITAB(I+j),I=1,LMAX)
  11. IF (IFORM.EQ.0)WRITE(NBAND) (ITAB(I+j),I=1,LMAX)
  12. if (iform.eq.2) ios=IXDRIMAT( ixdrw, lmax,itab(1))
  13. 10 continue
  14. 8000 FORMAT(7I11)
  15. 1 RETURN
  16. END
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  

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