C PROCRE    SOURCE    CB215821  24/07/17    21:15:15     11961          
      SUBROUTINE PROCRE
C  REMISE EN ETAT DE LA LECTURE DE CRAN EN DESSOUS
      IMPLICIT INTEGER(I-N)

-INC CCNOYAU
-INC SMBLOC
-INC CCREDLE

      sredle=iredle
      call ooohor(0)
      SEGACT MBLOC*MOD
      I2=ITINTE(/1)
      I1 = ITANOM(/2)
      SEGSUP ITTINT,ITABNO,JPOOB
      MPROCE=MPROCD
      SEGACT MPROCE
C
C  REPRISE DANS MPROCE DE L'ETAT DE LA LECTURE
C
      JPOOB =MPOOB
      ITABNO=KTABNO
      LECTAB=LLCTAB
      ISTOP =LSTOP
      IBPILE=LBPILE
      IHPILE=LHPILE
      IMOTLU=LMOTLU
      IPTEM =LPTEM
      NBNOM =LBNOM
      INILU =LNILU
      NOMLU =LOMLU
      IEGAL =LEGAL
      IPOS  =LIPOS
      IDPAR =LDPAR
      IFPAR =LFPAR
      MBFONC=LUTIL
      INTEXT=LNTEXT
      ITTINT=LTTINT
      IPVINT=LPVINT
      IINTPO=LINTPO
      INTEMP=LNTEMP
      IRAZ  =LRAZ
      TEXT  =LEXT
      MOT(1:72)=LOT(1:72)
      ICOUR =LCOUR
      IPREC =LPREC
      NRAN  =LRAN
      ILU   =LLU
      IFINAN=LFINAN
      SEGACT ITABNO*MOD,JPOOB*MOD,ITTINT*MOD
      IF(ITANOM(/2).GE.I1) GO TO 10
      M=I1
      SEGADJ,ITABNO

   10 CONTINUE
      IF(ITINTE(/1).GE.I2) GO TO 20
      K=I2-ITINTE(/1)
      DO 21 I=1,K
        ITINTE(**)=0
   21 CONTINUE

   20 CONTINUE
      SEGSUP,MPROCE
      MPROCD=MPROCE
      END