Télécharger ecdifn.eso

Retour à la liste

Numérotation des lignes :

  1. C ECDIFN SOURCE CHAT 09/05/05 21:15:09 6385
  2. SUBROUTINE ECDIFN(NBAND,LMAX,SEGTAB,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCOPTIO
  5. -INC CCFXDR
  6. SEGMENT SEGTAB
  7. CHARACTER*8 ITAB(NTOTO)
  8. END SEGMENT
  9. SEGMENT,ITAA(N)
  10. IF (LMAX.NE.0) THEN
  11. DIMATT=DIMATT+ LMAX*2 +1
  12. IF(IONIVE.LE. 2) THEN
  13. N=LMAX*2
  14. SEGINI ITAA
  15. DO 2 I=1,LMAX
  16. II=2*I
  17. READ(ITAB(I),FMT='(2A4)')ITAA(II-1),ITAA(II)
  18. 2 CONTINUE
  19. IF(IFORM.EQ.1) WRITE(NBAND,801)(ITAA(I),I=1,N)
  20. IF(IFORM.EQ.0) WRITE(NBAND)(ITAA (I),I=1,N)
  21. if (iform.eq.2) ios= IXDRIMAT( ixdrw, n, itaa(1))
  22. 801 FORMAT(16(1X,A4))
  23. SEGSUP ITAA
  24. ELSE
  25. IF (IFORM.EQ.1)WRITE(NBAND,8001) (ITAB(I),I=1,LMAX)
  26. IF (IFORM.EQ.0)WRITE(NBAND) (ITAB(I),I=1,LMAX)
  27. if (iform.eq.2) ios= IXDRSTRING(ixdrw,itab(1)(1:itab(/1)*lmax))
  28. 8001 FORMAT(8(1X,A8))
  29. ENDIF
  30. ENDIF
  31. RETURN
  32. END
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  

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