Esope source files

   1 : C LFANC     SOURCE    CHAT      05/01/13    01:15:35     5004           
   2 :       SUBROUTINE LFANC(NBAND,LMAX,LECT,IRETOU,IFORM,ITAB)                       
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO                                                                    
   5 :       CHARACTER*8 ITAB(*)                                                       
   6 :       DIMENSION LECT(*)                                                         
   7 :       IRETOU=0                                                                  
   8 :       IF (LMAX.EQ.0) GO TO 15                                                   
   9 :       JG=LMAX*2                                                                 
  10 :       IF(IFORM.EQ.1)READ(NBAND,801,END=10,ERR=10)(LECT(I),I=1,JG)               
  11 :       IF(IFORM.EQ.0)READ(NBAND,END=10,ERR=10)(LECT(I),I=1,JG)                   
  12 :       DO 36 K=1,LMAX                                                            
  13 :       II= 2*K-1                                                                 
  14 :       WRITE(ITAB(K),FMT='(2A4)')LECT(II),LECT(II+1)                             
  15 :    36 CONTINUE                                                                  
  16 :  801  FORMAT(16(1X,A4))                                                         
  17 :   15  RETURN                                                                    
  18 :  10   IRETOU=1                                                                  
  19 :       RETURN                                                                    
  20 :       END                                                                       
  21 :