--- trunk/libf/dyn3d/vlspltqs.f90	2011/04/13 12:29:18	44
+++ trunk/libf/dyn3d/vlspltqs.f90	2013/07/08 18:12:18	71
@@ -33,7 +33,7 @@
   real, intent(in):: pdt
   REAL, intent(in):: p(ip1jmp1, llmp1)
   real, intent(in):: teta(ip1jmp1, llm)
-  real pk(ip1jmp1, llm)
+  real, intent(in):: pk(ip1jmp1, llm)
 
   ! Local