From 038405bc1e562fe56484f692c22ce7817bfbf75e Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 12 Nov 2018 11:44:55 -0500 Subject: [PATCH] Don't allow divide-by-0 for pathological JT4 signal. --- lib/sync4.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/sync4.f90 b/lib/sync4.f90 index d8a130d28..a15177665 100644 --- a/lib/sync4.f90 +++ b/lib/sync4.f90 @@ -139,8 +139,10 @@ subroutine sync4(dat,jz,ntol,nfqso,mode,mode4,minwidth,dtx,dfx,snrx, & ns=ns+1 endif enddo - rms=sqrt(sq/ns) + rms=0.1 + if(ns.gt.0) rms=sqrt(sq/ns) snrx=10.0*log10(ccfred(ipk1a)/rms) - 41.2 + if(snrx.gt.50.0) snrx=50.0 900 return end subroutine sync4