Esope source files

   1 : C ECDIEE    SOURCE    CHAT      09/05/05    21:15:05     6385           
   2 :       SUBROUTINE ECDIEE(NBAND,LMAX,ITAB,IFORM) 
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO     
   5 : -INC CCFXDR                            
   6 :       DIMENSION ITAB(1)                                                         
   7 :       IF (LMAX.EQ.0) GO TO 1 
   8 :       DIMATT= DIMATT+LMAX+1                                                  
   9 :       do 10 j=0,0
  10 :       IF (IFORM.EQ.1)WRITE(NBAND,8000) (ITAB(I+j),I=1,LMAX)
  11 :       IF (IFORM.EQ.0)WRITE(NBAND) (ITAB(I+j),I=1,LMAX)
  12 :       if (iform.eq.2) ios=IXDRIMAT( ixdrw, lmax,itab(1))
  13 :   10  continue
  14 :  8000 FORMAT(7I11)                                                              
  15 :    1  RETURN                                                                    
  16 :       END                                                                       
  17 :  
  18 : 
  19 : 
  20 : 
  21 :  
  22 :  
  23 :  
  24 :  
  25 :  
  26 :  
  27 :