Sources Esope | Cast3M

ecdifm
C ECDIFM    SOURCE    CHAT      09/05/05    21:15:08     6385
      SUBROUTINE ECDIFM(NBAND,LMAX,ITAB,IFORM)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
-INC PPARAM
-INC CCOPTIO
-INC CCFXDR
      DIMENSION ITAB(1)
      M=LMAX
      IF (LMAX.EQ.0) RETURN
      DIMATT=DIMATT+LMAX+1
      do 10 j=0,0
      IF (IFORM.EQ.1)WRITE(NBAND,8001) (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, m   ,itab(1))
  10  continue
 8001 FORMAT(16(1X,A4))
      RETURN
      END