Télécharger posree.eso

Retour à la liste

Numérotation des lignes :

  1. C POSREE SOURCE PV 15/10/07 21:15:11 8664
  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. C
  11. segact ipiloc*mod
  12. IL=XIFLOT(/1)
  13. IF(IL.NE.0) THEN
  14. DO 55 J=1,LMNREE
  15. IF(XIFLOT(J).NE.XXVA) GO TO 55
  16. C LA VALEUR EXISTE DEJA EN J IEME POSITION
  17. Iplace=J
  18. if(nbesc.ne.0) segdes ipiloc
  19. RETURN
  20. 55 CONTINUE
  21. ENDIF
  22. C LA VALEUR N'EXISTE PAS
  23. LMNREE=LMNREE+1
  24. IF(LMNREE.GT.IL) THEN
  25. lmcc=ipchar(/1)
  26. lmmm=ichara(/1)
  27. lmll=iplogi(/1)
  28. LMxx=LMNREE+100
  29. SEGADJ IPILOC
  30. ENDIF
  31. XIFLOT(LMNREE)=XXVA
  32. IPLACE=LMNREE
  33. if(nbesc.ne.0) segdes ipiloc
  34. RETURN
  35. END
  36.  
  37.  
  38.  

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