--- trunk/libf/dyn3d/advtrac.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/advtrac.f90	2008/04/18 14:45:53	10
@@ -32,7 +32,8 @@
   INTEGER iapptrac
   REAL pbaru(ip1jmp1,llm), pbarv(ip1jm,llm)
   REAL q(ip1jmp1,llm,nqmx), masse(ip1jmp1,llm)
-  REAL p(ip1jmp1,llmp1), teta(ip1jmp1,llm)
+  REAL, intent(in):: p(ip1jmp1,llmp1)
+  real teta(ip1jmp1,llm)
   REAL pk(ip1jmp1,llm)
 
   !-------------------------------------------------------------