change dummy variable declarations to mathc caller

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)