From 6b9cdd0071fc03c71677ddb287918b3ad3906bcf Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 6 Sep 2021 11:10:41 -0400 Subject: [PATCH] Allow mapsim to generate SNRs greater than 0.0 dB. --- map65/libm65/mapsim.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/map65/libm65/mapsim.f90 b/map65/libm65/mapsim.f90 index 2290e0662..e58485f6c 100644 --- a/map65/libm65/mapsim.f90 +++ b/map65/libm65/mapsim.f90 @@ -135,7 +135,7 @@ program mapsim dphi=twopi*f*dt + 0.5*twopi snrdbx=snrdb - if(snrdb.ge.-1.0) snrdbx=-15.0 - 15.0*(isig-1.0)/nsigs + if(snrdb.eq.0.0) snrdbx=-15.0 - 15.0*(isig-1.0)/nsigs sig=sqrt(2.2*2500.0/96000.0) * 10.0**(0.05*snrdbx) write(*,1020) ifile,isig,mode,dt0,0.001*f,nint(pol),fDop,snrdbx,msgsent 1020 format(i3,i3,2x,a2,f6.2,f8.3,i5,2f7.1,2x,a22)