--- trunk/libf/dyn3d/pentes_ini.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/pentes_ini.f	2010/04/01 14:59:19	31
@@ -30,7 +30,7 @@
 c   Arguments:
 c   ----------
       integer mode
-      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
+      REAL, intent(in):: pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
       REAL q( iip1,jjp1,llm,0:3)
       REAL w( ip1jmp1,llm )
       REAL masse( iip1,jjp1,llm)