Télécharger ecrlog.eso

Retour à la liste

Numérotation des lignes :

  1. C ECRLOG SOURCE PV 18/10/17 11:49:08 9965
  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) ith=oothrd
  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.  
  31.  
  32.  
  33.  
  34.  
  35.  

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