Télécharger posree.eso

Retour à la liste

Numérotation des lignes :

posree
  1. C POSREE SOURCE CB215821 19/11/18 21:15:03 10383
  2. subroutine posree(xxva,iplace)
  3. implicit integer (I-N)
  4. implicit real*8 (a-h,o-z)
  5. -INC CCNOYAU
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC CCASSIS
  10. C
  11. C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE
  12. * Pour preserver le cpu, on ne recherche la valeurs que parmi les 256 dernieres
  13. * de toute facon menage et tasree limiteront les degats
  14. C
  15. segact ipiloc
  16. IL=XIFLOT(/1)
  17. IF(IL.NE.0) THEN
  18. DO 55 J=max(1,LMNREE-256),LMNREE
  19. IF(XIFLOT(J).NE.XXVA) GOTO 55
  20. C LA VALEUR EXISTE DEJA EN J IEME POSITION
  21. Iplace=J
  22. if(nbesc.ne.0) SEGDES,IPILOC
  23. RETURN
  24. 55 CONTINUE
  25. ENDIF
  26.  
  27. C LA VALEUR N'EXISTE PAS
  28. segact ipiloc*mod
  29. LMNREE=LMNREE+1
  30. IF(LMNREE.GT.IL) THEN
  31. lmcc=ipchar(/1)
  32. lmmm=ichara(/1)
  33. lmll=iplogi(/1)
  34. LMxx=LMNREE + MAX(INT(REAL(LMNREE)*0.2D0),100)
  35. SEGADJ,IPILOC
  36. ENDIF
  37.  
  38. XIFLOT(LMNREE)=XXVA
  39. IPLACE=LMNREE
  40. if(nbesc.ne.0) THEN
  41. SEGDES,IPILOC
  42. else
  43. SEGACT,IPILOC*NOMOD
  44. endif
  45.  
  46. END
  47.  
  48.  
  49.  
  50.  

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