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