--- trunk/phylmd/CV_routines/cv_closure.f	2014/03/05 14:57:53	82
+++ trunk/phylmd/CV_routines/cv_closure.f	2014/04/25 14:58:31	97
@@ -7,7 +7,7 @@
       implicit none
 
 ! inputs:
-      integer ncum, nd, nloc
+      integer, intent(in):: ncum, nd, nloc
       integer nk(nloc), icb(nloc)
       real tv(nloc,nd), tvp(nloc,nd), p(nloc,nd), dph(nloc,nd)
       real ph(nloc,nd+1) ! caution nd instead ndp1 to be consistent...