diff --git a/ft8d.f90 b/ft8d.f90
index 384d669..7d9a6d7 100644
--- a/ft8d.f90
+++ b/ft8d.f90
@@ -48,7 +48,9 @@ program ft8d
     ndecodes=0
     allmessages='                      '
     allsnrs=0
-    do ipass=1,3
+    ndepth=1
+    npass=1
+    do ipass=1,npass
       newdat=.true.
       syncmin=1.5
       if(ipass.eq.1) then