Télécharger poslog.eso

Retour à la liste

Numérotation des lignes :

  1. C POSLOG SOURCE PV 15/10/07 21:15:10 8664
  2. subroutine poslog (ibool,iplace)
  3. implicit integer (I-N)
  4. implicit real*8 (a-h,o-z)
  5. logical ibool
  6. -INC CCOPTIO
  7. -INC CCASSIS
  8. -INC CCNOYAU
  9. C
  10. C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE
  11. C
  12. segact ipiloc*mod
  13. il= iplogi(/1)
  14. if(il.ne.0) then
  15. DO 55 J=1,iplogi(/1)
  16. if(ibool.neqv.iplogi(j) ) go to 55
  17. iplace=j
  18. if(nbesc.ne.0) segdes ipiloc
  19. return
  20. 55 continue
  21. endif
  22. lmll = iplogi(/1)+1
  23. lmxx=xiflot(/1)
  24. lmcc=ipchar(/1)
  25. lmmm=ichara(/1)
  26. segadj ipiloc
  27. iplogi(lmll)=ibool
  28. iplace=lmll
  29. if(nbesc.ne.0) segdes ipiloc
  30. return
  31. end
  32.  
  33.  
  34.  

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