--- trunk/libf/dyn3d/heavyside.f	2008/02/27 13:16:39	3
+++ trunk/dyn3d/heavyside.f	2014/03/05 14:57:53	82
@@ -1,23 +1,24 @@
-!
-! $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
-
-       REAL*8 heavyside , a
-
-       IF ( a.LE.0. )  THEN
-         heavyside = 0.
-       ELSE
-         heavyside = 1.
-       ENDIF
 
-       RETURN
-       END
+! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19
+! 12:53:06 lmdzadmin Exp $
+
+
+
+FUNCTION heavyside(a)
+
+  ! ...   P. Le Van  ....
+
+  IMPLICIT NONE
+
+  DOUBLE PRECISION heavyside, a
+
+  IF (a<=0.) THEN
+    heavyside = 0.
+  ELSE
+    heavyside = 1.
+  END IF
+
+  RETURN
+END FUNCTION heavyside