add ndepth and npass to ft8d.f90

This commit is contained in:
Pavel Demin 2018-03-26 08:37:27 +02:00
parent 6dd9970544
commit 17fb21b427

View File

@ -48,7 +48,9 @@ program ft8d
ndecodes=0 ndecodes=0
allmessages=' ' allmessages=' '
allsnrs=0 allsnrs=0
do ipass=1,3 ndepth=1
npass=1
do ipass=1,npass
newdat=.true. newdat=.true.
syncmin=1.5 syncmin=1.5
if(ipass.eq.1) then if(ipass.eq.1) then