Télécharger ecrobj.eso

Retour à la liste

Numérotation des lignes :

  1. C ECROBJ SOURCE PV 11/04/08 21:15:40 6934
  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. ith=0
  9. if (nbesc.ne.0) call ooonth(ith)
  10. if (ith.eq.0) then
  11. MTEM=MCH
  12. ITEMP(2)=0
  13. C
  14. C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE
  15. C
  16. ITEMP(1)=IRET
  17. CALL ECPI(ITEMP,MTEM)
  18. RETURN
  19. else
  20. * cas de l'esclave
  21. mescla=imescl(ith)
  22. call ecresc(i)
  23. esoplu(i)=.false.
  24. esopty(i)=mch
  25. esopva(i)=iret
  26. endif
  27. END
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  

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