Télécharger repert.eso

Retour à la liste

Numérotation des lignes :

  1. C REPERT SOURCE CB215821 19/03/18 21:16:15 10161
  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.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. DIMENSION ITAMP(2)
  14. CHARACTER*(*) ITYP
  15. IA=0
  16. ILONG=LMNNOM
  17. IF(ILONG.EQ.0) RETURN
  18. DO 1 I=1,ILONG
  19. IF(INOOB1(I).EQ. 1) GOTO 1
  20. IF(INOOB2(I).NE. ITYP) GOTO 1
  21. IF(INOOB2(I).EQ.'ANNULE ') GOTO 1
  22. ITAMP(1)=IOUEP2(I)
  23. ITAMP(2)=I
  24. CALL ECPI(ITAMP,ITYP)
  25. IA=IA+1
  26. 1 CONTINUE
  27.  
  28. END
  29.  
  30.  

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