From 668a51ccadfaaac8c8e27d487f38b28aa02e0feb Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Sat, 20 Oct 2018 00:26:06 +0200
Subject: [PATCH] fix psl in ft8b.f90

---
 ft8b.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ft8b.f90 b/ft8b.f90
index 335db2f..a131fe5 100644
--- a/ft8b.f90
+++ b/ft8b.f90
@@ -169,7 +169,7 @@ subroutine ft8b(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))