C LFCDIR    SOURCE    CHAT      05/01/13    01:16:13     5004           
      SUBROUTINE LFCDIR(NBAND,LMAX,R,IRETOU)                                    
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
      DIMENSION R(1)                                                            
      IRETOU=0                                                                  
      READ(NBAND,100,END=1000,ERR=1000) (R(I),I=1,LMAX)                         
  100 FORMAT(3E22.15)                                                           
      RETURN                                                                    
 1000 IRETOU=1                                                                  
      RETURN                                                                    
      END