Télécharger ecrobj.eso

Retour à la liste

Numérotation des lignes :

  1. C ECROBJ SOURCE PV 18/10/17 11:49:08 9965
  2. SUBROUTINE ECROBJ( MCH,IRET)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCASSIS
  5. CHARACTER*(*) MCH
  6. CHARACTER*8 MTEM
  7. DIMENSION ITEMP(2)
  8.  
  9. C L'objet de type MCH et de pointeur IRET est rendu SEGACT
  10. C actobj retire le status *MOD aux segments
  11. C CALL actobj(MCH,IRET,1)
  12.  
  13. ith=0
  14. if (nbesc.ne.0) ith=oothrd
  15. if (ith.eq.0) then
  16. MTEM=MCH
  17. ITEMP(2)=0
  18. C
  19. C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE
  20. C
  21. ITEMP(1)=IRET
  22. CALL ECPI(ITEMP,MTEM)
  23. RETURN
  24. else
  25. C cas de l'esclave
  26. mescla=imescl(ith)
  27. call ecresc(i)
  28. esoplu(i)=.false.
  29. esopty(i)=mch
  30. esopva(i)=iret
  31. endif
  32. END
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  

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