Esope source files

   1 : C LFCDIN    SOURCE    PV        05/04/13    21:15:42     5073           
   2 :       SUBROUTINE LFCDIN(NBAND,LMAX,ITAB,IRETOU,IFORM)                           
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO
   5 : -INC CCFXDR                                                                    
   6 :       CHARACTER*8 ITAB(*)                                                       
   7 :       IRETOU=0                                                                  
   8 :       IF (LMAX.EQ.0) GO TO 15                                                   
   9 :       IF(IONIVE.LE. 2) THEN                                                     
  10 :       IF(IFORM.EQ.1)READ(NBAND,801,END=10,ERR=10)(ITAB(I),I=1,LMAX)             
  11 :       IF(IFORM.EQ.0)READ(NBAND,END=10,ERR=10)(ITAB(I),I=1,LMAX)                 
  12 :  801  FORMAT(16(1X,A4))                                                         
  13 :       ELSE                                                                      
  14 :       IF(IFORM.EQ.1)READ(NBAND,8001,END=10,ERR=10)(ITAB(I),I=1,LMAX)            
  15 :       IF(IFORM.EQ.0)READ(NBAND,END=10,ERR=10)(ITAB(I),I=1,LMAX)                 
  16 :  8001 FORMAT(8(1X,A8))                                                          
  17 :       ENDIF   
  18 :       if (iform.eq.2) ios=IXDRSTRING( ixdrr, itab(1)(1:8*lmax))                                                                  
  19 :   15  RETURN                                                                    
  20 :  10   IRETOU=1                                                                  
  21 :       RETURN                                                                    
  22 :       END                                                                       
  23 :  
  24 :  
  25 :