Merge branch 'integrate-77bit' of bitbucket.org:k1jt/wsjtx into integrate-77bit

This commit is contained in:
Joe Taylor 2018-09-13 09:51:34 -04:00
commit a9deb8c1fd
10 changed files with 30 additions and 133 deletions

View File

@ -375,18 +375,12 @@ set (wsjt_FSRCS
lib/bpdecode40.f90
lib/bpdecode144.f90
lib/bpdecode128_90.f90
lib/fsk4hf/bpdecode120.f90
lib/fsk4hf/bpdecode168.f90
lib/ft8/bpdecode174.f90
lib/ft8/bpdecode174_91.f90
lib/fsk4hf/bpdecode300.f90
lib/fsk4hf/bpdecode204.f90
lib/baddata.f90
lib/calibrate.f90
lib/ccf2.f90
lib/ccf65.f90
lib/fsk4hf/chkcrc10.f90
lib/fsk4hf/chkcrc12.f90
lib/ft8/chkcrc12a.f90
lib/ft8/chkcrc13a.f90
lib/ft8/chkcrc14a.f90
@ -396,8 +390,6 @@ set (wsjt_FSRCS
lib/chkss2.f90
lib/ft8/compress.f90
lib/coord.f90
lib/fsk4hf/cpolyfit.f90
lib/fsk4hf/cpolyfitw.f90
lib/db.f90
lib/decode4.f90
lib/decode65a.f90
@ -415,19 +407,14 @@ set (wsjt_FSRCS
lib/encode_msk40.f90
lib/encode_msk144.f90
lib/encode_128_90.f90
lib/fsk4hf/encode120.f90
lib/fsk4hf/encode168.f90
lib/ft8/encode174.f90
lib/ft8/encode174_91.f90
lib/fsk4hf/encode300.f90
lib/fsk4hf/encode204.f90
lib/entail.f90
lib/ephem.f90
lib/extract.f90
lib/extract4.f90
lib/extractmessage144.f90
lib/extractmessage77.f90
lib/fsk4hf/extractmessage168.f90
lib/ft8/extractmessage174.f90
lib/ft8/extractmessage174_91.f90
lib/fano232.f90
@ -457,7 +444,6 @@ set (wsjt_FSRCS
lib/ft8/foxgen_wrap.f90
lib/fqso_first.f90
lib/freqcal.f90
lib/fsk4hf/fsk4hf.f90
lib/ft8/ft8apset.f90
lib/ft8/ft8apset_174_91.f90
lib/ft8/ft8b_1.f90
@ -470,20 +456,10 @@ set (wsjt_FSRCS
lib/gen65.f90
lib/gen9.f90
lib/geniscat.f90
lib/fsk4hf/genfsk4hf.f90
lib/ft8/genft8.f90
lib/ft8/genft8_174_91.f90
lib/genmsk_128_90.f90
lib/genmsk40.f90
lib/fsk4hf/genmskhf.f90
lib/fsk4hf/genwsprlf.f90
lib/fsk4hf/genwspr_fsk8.f90
lib/fsk4hf/genwsprcpm.f90
lib/fsk4hf/genwspr5.f90
lib/fsk4hf/getfc1.f90
lib/fsk4hf/getfc2.f90
lib/fsk4hf/getfc1w.f90
lib/fsk4hf/getfc2w.f90
lib/genqra64.f90
lib/ft8/genft8refsig.f90
lib/genwspr.f90
@ -508,15 +484,6 @@ set (wsjt_FSRCS
lib/jplsubs.f
lib/jt9fano.f90
lib/jtmsg.f90
lib/ldpcsim144.f90
lib/ldpcsim128_90.f90
lib/fsk4hf/ldpcsim120.f90
lib/fsk4hf/ldpcsim168.f90
lib/ft8/ldpcsim174.f90
lib/ft8/ldpcsim174_91.f90
lib/fsk4hf/ldpcsim300.f90
lib/fsk4hf/ldpcsim204.f90
lib/ldpcsim40.f90
lib/libration.f90
lib/lorentzian.f90
lib/lpf1.f90
@ -538,22 +505,16 @@ set (wsjt_FSRCS
lib/mskrtd.f90
lib/msk144signalquality.f90
lib/msk144sim.f90
lib/fsk4hf/mskhfsim.f90
lib/mskrtd.f90
lib/fsk4hf/msksoftsym.f90
lib/fsk4hf/msksoftsymw.f90
lib/77bit/my_hash.f90
lib/ft8/osd174.f90
lib/ft8/osd174_91.f90
lib/fsk4hf/osd300.f90
lib/fsk4hf/osd204.f90
lib/77bit/parse77.f90
lib/pctile.f90
lib/peakdt9.f90
lib/peakup.f90
lib/plotsave.f90
lib/polyfit.f90
lib/fsk4hf/polyfit4.f90
lib/prog_args.f90
lib/ps4.f90
lib/qra64a.f90
@ -572,9 +533,7 @@ set (wsjt_FSRCS
lib/softsym9f.f90
lib/softsym9w.f90
lib/shell.f90
lib/fsk4hf/spec4.f90
lib/spec64.f90
lib/fsk4hf/spec8.f90
lib/spec9f.f90
lib/stdmsg.f90
lib/subtract65.f90
@ -607,15 +566,6 @@ set (wsjt_FSRCS
lib/xcor4.f90
lib/wqdecode.f90
lib/wqencode.f90
lib/fsk4hf/wspr_fsk8d.f90
lib/fsk4hf/wspr_fsk8_sim.f90
lib/fsk4hf/wspr_fsk8_wav.f90
lib/fsk4hf/wspr_fsk8_downsample.f90
lib/fsk4hf/wspr_wav.f90
lib/fsk4hf/wsprlfsim.f90
lib/fsk4hf/wsprcpm_wav.f90
lib/fsk4hf/wspr5_wav.f90
lib/fsk4hf/wspr5_downsample.f90
lib/wspr_downsample.f90
lib/zplot9.f90
)
@ -1274,10 +1224,6 @@ add_executable (wsprcode lib/wsprcode/wsprcode.f90 lib/wsprcode/nhash.c
wsjtx.rc)
target_link_libraries (wsprcode wsjt_fort wsjt_cxx)
add_executable (wsprsimf lib/fsk4hf/wsprsimf.f90 lib/wsprcode/nhash.c
wsjtx.rc)
target_link_libraries (wsprsimf wsjt_fort wsjt_cxx)
add_executable (wsprsim ${wsprsim_CSRCS})
add_executable (jt4code lib/jt4code.f90 wsjtx.rc)
@ -1289,36 +1235,6 @@ target_link_libraries (msk144code wsjt_fort wsjt_cxx)
add_executable (jt65 lib/jt65.f90 lib/jt65_test.f90 wsjtx.rc)
target_link_libraries (jt65 wsjt_fort wsjt_cxx)
add_executable (ldpcsim40 lib/ldpcsim40.f90 wsjtx.rc)
target_link_libraries (ldpcsim40 wsjt_fort wsjt_cxx)
add_executable (ldpcsim120 lib/fsk4hf/ldpcsim120.f90 wsjtx.rc)
target_link_libraries (ldpcsim120 wsjt_fort wsjt_cxx)
add_executable (ldpcsim174 lib/ft8/ldpcsim174.f90 wsjtx.rc)
target_link_libraries (ldpcsim174 wsjt_fort wsjt_cxx)
add_executable (ldpcsim174_91 lib/ft8/ldpcsim174_91.f90 wsjtx.rc)
target_link_libraries (ldpcsim174_91 wsjt_fort wsjt_cxx)
add_executable (ldpcsim144 lib/ldpcsim144.f90 wsjtx.rc)
target_link_libraries (ldpcsim144 wsjt_fort wsjt_cxx)
add_executable (ldpcsim128_90 lib/ldpcsim128_90.f90 wsjtx.rc)
target_link_libraries (ldpcsim128_90 wsjt_fort wsjt_cxx)
add_executable (ldpcsim168 lib/fsk4hf/ldpcsim168.f90 wsjtx.rc)
target_link_libraries (ldpcsim168 wsjt_fort wsjt_cxx)
add_executable (ldpcsim300 lib/fsk4hf/ldpcsim300.f90 wsjtx.rc)
target_link_libraries (ldpcsim300 wsjt_fort wsjt_cxx)
add_executable (ldpcsim204 lib/fsk4hf/ldpcsim204.f90 wsjtx.rc)
target_link_libraries (ldpcsim204 wsjt_fort wsjt_cxx)
add_executable (fsk4hf lib/fsk4hf/fsk4hf.f90 wsjtx.rc)
target_link_libraries (fsk4hf wsjt_fort wsjt_cxx)
add_executable (ft8code lib/ft8/ft8code.f90 wsjtx.rc)
target_link_libraries (ft8code wsjt_fort wsjt_cxx)
@ -1328,33 +1244,6 @@ target_link_libraries (ft8sim wsjt_fort wsjt_cxx)
add_executable (ft8sim2 lib/ft8/ft8sim2.f90 wsjtx.rc)
target_link_libraries (ft8sim2 wsjt_fort wsjt_cxx)
add_executable (wsprlfsim lib/fsk4hf/wsprlfsim.f90 wsjtx.rc)
target_link_libraries (wsprlfsim wsjt_fort wsjt_cxx)
add_executable (wspr_fsk8d lib/fsk4hf/wspr_fsk8d.f90 wsjtx.rc)
target_link_libraries (wspr_fsk8d wsjt_fort wsjt_cxx)
add_executable (wspr_fsk8_sim lib/fsk4hf/wspr_fsk8_sim.f90 wsjtx.rc)
target_link_libraries (wspr_fsk8_sim wsjt_fort wsjt_cxx)
add_executable (wsprcpmsim lib/fsk4hf/wsprcpmsim.f90 wsjtx.rc)
target_link_libraries (wsprcpmsim wsjt_fort wsjt_cxx)
add_executable (wsprcpmd lib/fsk4hf/wsprcpmd.f90 wsjtx.rc)
target_link_libraries (wsprcpmd wsjt_fort wsjt_cxx)
add_executable (wspr5d lib/fsk4hf/wspr5d.f90 wsjtx.rc)
target_link_libraries (wspr5d wsjt_fort wsjt_cxx)
add_executable (wspr5d_exp lib/fsk4hf/wspr5d_exp.f90 wsjtx.rc)
target_link_libraries (wspr5d_exp wsjt_fort wsjt_cxx)
add_executable (wspr5sim lib/fsk4hf/wspr5sim.f90 wsjtx.rc)
target_link_libraries (wspr5sim wsjt_fort wsjt_cxx)
add_executable (mskhfsim lib/fsk4hf/mskhfsim.f90 wsjtx.rc)
target_link_libraries (mskhfsim wsjt_fort wsjt_cxx)
add_executable (msk144sd lib/msk144sd.f90 wsjtx.rc)
target_link_libraries (msk144sd wsjt_fort wsjt_cxx)
@ -1501,7 +1390,7 @@ install (TARGETS jt9 wsprd fmtave fcal fmeasure
if(WSJT_BUILD_UTILS)
install (TARGETS ft8code jt65code qra64code qra64sim jt9code jt4code
msk144code wspr_fsk8d
msk144code
RUNTIME DESTINATION ${CMAKE_INSTALL_BINDIR} COMPONENT runtime
BUNDLE DESTINATION ${CMAKE_INSTALL_BINDIR} COMPONENT runtime
)

View File

@ -194,7 +194,7 @@ subroutine pack77(msg0,i3,n3,c77)
900 return
end subroutine pack77
subroutine unpack77(c77,msg)
subroutine unpack77(c77,msg,unpk77_success)
parameter (NSEC=84) !Number of ARRL Sections
parameter (NUSCAN=65) !Number of US states and Canadian provinces
@ -211,6 +211,7 @@ subroutine unpack77(c77,msg)
character*4 grid4,cserial
character*3 csec(NSEC)
character*38 c
logical unpk77_success
data c/' 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ/'/
data csec/ &
@ -232,10 +233,13 @@ subroutine unpack77(c77,msg)
"NB ","NS ","QC ","ON ","MB ","SK ","AB ","BC ","NWT","NF ", &
"LB ","NU ","VT ","PEI","DC "/
unpk77_success=.true.
! Check for bad data
do i=1,77
if(c77(i:i).ne.'0' .and. c77(i:i).ne.'1') then
msg='QUIRK 2'
msg='failed unpack'
unpk77_success=.false.
return
endif
enddo
@ -297,9 +301,10 @@ subroutine unpack77(c77,msg)
else if(i3.eq.0 .and. (n3.eq.3 .or. n3.eq.4)) then
! 0.3 WA9XYZ KA1ABC R 16A EMA 28 28 1 4 3 7 71 ARRL Field Day
! 0.4 WA9XYZ KA1ABC R 32A EMA 28 28 1 4 3 7 71 ARRL Field Day
! 0.4 WA9XYZ KA1ABC R 32A EMA 28 28 1 4 3 7 71 ARRL Field Day
read(c77,1030) n28a,n28b,ir,intx,nclass,isec
1030 format(2b28,b1,b4,b3,b7)
if(isec.gt.NSEC .or. isec.lt.1) unpk77_success=.false.
if(isec.gt.NSEC) isec=NSEC !### Check range for other params? ###
if(isec.lt.1) isec=1 !### Flag these so they aren't printed? ###
call unpack28(n28a,call_1)

View File

@ -14,6 +14,7 @@ integer*1 msgbits(77)
integer*1 message77(77)
integer*1 apmask(N), cw(N)
integer nerrtot(0:N),nerrdec(0:N)
logical unpk77_success
real*8, allocatable :: rxdata(:)
real, allocatable :: llr(:)
@ -51,7 +52,7 @@ allocate ( rxdata(N), llr(N) )
i3=0
n3=1
call pack77(msg,i3,n3,c77) !Pack into 12 6-bit bytes
call unpack77(c77,msgsent) !Unpack to get msgsent
call unpack77(c77,msgsent,unpk77_success) !Unpack to get msgsent
write(*,*) "message sent ",msgsent
read(c77,'(77i1)') msgbits(1:77)

View File

@ -36,7 +36,7 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
complex ctwk(32)
complex csymb(32)
complex cs(0:7,NN)
logical first,newdat,lsubtract,lapon,lapcqonly,nagain
logical first,newdat,lsubtract,lapon,lapcqonly,nagain,unpk77_success
data icos7/3,1,4,0,6,5,2/ ! Flipped w.r.t. original FT8 sync array
data mcq/0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0/
data mrrr/0,1,1,1,1,1,1,0,1,0,0,1,0,0,1,0,0,0,1/
@ -321,8 +321,8 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
if(i3.gt.4 .or. (i3.eq.0.and.n3.gt.5)) then
cycle
endif
call unpack77(c77,msg37)
if(index(msg37,'QU1RK').gt.0) then
call unpack77(c77,msg37,unpk77_success)
if(.not.unpk77_success) then
cycle
endif
nbadcrc=0 ! If we get this far: valid codeword, valid (i3,n3), nonquirky message.

View File

@ -10,11 +10,12 @@ subroutine genft8_174_91(msg,i3,n3,msgsent,msgbits,itone)
integer itone(79)
integer icos7(0:6)
integer graymap(0:7)
logical unpk77_success
data icos7/3,1,4,0,6,5,2/ !Costas 7x7 tone pattern
data graymap/0,1,3,2,5,6,4,7/
call pack77(msg,i3,n3,c77)
call unpack77(c77,msgsent)
call unpack77(c77,msgsent,unpk77_success)
read(c77,'(77i1)',err=1) msgbits
go to 2

View File

@ -32,7 +32,7 @@ subroutine genmsk_128_90(msg0,ichk,msgsent,i4tone,itype)
real*8 xi(864),xq(864),pi,twopi
data s8/0,1,1,1,0,0,1,0/
equivalence (ihash,i1hash)
logical first
logical first,unpk77_success
data first/.true./
save
@ -73,7 +73,7 @@ subroutine genmsk_128_90(msg0,ichk,msgsent,i4tone,itype)
endif
call pack77(message,i3,n3,c77)
call unpack77(c77,msgsent) !Unpack to get msgsent
call unpack77(c77,msgsent,unpk77_success) !Unpack to get msgsent
if(ichk.eq.1) go to 999
read(c77,"(77i1)") msgbits
call encode_128_90(msgbits,codeword)

View File

@ -14,6 +14,7 @@ program ldpcsim128_90
integer*1 msgbits(77)
integer*4 i4Msg6BitWords(13)
integer nerrtot(0:N),nerrdec(0:N)
logical unpk77_success
real*8 rxdata(N), rxavgd(N)
real llr(N)
@ -47,7 +48,7 @@ program ldpcsim128_90
i3=0
n3=1
call pack77(msg,i3,n3,c77)
call unpack77(c77,msgsent)
call unpack77(c77,msgsent,unpk77_success)
read(c77,'(77i1)') msgbits
write(*,*) "message sent ",msgsent
@ -107,7 +108,7 @@ program ldpcsim128_90
! If the decoder finds a valid codeword, nharderrors will be .ge. 0.
if( nharderrors .ge. 0 ) then
write(c77,'(77i1)') message77
call unpack77(c77,msgreceived)
call unpack77(c77,msgreceived,unpk77_success)
nhw=count(cw.ne.codeword)
if(nhw.eq.0) then ! this is a good decode
ngood=ngood+1

View File

@ -15,7 +15,7 @@ subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,recent_calls,nrecen
real pp(12)
real softbits(144)
real llr(128)
logical first
logical first,unpk77_success
data first/.true./
data s8/0,1,1,1,0,0,1,0/
save first,cb,fs,pi,twopi,dt,s8,pp
@ -101,7 +101,7 @@ subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,recent_calls,nrecen
if( nharderror .ge. 0 .and. nharderror .lt. 18 ) then
nsuccess=1
write(c77,'(77i1)') decoded77
call unpack77(c77,msgreceived)
call unpack77(c77,msgreceived,unpk77_success)
endif
return

View File

@ -99,7 +99,7 @@ extern "C" {
void genwspr_(char* msg, char* msgsent, int itone[], fortran_charlen_t, fortran_charlen_t);
void genwspr_fsk8_(char* msg, char* msgsent, int itone[], fortran_charlen_t, fortran_charlen_t);
// void genwspr_fsk8_(char* msg, char* msgsent, int itone[], fortran_charlen_t, fortran_charlen_t);
void geniscat_(char* msg, char* msgsent, int itone[], fortran_charlen_t, fortran_charlen_t);
@ -1423,9 +1423,9 @@ void MainWindow::dataSink(qint64 frames)
QDir::toNativeSeparators(m_config.writeable_data_dir ().absolutePath()) + "\" \"" + m_path + "\"";
} else {
if(m_mode=="WSPR-LF") {
cmnd='"' + m_appDir + '"' + "/wspr_fsk8d " + degrade + t2 +" -a \"" +
QDir::toNativeSeparators(m_config.writeable_data_dir ().absolutePath()) + "\" " +
'"' + m_fnameWE + ".wav\"";
// cmnd='"' + m_appDir + '"' + "/wspr_fsk8d " + degrade + t2 +" -a \"" +
// QDir::toNativeSeparators(m_config.writeable_data_dir ().absolutePath()) + "\" " +
// '"' + m_fnameWE + ".wav\"";
} else {
cmnd='"' + m_appDir + '"' + "/wsprd " + depth_string + " -a \"" +
QDir::toNativeSeparators(m_config.writeable_data_dir ().absolutePath()) + "\" " +
@ -1436,7 +1436,7 @@ void MainWindow::dataSink(qint64 frames)
int i1=cmnd.indexOf("/wsprd ");
cmnd=t3.mid(0,i1+7) + t3.mid(i1+7);
if(m_mode=="WSPR-LF") cmnd=cmnd.replace("/wsprd ","/wspr_fsk8d "+degrade+t2);
// if(m_mode=="WSPR-LF") cmnd=cmnd.replace("/wsprd ","/wspr_fsk8d "+degrade+t2);
if (ui) ui->DecodeButton->setChecked (true);
m_cmndP1=QDir::toNativeSeparators(cmnd);
p1Timer.start(1000);
@ -3514,8 +3514,8 @@ void MainWindow::guiUpdate()
&m_currentMessageType, 22, 22);
if(m_modeTx=="WSPR") genwspr_(message, msgsent, const_cast<int *> (itone),
22, 22);
if(m_modeTx=="WSPR-LF") genwspr_fsk8_(message, msgsent, const_cast<int *> (itone),
22, 22);
// if(m_modeTx=="WSPR-LF") genwspr_fsk8_(message, msgsent, const_cast<int *> (itone),
// 22, 22);
if(m_modeTx=="MSK144" or m_modeTx=="FT8") {
char MyCall[6];
char MyGrid[6];