From a23e2b6f8be34e5f4250559c5e21b3c7f2a713cb Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Wed, 6 Jun 2018 11:21:00 -0500 Subject: [PATCH] Fix a bug that caused some second-decoding-attempt log-likelihoods to become NaN. --- lib/ft8/ft8b_1.f90 | 2 +- lib/ft8/ft8b_2.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/ft8/ft8b_1.f90 b/lib/ft8/ft8b_1.f90 index 954354bc2..784329374 100644 --- a/lib/ft8/ft8b_1.f90 +++ b/lib/ft8/ft8b_1.f90 @@ -179,7 +179,7 @@ subroutine ft8b_1(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, & bmetap(i2)=r2 bmetap(i1)=r1 ! Max log metric - psl=log(ps) + psl=log(ps+1e-32) r1=max(psl(1),psl(3),psl(5),psl(7))-max(psl(0),psl(2),psl(4),psl(6)) r2=max(psl(2),psl(3),psl(6),psl(7))-max(psl(0),psl(1),psl(4),psl(5)) r4=max(psl(4),psl(5),psl(6),psl(7))-max(psl(0),psl(1),psl(2),psl(3)) diff --git a/lib/ft8/ft8b_2.f90 b/lib/ft8/ft8b_2.f90 index 07e3ae3b6..991e141bc 100644 --- a/lib/ft8/ft8b_2.f90 +++ b/lib/ft8/ft8b_2.f90 @@ -179,7 +179,7 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, & bmetap(i2)=r2 bmetap(i1)=r1 ! Max log metric - psl=log(ps) + psl=log(ps+1e-32) r1=max(psl(1),psl(3),psl(5),psl(7))-max(psl(0),psl(2),psl(4),psl(6)) r2=max(psl(2),psl(3),psl(6),psl(7))-max(psl(0),psl(1),psl(4),psl(5)) r4=max(psl(4),psl(5),psl(6),psl(7))-max(psl(0),psl(1),psl(2),psl(3))