From ab99d6fe00662c6fff52544ba771be4dd45f14a3 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Sun, 31 May 2009 16:05:10 +0000
Subject: [PATCH] change dummy variable declarations to mathc caller
---
CASCADE/fluvial_erosion.f | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/CASCADE/fluvial_erosion.f b/CASCADE/fluvial_erosion.f
index 238e2bf5..fa3d3d03 100644
--- a/CASCADE/fluvial_erosion.f
+++ b/CASCADE/fluvial_erosion.f
@@ -59,12 +59,12 @@ c - find_order
common /vocal/ ivocal
- real*4 x(nnode),y(nnode),h(nnode),h0(nnode),hi(nnode)
- real*4 xkf(nnode),xlf_BR(nnode)
+ real x(nnode),y(nnode),h(nnode),h0(nnode),hi(nnode)
+ real xkf(nnode),xlf_BR(nnode)
real*4 surface(nnode),dhh(nnode)
real*4 water(nnode),sediment(nnode)
real*4 slope(nnode),length(nnode)
- integer*4 ndon(nnode)
+ integer ndon(nnode)
integer*4 ibucket(nnode)
real fix(nnode)
--
GitLab