Esope source files

   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 :