--- trunk/dyn3d/heavyside.f	2015/02/24 15:43:51	130
+++ trunk/dyn3d/heavyside.f	2015/02/27 16:44:07	131
@@ -1,24 +1,25 @@
+module heavyside_m
 
-! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19
-! 12:53:06 lmdzadmin Exp $
-
+  IMPLICIT NONE
 
+contains
 
-FUNCTION heavyside(a)
+  real FUNCTION heavyside(a)
 
-  ! ...   P. Le Van  ....
+    ! From LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19 12:53:06
 
-  IMPLICIT NONE
+    ! ...   P. Le Van  ....
 
-  DOUBLE PRECISION heavyside, a
+    real, intent(in):: a
 
-  IF (a<=0.) THEN
-    heavyside = 0.
-  ELSE
-    heavyside = 1.
-  END IF
+    !-------------------------------------------------
 
-  RETURN
-END FUNCTION heavyside
+    IF (a<=0.) THEN
+       heavyside = 0.
+    ELSE
+       heavyside = 1.
+    END IF
 
+  END FUNCTION heavyside
 
+end module heavyside_m