for extckh

CASCADE/check_mesh.f

@@ -132,7 +132,8 @@ c - delaun
       real              xx(2),pp(2,nbmax),aa(nbmax,2),bb(nbmax)
       integer           nkcon(*),ndon(*)
       integer           kcon(ntmax,*),itadd(*),jtadd(*)
-
+      integer subset(2)
+      
 c      if (ivocal.eq.1) write (22,*) 'time step : ',itime
 
 c fluxmax_erosion is the maximum flux allowed before a new node must

CASCADE/nn_remove.f

@@ -622,7 +622,7 @@ c
         real*8		x,y,dx,dy,dist
         real*8		eps
         logical		debug_mode
-        logical		ldummy
+        logical		ldummy(2)
         common		/debug_nn_remove/debug_mode
 	common 	        /roundoff/eps
 c						check error conditions