Esope source files

   1 : C LFCDIM    SOURCE    PV        08/01/24    21:15:12     6030           
   2 :       SUBROUTINE LFCDIM(NBAND,LMAX,ITAB,IRETOU,IFORM)                           
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : -INC CCOPTIO                                          
   6 : -INC CCFXDR                          
   7 :       DIMENSION ITAB(1)                                                         
   8 :       M=LMAX                                                                    
   9 :       IRETOU=0                                                                  
  10 :       IF (LMAX.EQ.0) RETURN                                                     
  11 :       IF (IFORM.EQ.1)READ(NBAND,100,END=1000,ERR=1000)                          
  12 :      #      (ITAB(I),I=1,LMAX)                                                  
  13 :       IF (IFORM.EQ.0)READ(NBAND,END=1000,ERR=1000) (ITAB(I),I=1,LMAX)          
  14 :       if (iform.eq.2) ios=IXDRIMAT( ixdrr, m   , itab)
  15 :   100 FORMAT(16(1X,A4))                                                         
  16 :       RETURN                                                                    
  17 :  1000 IRETOU=1                                                                  
  18 :       RETURN                                                                    
  19 :       END                                                                       
  20 :  
  21 :  
  22 :  
  23 :