Sources Esope | Cast3M

listno
C LISTNO    SOURCE    JC220346  18/12/04    21:15:42     9991           
      SUBROUTINE LISTNO (ITYP,IA,ILISNB)
C
C  ****  CREE la liste des OBJETS  DE TYPE ITYP
C  ****     et met leur nom dans ILISNO
C  ****  et retourne leur nombre dans IA
C
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU
 
-INC PPARAM
-INC CCOPTIO
-INC CCASSIS
      SEGMENT ILISNB
          INTEGER ILISOB(MLON)
          CHARACTER*(LONOM) ILISNO(MLON)
      ENDSEGMENT
      CHARACTER*(*) ITYP
      IA=0
      ILONG=LMNNOM
      SEGACT ILISNB*MOD
      IF(ILONG.EQ.0) RETURN
      if(nbesc.ne.0) segact ipiloc
      DO 1 I=1,ILONG
         IF(INOOB2(I).NE.ITYP)  GO TO 1
         IF(INOOB1(I).EQ.1) GO TO 1
         IF(INOOB2(I).EQ.'ANNULE  ') GO TO 1
         IA=IA+1
         ILISOB(IA)=IOUEP2(I)
         IP= INOOB1(I)
         IDEBCH=IPCHAR(IP)
         IFINCH=IPCHAR(IP+1)-1
         ILISNO(IA)=ICHARA(IDEBCH:IFINCH)
   1  CONTINUE
      if(nbesc.ne.0) SEGDES,IPILOC
      RETURN
      END