w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 22:52:25 -04:00
Code Issues Packages Projects Releases Wiki Activity

More updates...

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7656 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-04-27 19:08:52 +00:00
parent ffa55cc1dd
commit 87c326a939
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/fsk4hf/wspr5sim.f90
View File

@ -25,8 +25,6 @@ program wspr5sim
read(arg,*) snrdb read(arg,*) snrdb
call genwspr5(msg,ichk,msgsent,itone,itype) call genwspr5(msg,ichk,msgsent,itone,itype)
write(*,1234) itone(1:20)
1234 format(20i3)
txt=NN*NSPS0/12000.0 txt=NN*NSPS0/12000.0
write(*,1000) f0,xdt,txt,snrdb,nfiles,msgsent write(*,1000) f0,xdt,txt,snrdb,nfiles,msgsent
@ -59,8 +57,6 @@ program wspr5sim
if(phi.gt.twopi) phi=phi-twopi if(phi.gt.twopi) phi=phi-twopi
xphi=phi xphi=phi
c0(k)=cmplx(cos(xphi),sin(xphi)) c0(k)=cmplx(cos(xphi),sin(xphi))
! write(39,3039) k,-c0(k)
!3039 format(i8,2f12.6)
enddo enddo
enddo enddo
c0=sig*c0 !Scale to requested sig level c0=sig*c0 !Scale to requested sig level