Sources Esope | Cast3M

ecdiee
C ECDIEE    SOURCE    CHAT      09/05/05    21:15:05     6385
      SUBROUTINE ECDIEE(NBAND,LMAX,ITAB,IFORM)
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
-INC CCFXDR
      DIMENSION ITAB(1)
      IF (LMAX.EQ.0) GO TO 1
      DIMATT= DIMATT+LMAX+1
      do 10 j=0,0
      IF (IFORM.EQ.1)WRITE(NBAND,8000) (ITAB(I+j),I=1,LMAX)
      IF (IFORM.EQ.0)WRITE(NBAND) (ITAB(I+j),I=1,LMAX)
      if (iform.eq.2) ios=IXDRIMAT( ixdrw, lmax,itab(1))
  10  continue
 8000 FORMAT(7I11)
   1  RETURN
      END