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

Bring jt9sim.f90 up to date.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5078 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-03-19 13:48:26 +00:00
parent 42a707cc7e
commit abf019263d
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/jt9sim.f90
View File

@ -54,8 +54,8 @@ program jt9sim
if(minutes.eq.30) nsps=252000
if(nsps.eq.0) stop 'Bad value for minutes.'
! f0=1400.d0 !Center frequency (Hz)
f0=3000.d0 !Center frequency (Hz)
f0=1400.d0 !Center frequency (Hz)
! f0=3000.d0 !Center frequency (Hz)
! f0=1500.0
! if(minutes.eq.5) f0=1100.
@ -90,7 +90,7 @@ program jt9sim
endif
if(msg0.ne.' ') then
call genjt9(message,0,msgsent,i4tone,itext) !Encode message into tone #s
call genjt9(message,0,msgsent,i4tone,itype) !Encode message into tone #s
endif
rewind 12
@ -99,7 +99,7 @@ program jt9sim
if(msg0.eq.' ') then
read(12,1004) message !Use pre-generated message texts
1004 format(a22)
call genjt9(message,msgsent,i4tone)
call genjt9(message,0,msgsent,i4tone,itype)
endif
f=f0
@ -155,9 +155,7 @@ program jt9sim
do i=1,206
i4=-10
if(i1Bits(i).eq.1) i4=10
i4=i4+128
if(i4.le.127) i1SoftSymbols(i)=i4
if(i4.ge.128) i1SoftSymbols(i)=i4-256
i1SoftSymbols(i)=i4
enddo
limit=1000
call jt9fano(i1SoftSymbols,limit,nlim,msg)