--- trunk/libf/dyn3d/divergf.f	2010/03/25 14:29:07	27
+++ trunk/libf/dyn3d/divergf.f	2011/12/12 13:25:01	55
@@ -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 )
       INTEGER   l,ij
 c