2018-04-03 10:55:55 -04:00
|
|
|
subroutine wsprcpm_wav(baud,xdt,h,f0,itone,snrdb,iwave)
|
2018-03-22 10:21:39 -04:00
|
|
|
|
|
|
|
|
! Generate iwave() from itone().
|
|
|
|
|
|
|
|
|
|
include 'wsprcpm_params.f90'
|
|
|
|
|
parameter (NMAX=120*12000)
|
|
|
|
|
integer itone(NN)
|
|
|
|
|
integer*2 iwave(NMAX)
|
|
|
|
|
real*8 twopi,dt,dphi0,dphi1,dphi,phi
|
|
|
|
|
real dat(NMAX)
|
|
|
|
|
|
|
|
|
|
twopi=8.d0*atan(1.d0)
|
|
|
|
|
dt=1.d0/12000.d0
|
|
|
|
|
|
|
|
|
|
dat=0.
|
|
|
|
|
if(snrdb.lt.90) then
|
|
|
|
|
do i=1,NMAX
|
|
|
|
|
dat(i)=gran() !Generate gaussian noise
|
|
|
|
|
enddo
|
|
|
|
|
bandwidth_ratio=2500.0/6000.0
|
|
|
|
|
sig=sqrt(2*bandwidth_ratio)*10.0**(0.05*snrdb)
|
|
|
|
|
else
|
|
|
|
|
sig=1.0
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
phi=0.d0
|
|
|
|
|
k=nint(xdt/dt)
|
|
|
|
|
do j=1,NN
|
2018-04-03 10:55:55 -04:00
|
|
|
dphi=twopi*(f0+itone(j)*(h/2.0d0)*baud)*dt
|
2018-03-22 10:21:39 -04:00
|
|
|
do i=1,NSPS0
|
|
|
|
|
k=k+1
|
|
|
|
|
phi=phi+dphi
|
|
|
|
|
if(phi.gt.twopi) phi=phi-twopi
|
|
|
|
|
xphi=phi
|
|
|
|
|
if(k.gt.0 .and. k.le.NMAX) dat(k)=dat(k) + sig*sin(xphi)
|
|
|
|
|
enddo
|
|
|
|
|
enddo
|
|
|
|
|
fac=32767.0
|
|
|
|
|
rms=100.0
|
|
|
|
|
if(snrdb.ge.90.0) iwave=nint(fac*dat)
|
|
|
|
|
if(snrdb.lt.90.0) iwave=nint(rms*dat)
|
|
|
|
|
|
|
|
|
|
return
|
|
|
|
|
end subroutine wsprcpm_wav
|
