Esope source files

   1 : C LISTNO    SOURCE    CHAT      06/03/16    21:20:28     5336           
   2 :       SUBROUTINE LISTNO (ITYP,IA,ILISNB)                               
   3 : C                                                                      
   4 : C  ****  CREE la liste des OBJETS  DE TYPE ITYP 
   5 : C  ****     et met leur nom dans ILISNO         
   6 : C  ****  et retourne leur nombre dans IA                    
   7 : C                                                                      
   8 :       IMPLICIT INTEGER(I-N)
   9 : -INC CCNOYAU                                                           
  10 : -INC CCOPTIO
  11 : -INC CCASSIS
  12 :       SEGMENT ILISNB                                                   
  13 :           INTEGER ILISOB(MLON)
  14 :           CHARACTER*8 ILISNO(MLON)
  15 :       ENDSEGMENT                                                       
  16 :       CHARACTER*(*) ITYP                                           
  17 :       IA=0                                                             
  18 :       ILONG=LMNNOM    
  19 :       SEGACT ILISNB*MOD                                                
  20 :       IF(ILONG.EQ.0) RETURN 
  21 :       if(nbesc.ne.0) segact ipiloc                                     
  22 :       DO 1 I=1,ILONG 
  23 :       IF(INOOB2(I).NE.ITYP)  GO TO 1                                   
  24 :       IF(INOOB1(I).EQ.1) GO TO 1                                       
  25 :       IF(INOOB2(I).EQ.'ANNULE  ') GO TO 1 
  26 :       IA=IA+1                                           
  27 :       ILISOB(IA)=IOUEP2(I)
  28 :       IP= INOOB1(I)
  29 :       IDEBCH=IPCHAR(IP)
  30 :       IFINCH= IPCHAR(IP+1)-1                  
  31 :       ILISNO(IA)=ICHARA(IDEBCH:IFINCH)                                 
  32 :    1  CONTINUE 
  33 :       if(nbesc.ne.0) segdes ipiloc                                     
  34 :       RETURN                                                           
  35 :       END                                                              
  36 :