Sources Esope | Cast3M

ecdifn
C ECDIFN    SOURCE    CHAT      09/05/05    21:15:09     6385
      SUBROUTINE ECDIFN(NBAND,LMAX,SEGTAB,IFORM)
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
-INC CCFXDR
      SEGMENT SEGTAB
        CHARACTER*8 ITAB(NTOTO)
      END SEGMENT
      SEGMENT,ITAA(N)
      IF (LMAX.NE.0) THEN
         DIMATT=DIMATT+ LMAX*2 +1
         IF(IONIVE.LE. 2) THEN
            N=LMAX*2
            SEGINI ITAA
            DO 2 I=1,LMAX
               II=2*I
               READ(ITAB(I),FMT='(2A4)')ITAA(II-1),ITAA(II)
   2        CONTINUE
            IF(IFORM.EQ.1) WRITE(NBAND,801)(ITAA(I),I=1,N)
            IF(IFORM.EQ.0) WRITE(NBAND)(ITAA (I),I=1,N)
            if (iform.eq.2) ios= IXDRIMAT( ixdrw, n, itaa(1))
 801        FORMAT(16(1X,A4))
            SEGSUP ITAA
         ELSE
            IF (IFORM.EQ.1)WRITE(NBAND,8001) (ITAB(I),I=1,LMAX)
            IF (IFORM.EQ.0)WRITE(NBAND) (ITAB(I),I=1,LMAX)
      if (iform.eq.2) ios= IXDRSTRING(ixdrw,itab(1)(1:itab(/1)*lmax))
 8001       FORMAT(8(1X,A8))
         ENDIF
      ENDIF
      RETURN
      END