From 8a6694f9b4b068010d6b9d18f5a8dd9d254933c5 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sun, 19 Oct 2014 12:29:45 +0000 Subject: [PATCH] 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 --- lib/jt9code.f90 | 43 +++++++++++++++++++++---------------------- 1 file changed, 21 insertions(+), 22 deletions(-) diff --git a/lib/jt9code.f90 b/lib/jt9code.f90 index 4a1f1fba0..12c385aa7 100644 --- a/lib/jt9code.f90 +++ b/lib/jt9code.f90 @@ -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)