C COMFIN    SOURCE    PV        09/11/19    21:15:14     6544           
      SUBROUTINE COMFIN(ipil,iwrk52,wrk522)

*-
*       supprime le segment pilnec
*       ferme les melval 
*-
*----------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
-INC CCOPTIO
-INC SMCHAML
-INC DECHE
        SEGMENT NOMID 
             CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
        ENDSEGMENT

        liluc = ipil
        wrk52 = iwrk52
*     
        do jp = 1, liluc(/1)
           domdec = liluc(jp)
           nomid = jnomid
           pilnec = jilnec
           segsup,nomid,pilnec,domdec
        enddo

 
        segsup liluc,wrk52,wrk522

        return
        end