Télécharger la plaquette Cast3M


fr en

Télécharger clibpi.eso

Retour à la liste

Numérotation des lignes : 

clibpi

  1. C CLIBPI    SOURCE    CB215821  19/07/30    21:15:38     10273          
  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)
  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.  
  52.  
  53.  

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