Sources Esope | Cast3M

lfcdes
C LFCDES    SOURCE    PV        14/06/12    21:15:00     8070
      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) then
        if (ixdrr.ne.0) then
         ios=IXDRINT( ixdrr, itab )
        else
         ios=-1
        endif
      endif
      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