Esope source files

   1 : C LFCDES    SOURCE    PV        05/04/25    21:15:32     5077           
   2 :       SUBROUTINE LFCDES (NBAND,ITAB,IRET,IFORM)                                 
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)
   5 : -INC CCFXDR
   6 : C     ------------------------------------                                      
   7 : C     BUT : RELIRE LE DESCRIPTEUR  IQUOI  ECRIT PAR ECDES                       
   8 : C     APPELE PAR LIPIL                                                          
   9 : C     -------------------------------------                                     
  10 :       IRET=0
  11 :       ios=0
  12 :       IF (IFORM.EQ.1)READ(NBAND,700,END=1000,ERR=1000) ITAB                     
  13 :       IF (IFORM.EQ.0)READ(NBAND,END=1000,ERR=1000) ITAB    
  14 :       if (iform.eq.2) ios=IXDRINT( ixdrr, itab )
  15 :       if (ios.lt.0) goto 1000                     
  16 :       GO TO 1                                                                   
  17 :  1000 IRET=1                                                                    
  18 :     1 RETURN                                                                    
  19 : C     -------------------------------------                                     
  20 :   700 FORMAT(23X,I4)                                                            
  21 : C 700 FORMAT(' ENREGISTREMENT DE TYPE',I4)                                      
  22 :       END                                                                       
  23 :  
  24 :  
  25 :  
  26 :