C RESPRO    SOURCE    PV        06/04/20    21:16:14     5410           
      SUBROUTINE RESPRO                                                  
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                          
-INC CCOPTIO                                                             
-INC SMBLOC                                                              
-INC CCNOYAU                                                             
-INC CCASSIS
      CHARACTER*(8) MMM                                                  
      IARGUM=MARGUM                                                      
      IF(IARGUM.EQ.0) THEN                                               
        CALL ERREUR (154)                                                
        RETURN                                                           
      ENDIF                                                              
      SEGACT IARGUM*MOD
C                                                                        
C  SAUVETAGE DES POINTEURS ET DES TYPES DES RESULTATS                    
C                                                                        
      MTRESU=ITRESU                                                      
      MVRESU=IVRESU                                                      
      MFRESU=IFRESU                                                      
      IF(MTRESU.EQ.0) THEN                                               
         NRES=0                                                          
         SEGINI MTRESU,MVRESU,MFRESU                                     
         IF(IIMPI.EQ.1754) WRITE(6,*) ' DANS RESPRO MTRESU ..',MTRESU,   
     $                                MVRESU,MFRESU                      
         IVRESU=MVRESU                                                   
         ITRESU=MTRESU                                                   
         IFRESU=MFRESU                                                   
      ELSE                                                               
         IF(IIMPI.EQ.1754) WRITE(6,*) ' DANS RESPRO MTRESU ..',MTRESU,   
     $                                MVRESU,MFRESU                      
         SEGACT MTRESU,MVRESU,MFRESU                                     
         NRES=IVARES(/1)                                                 
      ENDIF                                                              
  432 CONTINUE                                                           
      MMM= ' '                                                           
      LECTAB=1                                                           
      INTEXT=1                                                           
*     LODESL = .TRUE.
      call setass(1)
      CALL LIRABJ(MMM,IRET,0,IRETOU)    
*     LODESL = .FALSE.
      call setass(0)
*      write(6,*) ' respro mmmiret ', mmm   ,iret                        
      IF ( IRETOU . NE . 0) THEN                                         
         NRES = NRES + 1                                                 
         SEGADJ MVRESU,MTRESU,MFRESU                                     
         MTYRES(NRES) = MMM                                              
         IVARES(NRES)=IRET                                               
         IF(MMM.EQ.'FLOTTANT') THEN
               if(nbesc.ne.0) segact ipiloc
               XFLRES(NRES)=XIFLOT(IRET)
               if(nbesc.ne.0) segdes ipiloc  
         ENDIF      
         GO TO 432                                                       
      ENDIF                                                              
      SEGDES MVRESU,MTRESU,MFRESU                                        
      SEGDES IARGUM                                                      
      LECTAB=0                                                           
      INTEXT = 0                                                         
      RETURN                                                             
      END