WSJT-X/lib/ft8/ft8apset_174_91.f90

subroutine ft8apset_174_91(mycall12,hiscall12,hisgrid6,ncontest,apsym)
  parameter(NAPM=4,KK=91)
  character*37 msg,msgsent
  character*12 mycall12,hiscall12
  character*6 hisgrid6
  character*4 hisgrid
  integer apsym(77)
  integer*1 msgbits(77)
  integer itone(KK)
  
  if(index(hiscall12," ").eq.0) hiscall12="K9ABC"
  msg=trim(mycall12)//' '//trim(hiscall12)//' RRR' 
  i3=1 
  n3=0
!write(*,*) 'apset msg ',msg
  call genft8_174_91(msg,i3,n3,msgsent,msgbits,itone)
  apsym=2*msgbits-1
!write(*,'(29i1,1x,29i1,1x,19i1)') (apsym(1:77)+1)/2
  return
end subroutine ft8apset_174_91
Progress on AP decoding for 77bit messages. AP is basically working for regular i3=1 messages. 2018-07-28 18:32:45 -04:00			`subroutine ft8apset_174_91(mycall12,hiscall12,hisgrid6,ncontest,apsym)`
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			`parameter(NAPM=4,KK=91)`
Progress on AP decoding for 77bit messages. AP is basically working for regular i3=1 messages. 2018-07-28 18:32:45 -04:00			`character*37 msg,msgsent`
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			`character*12 mycall12,hiscall12`
Progress on AP decoding for 77bit messages. AP is basically working for regular i3=1 messages. 2018-07-28 18:32:45 -04:00			`character*6 hisgrid6`
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			`character*4 hisgrid`
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 12:10:47 -04:00			`integer apsym(77)`
			`integer*1 msgbits(77)`
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			`integer itone(KK)`

Progress on AP decoding for 77bit messages. AP is basically working for regular i3=1 messages. 2018-07-28 18:32:45 -04:00			`if(index(hiscall12," ").eq.0) hiscall12="K9ABC"`
			`msg=trim(mycall12)//' '//trim(hiscall12)//' RRR'`
			`i3=1`
More progress toward switching to (i3,n3). wsjtx runs without crashing now. 2018-07-03 10:49:11 -04:00			`n3=0`
Progress on AP decoding for 77bit messages. AP is basically working for regular i3=1 messages. 2018-07-28 18:32:45 -04:00			`!write(,) 'apset msg ',msg`
			`call genft8_174_91(msg,i3,n3,msgsent,msgbits,itone)`
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			`apsym=2*msgbits-1`
Progress on AP decoding for 77bit messages. AP is basically working for regular i3=1 messages. 2018-07-28 18:32:45 -04:00			`!write(*,'(29i1,1x,29i1,1x,19i1)') (apsym(1:77)+1)/2`
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			`return`
			`end subroutine ft8apset_174_91`