--- trunk/libf/phylmd/CV3_routines/cv3_feed.f90	2011/07/01 15:00:48	47
+++ trunk/libf/phylmd/CV3_routines/cv3_feed.f90	2011/09/23 12:28:01	52
@@ -21,7 +21,8 @@
 
 ! inputs:
         integer len, nd
-      real t(len,nd), q(len,nd), qs(len,nd), p(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)
       real ph(len,nd+1)