C PROCRE    SOURCE    PV        09/09/10    21:15:26     6500           
      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,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
      SEGACT JPOOB*MOD
      SEGACT 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