--- trunk/libf/dyn3d/dteta1.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/dteta1.f	2011/04/08 12:43:31	43
@@ -5,6 +5,8 @@
       use dimens_m
       use paramet_m
       use logic
+      use filtreg_m, only: filtreg
+
       IMPLICIT NONE
 
 c=======================================================================
@@ -24,7 +26,8 @@
 
 
 
-      REAL teta( ip1jmp1,llm ),pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
+      REAL, intent(in):: teta( ip1jmp1,llm )
+      real pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
       REAL dteta( ip1jmp1,llm )
       INTEGER   l,ij