C REPER     SOURCE    CHAT      06/03/16    21:25:35     5336           
      SUBROUTINE REPER(IRR)                                                     
      IMPLICIT INTEGER(I-N)
      SEGMENT MTOT                                                              
       CHARACTER*(8) MTY(0)                                                     
      ENDSEGMENT                                                                
-INC CCNOYAU                                                                    
-INC CCOPTIO                                                                    
-INC TMLCHA8                                                                    
      CHARACTER*(*) IRR                                                         
      CHARACTER*(8) CTYP                                                        
      SEGINI MTOT                                                               
      IF(IRR.NE.'        ') THEN                                                
         MTY(**)=IRR                                                            
         DO 11 I=1,LMNNOM                                                       
         IF(INOOB2(I).EQ.IRR) GOTO 10                                           
   11    CONTINUE                                                               
         MOTERR(1:8)=MTY(1)                                                     
         CALL ERREUR(-14)                                                       
         SEGSUP MTOT                                                            
         RETURN                                                                 
      ENDIF                                                                     
      DO 1 I=1,LMNNOM                                                           
      DO 2 J=1,MTY(/2)                                                          
      IF(INOOB2(I).EQ.MTY(J)) GO TO 1                                           
    2 CONTINUE                                                                  
      IF(INOOB2(I).EQ.'        ') GO TO 1                                       
      MTY(**)=INOOB2(I)                                                         
    1 CONTINUE                                                                  
      IF(MTY(/2).EQ.0) THEN                                                     
       CALL ERREUR (26)                                                         
       SEGSUP MTOT                                                              
       RETURN                                                                   
      ENDIF                                                                     
   10 CONTINUE                                                                  
      DO 3 II=1,MTY(/2)                                                         
      CTYP=MTY(II)                                                              
      CALL  REPLIS(CTYP,MLCHA8)                                                 
      SEGACT MLCHA8                                                             
      IF(MLCHAR(/2).EQ.0) GO TO 4                                               
      MOTERR(1:8)=     CTYP                                                     
      CALL ERREUR(-15)                                                          
      ILO=MLCHAR(/2)                                                            
      WRITE(IOIMP,102) (MLCHAR(I),I=1,ILO)                                      
 102  FORMAT(8(1X,A8))                                                          
   4  CONTINUE                                                                  
      SEGSUP MLCHA8                                                             
   3  CONTINUE                                                                  
      SEGSUP MTOT                                                               
      RETURN                                                                    
      END