WSJT-X/lib/ft8/ft8apset.f90

subroutine ft8apset(mycall12,hiscall12,hisgrid6,apsym)
  parameter(NAPM=4,KK=87)
  character*12 mycall12,hiscall12
  character*37 msg,msgsent
  character*6 mycall,hiscall
  character*6 hisgrid6
  character*4 hisgrid
  integer apsym(KK)
  integer*1 msgbits(KK)
  integer itone(KK)
  
  mycall=mycall12(1:6)
  hiscall=hiscall12(1:6)
  if(index(hiscall," ").eq.0) hiscall="K9ABC"
  hisgrid=hisgrid6(1:4)
  if(index(hisgrid," ").eq.0) hisgrid="AA00"
  msg=mycall//' '//hiscall//' '//hisgrid
  i3=0                                       ! ### TEMPORARY ??? ###
  n3=0 !TEMPORARY
  isync=1
  call genft8(msg,i3,n3,isync,msgsent,msgbits,itone)
  apsym=2*msgbits-1
  return
end subroutine ft8apset
Don't send "mygrid" where it's no longer needed. 2018-07-11 16:32:08 -04:00			`subroutine ft8apset(mycall12,hiscall12,hisgrid6,apsym)`
Add ft8apset.f90. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7884 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-07-14 15:35:22 -04:00			`parameter(NAPM=4,KK=87)`
			`character*12 mycall12,hiscall12`
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 16:32:04 -04:00			`character*37 msg,msgsent`
Add ft8apset.f90. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7884 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-07-14 15:35:22 -04:00			`character*6 mycall,hiscall`
Don't send "mygrid" where it's no longer needed. 2018-07-11 16:32:08 -04:00			`character*6 hisgrid6`
Add ft8apset.f90. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7884 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-07-14 15:35:22 -04:00			`character*4 hisgrid`
			`integer apsym(KK)`
			`integer*1 msgbits(KK)`
			`integer itone(KK)`

			`mycall=mycall12(1:6)`
			`hiscall=hiscall12(1:6)`
AP decoding now works for type 2 frames. Also cleaned up and simplified AP implementation in ft8b_2. 2018-06-11 16:10:44 -04:00			`if(index(hiscall," ").eq.0) hiscall="K9ABC"`
More work on AP. Deep decode is unstable - not for use on the air. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7887 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-07-14 18:09:50 -04:00			`hisgrid=hisgrid6(1:4)`
AP decoding now works for type 2 frames. Also cleaned up and simplified AP implementation in ft8b_2. 2018-06-11 16:10:44 -04:00			`if(index(hisgrid," ").eq.0) hisgrid="AA00"`
Add ft8apset.f90. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7884 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-07-14 15:35:22 -04:00			`msg=mycall//' '//hiscall//' '//hisgrid`
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 15:37:50 -04:00			`i3=0 ! ### TEMPORARY ??? ###`
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 10:28:16 -04:00			`n3=0 !TEMPORARY`
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 15:37:50 -04:00			`isync=1`
Don't send "mygrid" where it's no longer needed. 2018-07-11 16:32:08 -04:00			`call genft8(msg,i3,n3,isync,msgsent,msgbits,itone)`
Make 72-bit "contest mode" available in FT8 as well as MSK144. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7969 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-07-28 11:50:13 -04:00			`apsym=2*msgbits-1`
Add ft8apset.f90. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7884 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-07-14 15:35:22 -04:00			`return`
Make 72-bit "contest mode" available in FT8 as well as MSK144. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7969 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-07-28 11:50:13 -04:00			`end subroutine ft8apset`