--- trunk/libf/dyn3d/vlsplt.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/vlsplt.f	2010/03/26 18:33:04	28
@@ -35,7 +35,8 @@
       REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
       REAL q(ip1jmp1,llm)
 c      REAL q(iip1,jjp1,llm)
-      REAL w(ip1jmp1,llm),pdt
+      REAL w(ip1jmp1,llm)
+      real, intent(in):: pdt
 c
 c      Local 
 c   ---------