--- trunk/phylmd/CV_routines/cv_prelim.f	2014/03/05 14:57:53	82
+++ trunk/phylmd/CV_routines/cv_prelim.f	2014/04/25 14:58:31	97
@@ -10,7 +10,7 @@
 !=====================================================================
 
 ! inputs:
-      integer len, nd, ndp1
+      integer, intent(in):: len, nd, ndp1
       real, intent(in):: t(len,nd)
       real q(len,nd), p(len,nd), ph(len,ndp1)