Télécharger listob.eso

Retour à la liste

Numérotation des lignes :

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

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