Sources Esope | Cast3M

ecdifn
C ECDIFN    SOURCE    OF166741  24/12/18    21:15:04     12091          
 
      SUBROUTINE ECDIFN(NBAND,LMAX,SEGTAB,IFORM)
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
 
-INC PPARAM
-INC CCOPTIO
-INC CCFXDR
 
      SEGMENT SEGTAB
        CHARACTER*8 ITAB(NTOTO)
      END SEGMENT
      SEGMENT,ITAA(N)
 
      IF (LMAX.LE.0) RETURN
 
      DIMATT = DIMATT + LMAX*2 + 1
 
C Niveau courant :
      IF (IONIVE.GT.2) THEN
 
      IF (IFORM.EQ.1) WRITE(NBAND,800) (ITAB(I),I=1,LMAX)
 800  FORMAT(8(1X,A8))
      IF (IFORM.EQ.0) WRITE(NBAND) (ITAB(I),I=1,LMAX)
      IF (IFORM.EQ.2) ios= IXDRSTRING(ixdrw,itab(1)(1:itab(/1)*lmax))
 
C Anciens niveaux : ELSE IF (IONIVE.LE.2) THEN
      ELSE
        N = LMAX*2
        SEGINI,ITAA
        DO I = 1,LMAX
          II = 2*I
          READ(ITAB(I),FMT='(2A4)')ITAA(II-1),ITAA(II)
        ENDDO
        IF (IFORM.EQ.1) WRITE(NBAND,801)(ITAA(I),I=1,N)
 801    FORMAT(16(1X,A4))
        IF (IFORM.EQ.0) WRITE(NBAND)(ITAA (I),I=1,N)
        if (iform.eq.2) ios= IXDRIMAT( ixdrw, n, itaa(1))
        SEGSUP ITAA
      ENDIF
 
      RETURN
      END