Esope source files

   1 : C COMFIN    SOURCE    PV        09/11/19    21:15:14     6544           
   2 :       SUBROUTINE COMFIN(ipil,iwrk52,wrk522)
   3 : 
   4 : *-
   5 : *       supprime le segment pilnec
   6 : *       ferme les melval 
   7 : *-
   8 : *----------------------------------------------------------------
   9 :       IMPLICIT INTEGER(I-N)
  10 :       IMPLICIT REAL*8(A-H,O-Z)
  11 : -INC CCOPTIO
  12 : -INC SMCHAML
  13 : -INC DECHE
  14 :         SEGMENT NOMID 
  15 :              CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  16 :         ENDSEGMENT
  17 : 
  18 :         liluc = ipil
  19 :         wrk52 = iwrk52
  20 : *     
  21 :         do jp = 1, liluc(/1)
  22 :            domdec = liluc(jp)
  23 :            nomid = jnomid
  24 :            pilnec = jilnec
  25 :            segsup,nomid,pilnec,domdec
  26 :         enddo
  27 : 
  28 :  
  29 :         segsup liluc,wrk52,wrk522
  30 : 
  31 :         return
  32 :         end
  33 :  
  34 :  
  35 :  
  36 : 
  37 :  
  38 :  
  39 :  
  40 :  
  41 :  
  42 :  
  43 :  
  44 :