w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-09-28 16:16:48 -04:00
Code Issues Packages Projects Releases Wiki Activity

Make short-message report format for positive SNR consistent with existing convention (no + sign).

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6880 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-07-06 20:13:08 +00:00
parent ccbf3a9896
commit c3529c9a1b
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/detectmsk32.f90
View File

@ -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

8
lib/genmsk32.f90
View File

@ -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./