cosmetic change.

This commit is contained in:
Steven Franke 2020-06-15 17:25:30 -05:00 committed by Bill Somerville
parent 72a1a03db1
commit 2eca4001a0
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F

View File

@ -403,8 +403,8 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon, &
dmin=0.0
norder=2
maxosd=2
if(ndepth.eq.2) maxosd=0
if(ndepth.eq.1) maxosd=-1
if(ndepth.eq.1) maxosd=-1 ! BP only
if(ndepth.eq.2) maxosd=0 ! uncoupled BP+OSD
if(ndepth.eq.3 .and. &
(abs(nfqso-f1).le.napwid .or. abs(nftx-f1).le.napwid .or. ncontest.eq.7)) then
maxosd=2