Reorder the FT4 test messages used in ft4code.f90.

This commit is contained in:
Joe Taylor 2019-12-18 12:14:34 -05:00
parent 26d1996eb8
commit 3cb75a49ec

View File

@ -1,50 +1,50 @@
parameter (MAXTEST=75,NTEST=47) parameter (MAXTEST=75,NTEST=47)
character*37 testmsg(MAXTEST) character*37 testmsg(MAXTEST)
data testmsg(1:NTEST)/ & data testmsg(1:NTEST)/ &
"CQ K1ABC FN42", & "TNX BOB 73 GL", & ! 0.0
"K1ABC W9XYZ EN37", & "PA9XYZ 590003 IO91NP", & ! 0.2
"W9XYZ K1ABC -11", & "G4ABC/P R 570007 JO22DB", & ! 0.2
"K1ABC W9XYZ R-09", & "K1ABC W9XYZ 6A WI", & ! 0.3
"W9XYZ K1ABC RRR", & "W9XYZ K1ABC R 2B EMA", & ! 0.3
"K1ABC W9XYZ 73", & "123456789ABCDEF012", & ! 0.5
"K1ABC W9XYZ RR73", & "CQ K1ABC FN42", & ! 1.
"CQ KH1/KH7Z", & "K1ABC W9XYZ EN37", & ! 1.
"CQ FD K1ABC FN42", & "W9XYZ K1ABC -11", & ! 1.
"K1ABC W9XYZ 6A WI", & "K1ABC W9XYZ R-09", & ! 1.
"W9XYZ K1ABC R 2B EMA", & "W9XYZ K1ABC RRR", & ! 1.
"CQ TEST K1ABC/R FN42", & "K1ABC W9XYZ 73", & ! 1.
"K1ABC/R W9XYZ EN37", & "K1ABC W9XYZ RR73", & ! 1.
"W9XYZ K1ABC/R R FN42", & "CQ FD K1ABC FN42", & ! 1.
"K1ABC/R W9XYZ RR73", & "CQ TEST K1ABC/R FN42", & ! 1.
"CQ TEST K1ABC FN42", & "K1ABC/R W9XYZ EN37", & ! 1.
"K1ABC W9XYZ 579 WI", & "W9XYZ K1ABC/R R FN42", & ! 1.
"W9XYZ K1ABC R 589 MA", & "K1ABC/R W9XYZ RR73", & ! 1.
"K1ABC KA0DEF 559 MO", & "CQ TEST K1ABC FN42", & ! 1.
"TU; KA0DEF K1ABC R 569 MA", & "W9XYZ <PJ4/K1ABC> -11", & ! 1.
"KA1ABC G3AAA 529 0013", & "<PJ4/K1ABC> W9XYZ R-09", & ! 1.
"TU; G3AAA K1ABC R 559 MA", & "CQ W9XYZ EN37", & ! 1.
"CQ G4ABC/P IO91", & "<YW18FIFA> W9XYZ -11", & ! 1.
"G4ABC/P PA9XYZ JO22", & "W9XYZ <YW18FIFA> R-09", & ! 1.
"PA9XYZ 590003 IO91NP", & "<YW18FIFA> KA1ABC", & ! 1.
"G4ABC/P R 570007 JO22DB", & "KA1ABC <YW18FIFA> -11", & ! 1.
"PA9XYZ G4ABC/P RR73", & "<YW18FIFA> KA1ABC R-17", & ! 1.
"CQ PJ4/K1ABC", & "<YW18FIFA> KA1ABC 73", & ! 1.
"PJ4/K1ABC <W9XYZ>", & "CQ G4ABC/P IO91", & ! 2.
"W9XYZ <PJ4/K1ABC> -11", & "G4ABC/P PA9XYZ JO22", & ! 2.
"<PJ4/K1ABC> W9XYZ R-09", & "PA9XYZ G4ABC/P RR73", & ! 2.
"<W9XYZ> PJ4/K1ABC RRR", & "K1ABC W9XYZ 579 WI", & ! 3.
"PJ4/K1ABC <W9XYZ> 73", & "W9XYZ K1ABC R 589 MA", & ! 3.
"CQ W9XYZ EN37", & "K1ABC KA0DEF 559 MO", & ! 3.
"<W9XYZ> YW18FIFA", & "TU; KA0DEF K1ABC R 569 MA", & ! 3.
"<YW18FIFA> W9XYZ -11", & "KA1ABC G3AAA 529 0013", & ! 3.
"W9XYZ <YW18FIFA> R-09", & "TU; G3AAA K1ABC R 559 MA", & ! 3.
"YW18FIFA <W9XYZ> RRR", & "CQ KH1/KH7Z", & ! 4.
"<W9XYZ> YW18FIFA 73", & "CQ PJ4/K1ABC", & ! 4.
"TNX BOB 73 GL", & "PJ4/K1ABC <W9XYZ>", & ! 4.
"CQ YW18FIFA", & "<W9XYZ> PJ4/K1ABC RRR", & ! 4.
"<YW18FIFA> KA1ABC", & "PJ4/K1ABC <W9XYZ> 73", & ! 4.
"KA1ABC <YW18FIFA> -11", & "<W9XYZ> YW18FIFA", & ! 4.
"<YW18FIFA> KA1ABC R-17", & "YW18FIFA <W9XYZ> RRR", & ! 4.
"<KA1ABC> YW18FIFA RR73", & "<W9XYZ> YW18FIFA 73", & ! 4.
"<YW18FIFA> KA1ABC 73", & "CQ YW18FIFA", & ! 4.
"123456789ABCDEF012"/ "<KA1ABC> YW18FIFA RR73"/