Protect against NaN in savg() after switch from Q65 to JT65 mode.

2021-10-19 10:01:47 -04:00 · 2021-10-19 10:01:47 -04:00 · 089e0b9ebe
parent 226c59982b
commit 089e0b9ebe
1 changed files with 1 additions and 0 deletions
--- a/lib/jt65_decode.f90
+++ b/lib/jt65_decode.f90
@ -162,6 +162,7 @@ contains
          ib=min(NSZ,nint((nfb+100)/df))
          nz=ib-ia+1
          if(nz.lt.50) go to 900
+          if(isnan(sum(savg(ia:ia+nz-1)))) go to 900
          call lorentzian(savg(ia),nz,a)
          baseline=a(1)
          amp=a(2)