Esope source files

   1 : C ECDIFC    SOURCE    PV        05/04/13    21:15:16     5073           
   2 :       SUBROUTINE ECDIFC(NBAND,ITAB,IFORM)                                       
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCFXDR
   5 :       CHARACTER ITAB*(*)                                                        
   6 :       LMAX=LEN(ITAB)                                                            
   7 :       IF (LMAX.EQ.0) GO TO 1                                                    
   8 :       IN=MOD(LMAX,71)                                                           
   9 :       NF=(LMAX+70)/71                                                           
  10 :       LI=1                                                                      
  11 :       DO 2 I=1,NF                                                               
  12 :       LN=LI+70                                                                  
  13 :       IF(I.EQ.NF)LN=LMAX                                                        
  14 :       IF (IFORM.EQ.1)WRITE(NBAND,8001) ITAB(LI:LN)                              
  15 :       IF (IFORM.EQ.0)WRITE(NBAND) ITAB(LI:LN) 
  16 :       if (iform.eq.2)ios=IXDRSTRING( ixdrw, itab(li:ln))                                  
  17 :       LI=LN+1                                                                   
  18 :     2 CONTINUE                                                                  
  19 :  8001 FORMAT(1X,A71)                                                            
  20 :     1 RETURN                                                                    
  21 :       END                                                                       
  22 :  
  23 :  
  24 :