w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 02:12:37 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix message lengths in genmsk40. Also some tweaks to msk144sim.f90.

Browse Source
This commit is contained in:
Steve Franke 2018-09-20 09:49:42 -05:00
parent bb3d68a5d7
commit e1c74fd828
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/genmsk40.f90
View File

@ -1,7 +1,7 @@
subroutine genmsk40(msg,msgsent,ichk,itone,itype) subroutine genmsk40(msg,msgsent,ichk,itone,itype)
use hashing use hashing
character*22 msg,msgsent,hashmsg character*37 msg,msgsent,hashmsg
character*4 crpt,rpt(0:15) character*4 crpt,rpt(0:15)
logical first logical first
integer*4 itone(144) integer*4 itone(144)

9
lib/msk144sim.f90
View File

@ -38,8 +38,13 @@ program msk144sim
ichk=0 ichk=0
itype=1 itype=1
call genmsk_128_90(msg,ichk,msgsent,itone,itype) call genmsk_128_90(msg,ichk,msgsent,itone,itype)
write(*,*) 'Requested message: ',msg
write(*,*) 'Message sent : ',msgsent
write(*,*) 'Tones: '
write(*,'(72i1)') itone(1:72)
write(*,'(72i1)') itone(72:144)
write(*,*) itype
twopi=8.d0*atan(1.d0) twopi=8.d0*atan(1.d0)
nsym=144 nsym=144
nsps=6*nslow nsps=6*nslow
if( itone(41) .lt. 0 ) nsym=40 if( itone(41) .lt. 0 ) nsym=40
@ -49,7 +54,7 @@ program msk144sim
phi=0.0 phi=0.0
k=0 k=0
nreps=NMAX/(nsym*nsps) nreps=NMAX/(nsym*nsps)
print*,nsym,nslow,nsps,baud,freq
do jrep=1,nreps do jrep=1,nreps
do i=1,nsym do i=1,nsym
if( itone(i) .eq. 0 ) then if( itone(i) .eq. 0 ) then