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

Remove a bad test message from jt9code. 

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4540 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2014-10-19 12:29:45 +00:00
parent d110a5fbcf
commit 8a6694f9b4
1 changed files with 21 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
lib/jt9code.f90
View File

@ -2,7 +2,7 @@ program jt9code
! Generate simulated data for testing of WSJT-X
character*22 testmsg(21)
character*22 testmsg(20)
character msg*22,msg0*22,decoded*22,bad*1,msgtype*10
integer*4 i4tone(85) !Channel symbols (values 0-8)
include 'jt9sync.f90'
@ -18,27 +18,26 @@ program jt9code
nmsg=1
if(msg(1:2).eq."-t") then
testmsg(1)="KA1ABC WB9XYZ EN34"
testmsg(2)="KA1ABC WB9XYZ EN34 OOO"
testmsg(3)="KA1ABC WB9XYZ RO"
testmsg(4)="KA1ABC WB9XYZ -21"
testmsg(5)="KA1ABC WB9XYZ R-19"
testmsg(6)="KA1ABC WB9XYZ RRR"
testmsg(7)="KA1ABC WB9XYZ 73"
testmsg(8)="KA1ABC WB9XYZ"
testmsg(9)="ZL/KA1ABC WB9XYZ"
testmsg(10)="KA1ABC ZL/WB9XYZ"
testmsg(11)="KA1ABC/4 WB9XYZ"
testmsg(12)="KA1ABC WB9XYZ/4"
testmsg(13)="CQ ZL4/KA1ABC"
testmsg(14)="DE ZL4/KA1ABC"
testmsg(15)="QRZ ZL4/KA1ABC"
testmsg(16)="CQ WB9XYZ/VE4"
testmsg(17)="HELLO WORLD"
testmsg(18)="ZL4/KA1ABC 73"
testmsg(19)="KA1ABC XL/WB9XYZ"
testmsg(20)="KA1ABC WB9XYZ/W4"
testmsg(21)="123456789ABCDEFGH"
nmsg=21
testmsg(2)="KA1ABC WB9XYZ RO"
testmsg(3)="KA1ABC WB9XYZ -21"
testmsg(4)="KA1ABC WB9XYZ R-19"
testmsg(5)="KA1ABC WB9XYZ RRR"
testmsg(6)="KA1ABC WB9XYZ 73"
testmsg(7)="KA1ABC WB9XYZ"
testmsg(8)="ZL/KA1ABC WB9XYZ"
testmsg(9)="KA1ABC ZL/WB9XYZ"
testmsg(10)="KA1ABC/4 WB9XYZ"
testmsg(11)="KA1ABC WB9XYZ/4"
testmsg(12)="CQ ZL4/KA1ABC"
testmsg(13)="DE ZL4/KA1ABC"
testmsg(14)="QRZ ZL4/KA1ABC"
testmsg(15)="CQ WB9XYZ/VE4"
testmsg(16)="HELLO WORLD"
testmsg(17)="ZL4/KA1ABC 73"
testmsg(18)="KA1ABC XL/WB9XYZ"
testmsg(19)="KA1ABC WB9XYZ/W4"
testmsg(20)="123456789ABCDEFGH"
nmsg=20
endif
write(*,1010)