Télécharger repert.eso

Retour à la liste

Numérotation des lignes :

  1. C REPERT SOURCE CHAT 06/03/16 21:25:40 5336
  2. SUBROUTINE REPERT(ITYP,IA)
  3. C
  4. C **** CREE UN OBJET DE TYPE TABLE CONTENANT TOUS LES NOMS D'OBJETS
  5. C **** DE TYPE MTYPE (OU TOUS SI MTYPE=' '). L'INDICE DE LA TABLE
  6. C **** EST TOUJOURS DE TYPE ENTIER.
  7. C
  8. IMPLICIT INTEGER(I-N)
  9. -INC CCNOYAU
  10. -INC CCOPTIO
  11. DIMENSION ITAMP(2)
  12. CHARACTER*(*) ITYP
  13. IA=0
  14. ILONG=LMNNOM
  15. IF(ILONG.EQ.0) RETURN
  16. DO 1 I=1,ILONG
  17. IF(INOOB1(I).EQ.1) GO TO 1
  18. IF(INOOB2(I).NE.ITYP) GO TO 1
  19. IF(INOOB2(I).EQ.'ANNULE ') GO TO 1
  20. ITAMP(1)=IOUEP2(I)
  21. ITAMP(2)=I
  22. CALL ECPI(ITAMP,ITYP)
  23. IA=IA+1
  24. 1 CONTINUE
  25. RETURN
  26. END
  27.  
  28.  

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