From f948ba7c297d97bf7ff99b3d2772a10d837ef2b6 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sun, 6 Dec 2020 08:12:16 -0500
Subject: [PATCH] Allow fDop = 0.0 in test_q65.

---
 lib/test_q65.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/test_q65.f90 b/lib/test_q65.f90
index 77b3d106c..d8c1f0763 100644
--- a/lib/test_q65.f90
+++ b/lib/test_q65.f90
@@ -55,7 +55,7 @@ program test_q65
      stop 'Invalid TR period'
   endif
 
-  i50=i50 + 8.0*log(fDop)/log(240.0)
+  i50=i50 + 8.0*log(1.0+fDop)/log(240.0)
   ia=i50 + 7
   ib=i50 - 10
   if(snr.ne.0.0) then