--- trunk/libf/dyn3d/laplacien_gam.f	2010/03/25 14:29:07	27
+++ trunk/libf/dyn3d/laplacien_gam.f	2011/12/12 13:25:01	55
@@ -22,7 +22,7 @@
 c
 c    ............     variables  en arguments    ..........
 c
-      INTEGER klevel
+      INTEGER, intent(in):: klevel
       REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
       REAL cuvsga(ip1jm) , cvusga( ip1jmp1 ),unsaigam(ip1jmp1),
      *     unsapolnga, unsapolsga