w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Tweak msk144sim output.

This commit is contained in:
Steve Franke 2018-10-20 10:16:17 -05:00
parent da02f7055f
commit dea35fbf56
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/msk144sim.f90
View File

@ -41,8 +41,12 @@ program msk144sim
write(*,*) 'Requested message: ',msg
write(*,*) 'Message sent : ',msgsent
write(*,*) 'Tones: '
write(*,'(1x,72i1)') itone(1:72)
write(*,'(1x,72i1)') itone(73:144)
if(itone(41).ge.0) then
write(*,'(1x,72i1)') itone(1:72)
write(*,'(1x,72i1)') itone(73:144)
else
write(*,'(1x,40i1)') itone(1:40)
endif
twopi=8.d0*atan(1.d0)
nsym=144