diff --git a/CASCADE/check_mesh.f b/CASCADE/check_mesh.f
index 3d30c5ec64486ea908f432fa70c9e021e21ba378..5380fdf1dcc5b75d9e18c8c4d73fb8355ba88d37 100644
--- a/CASCADE/check_mesh.f
+++ b/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
diff --git a/CASCADE/nn_remove.f b/CASCADE/nn_remove.f
index 2809b2f521ec6819d77809f08ed2286c8378a29c..986acf3d7cf3b91ea737af0d79d7d1d417165941 100644
--- a/CASCADE/nn_remove.f
+++ b/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