From 9d2d7f33b401ac8c791136ca393c6cd6a65c4393 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Mon, 1 Jun 2009 01:39:11 +0000
Subject: [PATCH] for extckh
---
CASCADE/check_mesh.f | 3 ++-
CASCADE/nn_remove.f | 2 +-
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/CASCADE/check_mesh.f b/CASCADE/check_mesh.f
index 3d30c5ec..5380fdf1 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 2809b2f5..986acf3d 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
--
GitLab