Télécharger listno.eso

Retour à la liste

Numérotation des lignes :

  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.  
  37.  

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