Esope source files

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