Télécharger ecdifm.eso

Retour à la liste

Numérotation des lignes :

  1. C ECDIFM SOURCE CHAT 09/05/05 21:15:08 6385
  2. SUBROUTINE ECDIFM(NBAND,LMAX,ITAB,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. -INC CCOPTIO
  6. -INC CCFXDR
  7. DIMENSION ITAB(1)
  8. M=LMAX
  9. IF (LMAX.EQ.0) RETURN
  10. DIMATT=DIMATT+LMAX+1
  11. do 10 j=0,0
  12. IF (IFORM.EQ.1)WRITE(NBAND,8001) (ITAB(I+j),I=1,LMAX)
  13. IF (IFORM.EQ.0)WRITE(NBAND) (ITAB(I+j),I=1,LMAX)
  14. if (iform.eq.2) ios=IXDRIMAT( ixdrw, m ,itab(1))
  15. 10 continue
  16. 8001 FORMAT(16(1X,A4))
  17. RETURN
  18. END
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  

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