w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-03 21:40:52 -05:00
Code Issues Packages Projects Releases Wiki Activity
WSJT-X/lib/ft8/genft8.f90

62 lines
1.6 KiB
Fortran
Raw Normal View History

Don't send "mygrid" where it's no longer needed.
2018-07-11 16:32:08 -04:00
subroutine genft8(msg37,i3,n3,isync,msgsent37,msgbits77,itone)
Re-commit 7806 and 7807, but disable AP decoding. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7814 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-08 14:06:48 +00:00
! Encode an FT8 message, producing array itone().
use crc
use packjt
include 'ft8_params.f90'
character*22 msg,msgsent
Changed genft8 and related routines to accept 37 char message and return 37 char msgsent. For now, in mainwindow, just copy the 22 char message into message37.
2018-07-05 15:32:04 -05:00
character*37 msg37,msgsent37
Re-commit 7806 and 7807, but disable AP decoding. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7814 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-08 14:06:48 +00:00
character*87 cbits
Old-style "NA VHF Contest" mode removed from all Fortran routines.
2018-07-10 15:09:42 -04:00
logical checksumok
Re-commit 7806 and 7807, but disable AP decoding. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7814 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-08 14:06:48 +00:00
integer*4 i4Msg6BitWords(12) !72-bit message as 6-bit words
integer*1 msgbits(KK),codeword(3*ND)
genft8 now looks at sign of n3 and i3. If either sign is negative, generate a type 1 (classic) message. Otherwise generate type 2. Type 1 seems to work. Type 2 does not yet work.
2018-07-03 11:10:47 -05:00
integer*1 msgbits77(77)
Re-commit 7806 and 7807, but disable AP decoding. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7814 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-08 14:06:48 +00:00
integer*1, target:: i1Msg8BitBytes(11)
integer itone(NN)
integer icos7(0:6)
data icos7/2,5,6,0,4,1,3/ !Costas 7x7 tone pattern
Send m_i3, m_n3, m_isync from mainwindow to genft8.f90 and use these to determine the type of generated message, according to the scheme described in lib/77bit/NewCode.txt.
2018-07-03 14:37:50 -05:00
if(isync.eq.2 ) goto 900
Changed genft8 and related routines to accept 37 char message and return 37 char msgsent. For now, in mainwindow, just copy the 22 char message into message37.
2018-07-05 15:32:04 -05:00
msg=msg37(1:22)
Old-style "NA VHF Contest" mode removed from all Fortran routines.
2018-07-10 15:09:42 -04:00
call packmsg(msg,i4Msg6BitWords,istdtype) !Pack into 12 6-bit bytes
Code cleanup related to "bcontest". Auto-seq now OK for new NA VHF Contest messages.
2018-07-11 10:13:42 -04:00
call unpackmsg(i4Msg6BitWords,msgsent) !Unpack to get msgsent
Changed genft8 and related routines to accept 37 char message and return 37 char msgsent. For now, in mainwindow, just copy the 22 char message into message37.
2018-07-05 15:32:04 -05:00
msgsent37(1:22)=msgsent
msgsent37(23:37)=' '
Tidy up some details for 72-bit contest mode in FT8. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7974 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-08-01 18:16:01 +00:00
Send (i3,n3) from mainwindow to genft8. First steps at interpreting (i3,n3) to send itype=1 for classic messages and itype=2 otherwise. Very buggy at this stage.
2018-07-03 09:28:16 -05:00
write(cbits,1000) i4Msg6BitWords,32*i3
Re-commit 7806 and 7807, but disable AP decoding. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7814 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-08 14:06:48 +00:00
1000 format(12b6.6,b8.8)
read(cbits,1001) i1Msg8BitBytes(1:10)
1001 format(10b8)
i1Msg8BitBytes(10)=iand(i1Msg8BitBytes(10),128+64+32)
i1Msg8BitBytes(11)=0
icrc12=crc12(c_loc(i1Msg8BitBytes),11)
Send (i3,n3) from mainwindow to genft8. First steps at interpreting (i3,n3) to send itype=1 for classic messages and itype=2 otherwise. Very buggy at this stage.
2018-07-03 09:28:16 -05:00
write(cbits,1003) i4Msg6BitWords,i3,icrc12
Re-commit 7806 and 7807, but disable AP decoding. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7814 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-08 14:06:48 +00:00
1003 format(12b6.6,b3.3,b12.12)
read(cbits,1004) msgbits
1004 format(87i1)
call encode174(msgbits,codeword) !Encode the test message
! Message structure: S7 D29 S7 D29 S7
itone(1:7)=icos7
itone(36+1:36+7)=icos7
itone(NN-6:NN)=icos7
k=7
do j=1,ND
i=3*j -2
k=k+1
if(j.eq.30) k=k+7
itone(k)=codeword(i)*4 + codeword(i+1)*2 + codeword(i+2)
enddo
Send (i3,n3) from mainwindow to genft8. First steps at interpreting (i3,n3) to send itype=1 for classic messages and itype=2 otherwise. Very buggy at this stage.
2018-07-03 09:28:16 -05:00
return
900 continue
Don't send "mygrid" where it's no longer needed.
2018-07-11 16:32:08 -04:00
call genft8_174_91(msg37,i3,n3,msgsent37,msgbits77,itone)
Re-commit 7806 and 7807, but disable AP decoding. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7814 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-07-08 14:06:48 +00:00
return
end subroutine genft8
Reference in New Issue Copy Permalink