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