w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-04 08:21:17 -05:00
Code Issues Packages Projects Releases Wiki Activity

Minor corrections to mapsim.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2558 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2012-09-05 15:07:33 +00:00
parent 07c0df1be4
commit 73be1b0fcd
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
libm65/cgen65.f90
View File

@ -44,7 +44,7 @@ subroutine cgen65(message,mode65,nfast,samfac,nsendingsh,msgsent,cwave,nwave)
tsymbol=4096.d0/(nfast*11025.d0) !Time per symbol
else
nsendingsh=1 !Flag for shorthand message
nsym=32
nsym=32/nfast
tsymbol=16384.d0/11025.d0
endif

3
libm65/mapsim.f90
View File

@ -87,7 +87,8 @@ program mapsim
if(npol.lt.0) pol=(isig-1)*180.0/nsigs
a=cos(pol/rad)
b=sin(pol/rad)
f=1000.0*(f1 + (isig-1)*(f2-f1)/(nsigs-1.0))
f=1000.0*(f1+f2)/2.0
if(nsigs.gt.1) f=1000.0*(f1 + (isig-1)*(f2-f1)/(nsigs-1.0))
dphi=twopi*f*dt + 0.5*twopi
snrdbx=snrdb