--- trunk/libf/phylmd/zilch.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/zilch.f	2013/02/18 16:33:12	69
@@ -7,7 +7,8 @@
 c
       implicit none
 c
-      integer m,i
+      integer, intent(in):: m
+      integer i
       real x(m)
       do 1 i=1,m
       x(i)= 0.0