--- trunk/libf/phylmd/CV3_routines/cv3_prelim.f90	2011/09/20 09:14:34	51
+++ trunk/libf/phylmd/CV3_routines/cv3_prelim.f90	2011/09/23 12:28:01	52
@@ -13,7 +13,8 @@
 
 ! inputs:
       integer len, nd, ndp1
-      real t(len,nd), q(len,nd), p(len,nd), ph(len,ndp1)
+      real, intent(in):: t(len,nd)
+      real q(len,nd), p(len,nd), ph(len,ndp1)
 
 ! outputs:
       real lv(len,nd), cpn(len,nd), tv(len,nd)