--- trunk/libf/dyn3d/laplacien.f	2010/03/25 14:29:07	27
+++ trunk/libf/dyn3d/laplacien.f	2011/12/12 13:25:01	55
@@ -21,7 +21,7 @@
 c
 c    .........      variables  en arguments   ..............
 c
-      INTEGER klevel
+      INTEGER, intent(in):: klevel
       REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
 c
 c    ............     variables  locales      ..............