--- trunk/libf/dyn3d/rotatf.f	2012/08/29 14:47:17	64
+++ trunk/libf/dyn3d/rotatf.f	2012/09/20 09:57:03	65
@@ -21,9 +21,9 @@
 c
 c   .....  variables en arguments  ......
 c
-      INTEGER klevel
+      INTEGER, intent(in):: klevel
       REAL rot( ip1jm,klevel )
-      REAL x( ip1jmp1,klevel ), y( ip1jm,klevel )
+      REAL, intent(in):: x( ip1jmp1,klevel ), y( ip1jm,klevel )
 c
 c  ...   variables  locales  ...
 c