--- trunk/phylmd/CV3_routines/cv3_closure.f90	2013/11/15 18:45:49	76
+++ trunk/Sources/phylmd/CV3_routines/cv3_closure.f	2015/04/29 15:47:56	134
@@ -14,7 +14,7 @@
 
 
 ! input:
-      integer ncum, nd, nloc
+      integer, intent(in):: ncum, nd, nloc
       integer icb(nloc), inb(nloc)
       real pbase(nloc)
       real p(nloc,nd), ph(nloc,nd+1)