--- trunk/phylmd/CV3_routines/cv3_undilute1.f	2014/04/04 11:30:34	96
+++ trunk/phylmd/CV3_routines/cv3_undilute1.f	2014/04/25 14:58:31	97
@@ -20,7 +20,7 @@
 
 
 ! inputs:
-      integer len, nd
+      integer, intent(in):: len, nd
       integer nk(len), icb(len)
       real, intent(in):: t(len,nd)
       real q(len,nd), qs(len,nd), gz(len,nd)