C TRBACK    SOURCE    BP208322  13/07/25    21:15:06     7805           
      SUBROUTINE TRBACK                                                  
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                             
-INC SMBLOC                                                              
-INC CCNOYAU
-INC CCASSIS                                                             
      CHARACTER*4 MFIN(4)                                                
      CHARACTER*8 CTYP                                                   
      DATA MFIN/'FIN ','REPE','FINP','FINM'/                             
      IIR=IERR                                                           
      IERR=0                                                             
      CALLGINT2  
                                                      
C      MTXBLC=MTXBL                                                      
C      SEGACT MTXBLC                                                     
C      MTXBLL=MTXBLC(MBCOUR)                                             
C      SEGACT MTXBLL                                                     
      INTERR(1)=MBCOUR                                                   
*     WRITE(6,FMT='(''  MBCOUR NUINST '',2I6)')MBCOUR,NUINST             
C      SEGDES MTXBLL                                                            
      CALL ERREUR(-253)                                                  
      CALL TRBAC 
      if(nbesc.ne.0) segact ipiloc 
      IERR=0 
      if(MISAUP.EQ.1) then
         CALL NOUTRU  
         MBFONC=1
         RETURN
      ENDIF                                                                         
   1  CONTINUE                                                           
      CALL NOUTRU                                                        
      LECTAB=1                                                     
      CALL LIRMOT(MFIN,4,IRETOU,0)
      if(nbesc.ne.0) segact ipiloc                                       
      IF (IRETOU.EQ.0) THEN                                              
           GOTO 1                                                        
      ELSEIF ( IRETOU.EQ.2) THEN                                         
           CALL REPETE                                                   
           MBCONT=1                                                      
           GO TO 1                                                       
      ELSEIF ( IRETOU.EQ.3.OR.IRETOU.EQ.4) THEN                          
            ILONG=LMNNOM                                                 
            MOTERR(1:8)=' '                                              
            IF(ILONG.EQ.0)  then
                 if(nbesc.ne.0) segdes ipiloc
                 RETURN                                                  
            ENDIF
            DO 10 I=1,ILONG                                              
            IF(INOOB1(I).EQ.1) GO TO 10                                
            IF(INOOB2(I).NE.'PROCEDUR')  GO TO 10                        
            IF(MBLPRO.NE.ipipr1(IOUEP2(I))) GO TO 10 
            IP=INOOB1(I)
            IDEBCH=IPCHAR(IP)
            IFINCH=IPCHAR(IP+1)-1                                   
            MOTERR(1:8)=ICHARA(IDEBCH:IFINCH)                            
            GO TO 11                                                     
   10       CONTINUE                                                     
   11       CONTINUE                                                     
           IERR=IIR                                                      
           CALLGINT2                                                     
           CALL FINPRO                                                   
           IIR=IERR                                                      
           IERR=0                                                        
           CALLGINT2                                                     
           IF(MBLSUP.NE.0.AND.MBFONC.EQ.0) THEN                          
           MTXBLC=MTXBL                                                  
C           MTXBLL=MTXBLC(MBCOUR)                                        
C           SEGACT MTXBLL                                                
           INTERR(1)= MBCOUR                                             
           CALL ERREUR(-255)                                             
C           SEGDES MTXBLL                                                
           ELSE                                                        
           CALL ERREUR(-254)                                             
           ENDIF                                                         
           CALL TRBAC   
           if(nbesc.ne.0) segdes ipiloc                                  
           IF(MBLSUP.EQ.0.OR.MBFONC.NE.0) GO TO 2                        
      ELSEIF ( IRETOU.EQ.1) THEN                                         
           MBCONT=1                                                      
          CALL FIN                                                       
          IF (MBLSUP.EQ.0.OR.MBFONC.NE.0) GO TO 2                        
      ENDIF                                                              
      GO TO 1                                                            
   2  CONTINUE 
      if(nbesc.ne.0) segdes ipiloc                                       
      IERR=IIR                                                           
      CALLGINT2                                                          
      RETURN                                                             
      END