Esope source files

   1 : C ECDIFM    SOURCE    CHAT      09/05/05    21:15:08     6385           
   2 :       SUBROUTINE ECDIFM(NBAND,LMAX,ITAB,IFORM)                                  
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : -INC CCOPTIO
   6 : -INC CCFXDR                                                                    
   7 :       DIMENSION ITAB(1)                                                         
   8 :       M=LMAX                                                                    
   9 :       IF (LMAX.EQ.0) RETURN 
  10 :       DIMATT=DIMATT+LMAX+1                                                    
  11 :       do 10 j=0,0
  12 :       IF (IFORM.EQ.1)WRITE(NBAND,8001) (ITAB(I+j),I=1,LMAX)
  13 :       IF (IFORM.EQ.0)WRITE(NBAND) (ITAB(I+j),I=1,LMAX)
  14 :       if (iform.eq.2) ios=IXDRIMAT( ixdrw, m   ,itab(1))
  15 :   10  continue
  16 :  8001 FORMAT(16(1X,A4))                                                         
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :  
  20 : 
  21 : 
  22 :  
  23 :  
  24 :  
  25 :  
  26 :  
  27 :  
  28 :  
  29 :