--- trunk/libf/dyn3d/divergf.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/divergf.f	2011/12/12 13:25:01	55
@@ -13,6 +13,7 @@
       use dimens_m
       use paramet_m
       use comgeom
+      use filtreg_m, only: filtreg
       IMPLICIT NONE
 c
 c      x  et  y  sont des arguments  d'entree pour le s-prog
@@ -27,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