Esope source files

   1 : C ECDIEN    SOURCE    PV        05/04/13    21:15:14     5073           
   2 :       SUBROUTINE ECDIEN(NBAND,LMAX,SEGTAB,IFORM)
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO
   5 : -INC CCFXDR
   6 :       SEGMENT SEGTAB
   7 :         CHARACTER*4 ITAB(NTOTO)
   8 :       END SEGMENT
   9 :       IF (LMAX.NE.0) THEN
  10 :             IF (IFORM.EQ.1)WRITE(NBAND,8001) (ITAB(I),I=1,LMAX)
  11 :             IF (IFORM.EQ.0)WRITE(NBAND) (ITAB(I),I=1,LMAX)
  12 :       if (iform.eq.2) ios=IXDRSTRING( ixdrw, itab(1)(1:itab(/1)*lmax))
  13 :  8001       FORMAT(16(1X,A4))
  14 :       ENDIF
  15 :       RETURN
  16 :       END
  17 :  
  18 :  
  19 :  
  20 : 
  21 : 
  22 :  
  23 :  
  24 : 
  25 : 
  26 :  
  27 :  
  28 :  
  29 :