diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index 65683dd71..2133294ef 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -781,9 +781,8 @@ subroutine q65_snr(dat4,dtdec,f0dec,mode_q65,nused,snr2) sig_area=sum(spec(ia+nsum:ib-nsum)-1.0) w_equiv=sig_area/(smax-1.0) snr2=db(max(1.0,sig_area)) - db(2500.0/df) - if(nused.eq.2) snr2=snr2 - 1.5 - if(nused.eq.3) snr2=snr2 - 2.4 - if(nused.ge.4) snr2=snr2 - 3.0 +! NB: No adjustment to SNR is now made for nused>1, because that process did +! not seem to work as expected. return end subroutine q65_snr