From 2eca4001a074fdfea40bb5eb443121bf1918a8ed Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Mon, 15 Jun 2020 17:25:30 -0500 Subject: [PATCH] cosmetic change. --- lib/ft8/ft8b.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/ft8/ft8b.f90 b/lib/ft8/ft8b.f90 index b4b8c737b..246541461 100644 --- a/lib/ft8/ft8b.f90 +++ b/lib/ft8/ft8b.f90 @@ -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