Télécharger listno.eso

Retour à la liste

Numérotation des lignes :

  1. C LISTNO SOURCE JC220346 18/12/04 21:15:42 9991
  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.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. -INC CCASSIS
  14. SEGMENT ILISNB
  15. INTEGER ILISOB(MLON)
  16. CHARACTER*(LONOM) ILISNO(MLON)
  17. ENDSEGMENT
  18. CHARACTER*(*) ITYP
  19. IA=0
  20. ILONG=LMNNOM
  21. SEGACT ILISNB*MOD
  22. IF(ILONG.EQ.0) RETURN
  23. if(nbesc.ne.0) segact ipiloc
  24. DO 1 I=1,ILONG
  25. IF(INOOB2(I).NE.ITYP) GO TO 1
  26. IF(INOOB1(I).EQ.1) GO TO 1
  27. IF(INOOB2(I).EQ.'ANNULE ') GO TO 1
  28. IA=IA+1
  29. ILISOB(IA)=IOUEP2(I)
  30. IP= INOOB1(I)
  31. IDEBCH=IPCHAR(IP)
  32. IFINCH=IPCHAR(IP+1)-1
  33. ILISNO(IA)=ICHARA(IDEBCH:IFINCH)
  34. 1 CONTINUE
  35. if(nbesc.ne.0) SEGDES,IPILOC
  36. RETURN
  37. END
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales