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