From 04cb8aa8c9639725ccb8f727c75aa35fbcf09b8c Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Wed, 6 Jul 2016 20:13:08 +0000 Subject: [PATCH] Make short-message report format for positive SNR consistent with existing convention (no + sign). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6880 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/detectmsk32.f90 | 8 ++++---- lib/genmsk32.f90 | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/lib/detectmsk32.f90 b/lib/detectmsk32.f90 index 182fb0b5f..b1f6c96c5 100644 --- a/lib/detectmsk32.f90 +++ b/lib/detectmsk32.f90 @@ -49,10 +49,10 @@ subroutine detectmsk32(cbig,n,lines,nmessages,nutc) data first/.true./ data s8/0,1,1,1,0,0,1,0/ data s8r/1,0,1,1,0,0,0,1/ - data rpt /'-04 ','-03 ','-02 ','-01 ','+00 ','+01 ','+02 ','+03 ','+04 ', & - '+05 ','+06 ','+07 ','+08 ','+09 ','+10 ', & - 'R-04','R-03','R-02','R-01','R+00','R+01','R+02','R+03','R+04', & - 'R+05','R+06','R+07','R+08','R+09','R+10', & + data rpt /'-04 ','-03 ','-02 ','-01 ','00 ','01 ','02 ','03 ','04 ', & + '05 ','06 ','07 ','08 ','09 ','10 ', & + 'R-04','R-03','R-02','R-01','R00','R01','R02','R03','R04', & + 'R05','R06','R07','R08','R09','R10', & 'RRR ','73 '/ save df,first,cb,cbr,fs,pi,twopi,dt,s8,rcw,pp,nmatchedfilter,ig24 diff --git a/lib/genmsk32.f90 b/lib/genmsk32.f90 index 53fb95035..229a19eaf 100644 --- a/lib/genmsk32.f90 +++ b/lib/genmsk32.f90 @@ -9,10 +9,10 @@ subroutine genmsk32(msg,msgsent,ichk,itone,itype) integer*1 codeword(24),bitseq(32) integer*1 s8r(8) data s8r/1,0,1,1,0,0,0,1/ - data rpt /'-04 ','-03 ','-02 ','-01 ','+00 ','+01 ','+02 ','+03 ','+04 ', & - '+05 ','+06 ','+07 ','+08 ','+09 ','+10 ', & - 'R-04','R-03','R-02','R-01','R+00','R+01','R+02','R+03','R+04', & - 'R+05','R+06','R+07','R+08','R+09','R+10', & + data rpt /'-04 ','-03 ','-02 ','-01 ','00 ','01 ','02 ','03 ','04 ', & + '05 ','06 ','07 ','08 ','09 ','10 ', & + 'R-04','R-03','R-02','R-01','R00','R01','R02','R03','R04', & + 'R05','R06','R07','R08','R09','R10', & 'RRR ','73 '/ data first/.true./