diff --git a/CASCADE/fluvial_erosion.f b/CASCADE/fluvial_erosion.f
index 238e2bf5d12fe2115f04b3d6dcba2c27ff433478..fa3d3d03d9aec56f2e7537c22d6321e104590ec8 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)