--- trunk/libf/dyn3d/tourpot.f	2012/01/30 12:54:02	57
+++ trunk/libf/dyn3d/tourpot.f	2012/08/29 14:47:17	64
@@ -61,7 +61,7 @@
    5  CONTINUE
 
 
-      CALL  filtreg( rot, jjm, llm, 2, 1, .FALSE., 1 )
+      CALL  filtreg( rot, jjm, llm, 2, 1, .FALSE.)
 
 
       DO 10 l = 1, llm