--- trunk/libf/dyn3d/rotatf.f	2010/03/25 14:29:07	27
+++ 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
@@ -46,7 +46,7 @@
 c
   10  CONTINUE
 
-        CALL filtreg( rot, jjm, klevel, 2, 2, .FALSE., 1 )
+        CALL filtreg( rot, jjm, klevel, 2, 2, .FALSE.)
       
         DO l = 1, klevel
           DO ij = 1, ip1jm