--- trunk/dyn3d/heavyside.f	2013/11/15 18:45:49	76
+++ trunk/dyn3d/heavyside.f	2018/02/05 10:39:38	254
@@ -1,23 +1,25 @@
-!
-! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $
-!
-c
-c
-       FUNCTION heavyside(a)
-
-c      ...   P. Le Van  ....
-c
-       IMPLICIT NONE
-
-       DOUBLE PRECISION heavyside , a
-
-       IF ( a.LE.0. )  THEN
-         heavyside = 0.
-       ELSE
-         heavyside = 1.
-       ENDIF
+module heavyside_m
 
-       RETURN
-       END
+  IMPLICIT NONE
 
+contains
 
+  real FUNCTION heavyside(a)
+
+    ! From LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19 12:53:06
+
+    ! ...   P. Le Van  ....
+
+    real, intent(in):: a
+
+    !-------------------------------------------------
+
+    IF (a<=0.) THEN
+       heavyside = 0.
+    ELSE
+       heavyside = 1.
+    END IF
+
+  END FUNCTION heavyside
+
+end module heavyside_m