Télécharger ecresc.eso

Retour à la liste

Numérotation des lignes :

  1. C ECRESC SOURCE PV 11/04/08 21:15:33 6934
  2. C retourne une position libre dans la pile esclave
  3. C
  4. SUBROUTINE ECRESC(IPOS)
  5. IMPLICIT INTEGER(I-N)
  6. -INC CCASSIS
  7. ith=0
  8. call ooonth(ith)
  9. mescla=imescl(ith)
  10. do 10 i=1,100
  11. if (esoplu(i)) goto 10
  12. goto 11
  13. 10 continue
  14. i=101
  15. 11 continue
  16. i=i-1
  17. if (i.eq.0) then
  18. * faire un peu de place
  19. do 20 i=90,1,-1
  20. esoplu(i+10)=esoplu(i)
  21. esopty(i+10)=esopty(i)
  22. esopva(i+10)=esopva(i)
  23. esopch(i+10)=esopch(i)
  24. esoplo(i+10)=esoplo(i)
  25. esopre(i+10)=esopre(i)
  26. 20 continue
  27. do 30 i=1,10
  28. esoplu(i)=.true.
  29. 30 continue
  30. i=10
  31. endif
  32. ipos=i
  33. end
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  

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