C LIBPIL SOURCE CB215821 19/07/30 21:17:10 10273 C======================================================================= C CE SOUPROGRAMME LIBERE DU NOYAU PUIS DETRUIT LA PILE ICOLAC ET LES C PILES ASSOCIEES C======================================================================= C SUBROUTINE LIBPIL (ICOLAC) C IMPLICIT INTEGER(I-N) C -INC TMCOLAC C IF (ICOLAC.EQ.0) RETURN C* Desactivation de l'horodatage pour pouvoir supprimer les segments C* pointes dans ICOLAC et qui ont ete crees dans un precedent operateur CALL ooohor(0) SEGACT,ICOLAC NITLAC = KCOLA(/1) DO I = 1, NITLAC ITLACC = KCOLA(I) IF (ITLACC.NE.0) THEN CALL LIBSEG(ITLACC) SEGSUP,ITLACC ENDIF ISGTR = ICOLA(I) IF (ISGTR.NE.0) THEN CALL LIBSEG(ISGTR) SEGSUP,ISGTR ENDIF ENDDO ILISSE = ILISSG IF (ILISSE.NE.0) THEN CALL LIBSEG(ILISSE) SEGSUP,ILISSE ENDIF CALL LIBSEG(ICOLAC) SEGSUP,ICOLAC ICOLAC = 0 RETURN END