Télécharger posree.eso

Retour à la liste

Numérotation des lignes :

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

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