Esope source files

   1 : C REPERT    SOURCE    CHAT      06/03/16    21:25:40     5336           
   2 :       SUBROUTINE REPERT(ITYP,IA)                                        
   3 : C                                                                       
   4 : C  ****  CREE UN OBJET DE TYPE TABLE CONTENANT TOUS LES NOMS D'OBJETS   
   5 : C  ****  DE TYPE MTYPE (OU TOUS SI MTYPE='   '). L'INDICE DE LA TABLE   
   6 : C  ****  EST TOUJOURS DE TYPE ENTIER.                                   
   7 : C                                                                       
   8 :       IMPLICIT INTEGER(I-N)
   9 : -INC CCNOYAU                                                            
  10 : -INC CCOPTIO                                                            
  11 :       DIMENSION ITAMP(2)                                                
  12 :       CHARACTER*(*) ITYP                                                
  13 :       IA=0                                                              
  14 :       ILONG=LMNNOM                                                      
  15 :       IF(ILONG.EQ.0) RETURN                                             
  16 :       DO 1 I=1,ILONG                                                    
  17 :       IF(INOOB1(I).EQ.1) GO TO 1                                       
  18 :       IF(INOOB2(I).NE.ITYP)  GO TO 1                                    
  19 :       IF(INOOB2(I).EQ.'ANNULE  ') GO TO 1                               
  20 :       ITAMP(1)=IOUEP2(I)                                                
  21 :       ITAMP(2)=I                                                        
  21 :       CALL ECPI(ITAMP,ITYP)                                             
  22 :       IA=IA+1                                                           
  23 :    1  CONTINUE                                                          
  24 :       RETURN                                                            
  25 :       END                         
  26 :