--- trunk/libf/dyn3d/heavyside.f	2008/02/27 13:16:39	3
+++ 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.