Prevent a crash when widegraph lower limit is 0 Hz.

This commit is contained in:
Steven Franke 2021-03-10 13:10:47 -06:00
parent 79133f15c6
commit 1d590b81f5
1 changed files with 1 additions and 1 deletions

View File

@ -581,7 +581,7 @@ subroutine q65_write_red(iz,xdt,ccf2_avg,ccf2)
rewind 17
write(17,1000) xdt
do i=nint(nfa/df),nint(nfb/df)
do i=max(1,nint(nfa/df)),nint(nfb/df)
freq=i*df
write(17,1000) freq,ccf2_avg(i),ccf2(i)
1000 format(f10.3,2e12.3)