--- trunk/libf/phylmd/CV_routines/cv_feed.f90	2011/09/23 12:28:01	52
+++ trunk/phylmd/CV_routines/cv_feed.f	2014/04/25 14:58:31	97
@@ -10,7 +10,7 @@
 
 
 ! inputs:
-        integer len, nd
+        integer, intent(in):: len, nd
       real, intent(in):: t(len,nd)
       real q(len,nd), qs(len,nd), p(len,nd)
       real hm(len,nd), gz(len,nd)