--- trunk/libf/dyn3d/rotat_nfil.f	2008/02/27 13:16:39	3
+++ trunk/dyn3d/rotat_nfil.f	2013/11/15 18:45:49	76
@@ -20,7 +20,7 @@
 c
 c   .....  variables en arguments  ......
 c
-      INTEGER klevel
+      INTEGER, intent(in):: klevel
       REAL rot( ip1jm,klevel )
       REAL x( ip1jmp1,klevel ), y( ip1jm,klevel )
 c