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