Esope source files

   1 : C LISTOB    SOURCE    CHAT      06/03/16    21:20:33     5336           
   2 :     
   3 :       SUBROUTINE LISTOB (ITYP,IA,ILISOB,ICLE)                          
   4 : C                                                                      
   5 : C  ****  CREE la liste des OBJETS  DE TYPE ITYP si  ICLE=1         
   6 : C  ****  et retourne leur nombre dans IA
   7 : C  ****   SI ICLE=0 renvoi dans IA le nombre max possible              
   8 : C                                                                      
   9 :       IMPLICIT INTEGER(I-N)
  10 : -INC CCNOYAU                                                           
  11 : -INC CCOPTIO                                                           
  12 :       DIMENSION ILISOB(*)                                              
  13 :       CHARACTER*(*) ITYP   
  14 :       IF(ICLE.EQ.0) THEN
  15 :          IA = LMNNOM
  16 :          RETURN 
  17 :       ENDIF                                                    
  18 :       IA=0                                                             
  19 :       ILONG=LMNNOM                                                     
  20 :       IF(ILONG.EQ.0) RETURN                                            
  21 :       DO 1 I=1,ILONG 
  22 :       IF(INOOB2(I).NE.ITYP)  GO TO 1                                   
  23 :       IF(INOOB1(I).EQ.1) GO TO 1                                       
  24 :       IF(INOOB2(I).EQ.'ANNULE  ') GO TO 1 
  25 :       IA=IA+1                                                  
  26 :       ILISOB(IA)=IOUEP2(I)                                             
  27 :    1  CONTINUE                                                         
  28 :       RETURN                                                           
  29 :       END                  
  30 :