--- trunk/libf/phylmd/CV3_routines/cv3_trigger.f90	2013/07/23 13:00:07	72
+++ trunk/Sources/phylmd/CV30_routines/cv3_trigger.f	2016/03/16 14:50:46	184
@@ -21,9 +21,9 @@
 
 
 ! input:
-      integer len, nd
+      integer, intent(in):: len, nd
       integer icb(len)
-      real plcl(len), p(len,nd)
+      real, intent(in):: plcl(len), p(len,nd)
       real th(len,nd), tv(len,nd), tvp(len,nd)
 
 ! output: