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