--- trunk/libf/dyn3d/nxgrad_gam.f	2012/08/29 14:47:17	64
+++ trunk/libf/dyn3d/nxgrad_gam.f	2012/09/20 09:57:03	65
@@ -16,7 +16,7 @@
       use comgeom
       IMPLICIT NONE
 c
-      INTEGER klevel
+      INTEGER, intent(in):: klevel
       REAL rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel )
       INTEGER   l,ij
 c