Télécharger ecrlog.eso

Retour à la liste

Numérotation des lignes :

  1. C ECRLOG SOURCE PV 11/04/08 21:15:37 6934
  2. SUBROUTINE ECRLOG(BRET)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCNOYAU
  5. -INC CCASSIS
  6. DIMENSION ITEMP(2)
  7. LOGICAL BRET
  8. ith=0
  9. if (nbesc.ne.0) call ooonth(ith)
  10. if (ith.eq.0) then
  11. ITEMP(2)=0
  12. C
  13. C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE
  14. C
  15. call poslog(bret,itemp(1))
  16. 60 CALL ECPI(ITEMP,'LOGIQUE ')
  17. RETURN
  18. else
  19. * cas de l'esclave
  20. mescla=imescl(ith)
  21. call ecresc(i)
  22. esoplu(i)=.false.
  23. esopty(i)='LOGIQUE'
  24. esoplo(i)=bret
  25. endif
  26. END
  27.  
  28.  
  29.  
  30.  

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