Télécharger clibpi.eso

Retour à la liste

Numérotation des lignes :

  1. C CLIBPI SOURCE PV 16/11/26 21:15:10 9205
  2. subroutine clibpi(icolac)
  3. C=======================================================================
  4. C sous-programme clibpi (COLlaborateur LIBere PIles)
  5. C Desallocation d'un segment ICOLAC
  6. C Note : variation basse sur la sous-routine SUPPIL mais
  7. C impossible de se servir de cette derniere tel quel car elle va
  8. C taper directement dans le common IPSAUV
  9. C Suppression de l'argument ivoulu qui permettait a SUPPIL de
  10. C soit : supprimer les piles ou les sauvegarder
  11. C Ceci est remplacé par deux sous-routinea différentes
  12. C Entree :
  13. C ICOLAC: pointeur vers le segment ICOLAC a supprimer
  14. C=======================================================================
  15. integer i
  16. integer nitlac
  17. -INC TMCOLAC
  18. if (icolac.eq.0) return
  19. C* Desactivation de l'horodatage pour pouvoir supprimer les segments
  20. C* pointes dans ICOLAC et qui ont ete crees dans un precedent operateur
  21. call ooohor(0,0)
  22. segact icolac*mod
  23. nitlac=kcola(/1)
  24. do i=1,nitlac
  25. itlacc=kcola(i)
  26. if (itlacc.ne.0) then
  27. call libseg(itlacc)
  28. segdes itlacc
  29. segsup itlacc
  30. endif
  31. isgtr=icola(i)
  32. if (isgtr.ne.0) then
  33. call libseg(isgtr)
  34. segdes isgtr
  35. segsup isgtr
  36. endif
  37. enddo
  38. ilisse=ilissg
  39. if (ilisse.ne.0) then
  40. call libseg(ilisse)
  41. segdes ilisse
  42. segsup ilisse
  43. endif
  44. call libseg(icolac)
  45. segdes icolac
  46. segsup icolac
  47. icolac = 0
  48. end
  49.  
  50.  
  51.  

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