C REPERT    SOURCE    CHAT      06/03/16    21:25:40     5336           
      SUBROUTINE REPERT(ITYP,IA)                                        
C                                                                       
C  ****  CREE UN OBJET DE TYPE TABLE CONTENANT TOUS LES NOMS D'OBJETS   
C  ****  DE TYPE MTYPE (OU TOUS SI MTYPE='   '). L'INDICE DE LA TABLE   
C  ****  EST TOUJOURS DE TYPE ENTIER.                                   
C                                                                       
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU                                                            
-INC CCOPTIO                                                            
      DIMENSION ITAMP(2)                                                
      CHARACTER*(*) ITYP                                                
      IA=0                                                              
      ILONG=LMNNOM                                                      
      IF(ILONG.EQ.0) RETURN                                             
      DO 1 I=1,ILONG                                                    
      IF(INOOB1(I).EQ.1) GO TO 1                                       
      IF(INOOB2(I).NE.ITYP)  GO TO 1                                    
      IF(INOOB2(I).EQ.'ANNULE  ') GO TO 1                               
      ITAMP(1)=IOUEP2(I)                                                
      ITAMP(2)=I                                                        
      CALL ECPI(ITAMP,ITYP)                                             
      IA=IA+1                                                           
   1  CONTINUE                                                          
      RETURN                                                            
      END