--- trunk/libf/dyn3d/heavyside.f	2013/06/24 15:39:52	70
+++ trunk/libf/dyn3d/heavyside.f	2013/07/08 18:12:18	71
@@ -9,7 +9,7 @@
 c
        IMPLICIT NONE
 
-       REAL*8 heavyside , a
+       DOUBLE PRECISION heavyside , a
 
        IF ( a.LE.0. )  THEN
          heavyside = 0.