Esope source files

   1 : C LFCDEN    SOURCE    CHAT      05/01/13    01:15:42     5004           
   2 :       SUBROUTINE LFCDEN(NBAND,LMAX,ITAB,IRETOU,IFORM)                           
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO                                                                    
   5 :       CHARACTER*4 ITAB(*)                                                       
   6 :       IRETOU=0                                                                  
   7 :       IF (LMAX.EQ.0) GO TO 15                                                                                                                    
   8 :       IF(IFORM.EQ.1)READ(NBAND,8001,END=10,ERR=10)(ITAB(I),I=1,LMAX)            
   9 :       IF(IFORM.EQ.0)READ(NBAND,END=10,ERR=10)(ITAB(I),I=1,LMAX)                 
  10 :  8001 FORMAT(16(1X,A4))                                                                                                                           
  11 :   15  RETURN                                                                    
  12 :  10   IRETOU=1                                                                  
  13 :       RETURN                                                                    
  14 :       END                                                                       
  15 : 
  16 :  
  17 :