--- trunk/libf/dyn3d/diverg_gam.f	2008/02/27 13:16:39	3
+++ trunk/dyn3d/diverg_gam.f	2013/11/15 18:45:49	76
@@ -28,7 +28,7 @@
 c
 c    ..........          variables en arguments    ...................
 c
-      INTEGER klevel
+      INTEGER, intent(in):: klevel
       REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel )
       REAL cuvscvgam(ip1jm),cvuscugam(ip1jmp1),unsairegam(ip1jmp1)
       REAL unsapolnga,unsapolsga