cosmetic change.

This commit is contained in:
Steven Franke 2020-06-15 17:25:30 -05:00
parent 76566aca7b
commit 68747a5e12

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