--- trunk/libf/phylmd/CV_routines/cv_trigger.f90	2011/09/23 12:28:01	52
+++ trunk/phylmd/CV_routines/cv_trigger.f	2014/08/29 13:00:05	103
@@ -1,6 +1,6 @@
 
       SUBROUTINE cv_trigger(len,nd,icb,cbmf,tv,tvp,iflag)
-            use cvparam
+            use cv_param
       implicit none
 
 !-------------------------------------------------------------------
@@ -11,8 +11,8 @@
 
 
 ! inputs:
-       integer len, nd, icb(len)
-       real cbmf(len), tv(len,nd), tvp(len,nd)
+       integer, intent(in):: len, nd, icb(len)
+       real, intent(in):: cbmf(len), tv(len,nd), tvp(len,nd)
 
 ! outputs:
        integer iflag(len) ! also an input