--- trunk/phylmd/zilch.f	2013/11/15 18:45:49	76
+++ trunk/phylmd/zilch.f90	2014/03/05 14:38:41	81
@@ -1,17 +1,19 @@
-!
-! $Header: /home/cvsroot/LMDZ4/libf/phylmd/zilch.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $
-!
-      subroutine zilch(x,m)
-c
-c Zero the real array x dimensioned m.
-c
-      implicit none
-c
-      integer, intent(in):: m
-      integer i
-      real x(m)
-      do 1 i=1,m
-      x(i)= 0.0  
-    1 continue
-      return
-      end
+
+! $Header: /home/cvsroot/LMDZ4/libf/phylmd/zilch.F,v 1.1.1.1 2004/05/19
+! 12:53:09 lmdzadmin Exp $
+
+SUBROUTINE zilch(x, m)
+
+  ! Zero the real array x dimensioned m.
+
+  IMPLICIT NONE
+
+  INTEGER, INTENT (IN) :: m
+  INTEGER i
+  REAL x(m)
+
+  DO i = 1, m
+    x(i) = 0.0
+  END DO
+  RETURN
+END SUBROUTINE zilch