Add ft8apset.f90.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7884 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

lib/fsk4hf/ft8apset.f90

@@ -0,0 +1,25 @@
+subroutine ft8apset(mycall12,hiscall12,hisgrid6,apsym,iaptype)
+  parameter(NAPM=4,KK=87)
+  character*12 mycall12,hiscall12
+  character*22 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(len_trim(hiscall).eq.0) then
+    iaptype=1
+    hiscall="K9AN  "  ! dummy call 
+  else
+    iaptype=2
+    hisgrid=hisgrid6(1:4)
+  endif
+  msg=mycall//' '//hiscall//' '//hisgrid
+  call genft8(msg,msgsent,msgbits,itone)
+  apsym=2*msgbits-1 
+  return
+  end subroutine ft8apset 

lib/fsk4hf/ft8b.f90

@@ -1,4 +1,4 @@
-subroutine ft8b(dd0,newdat,nfqso,ndepth,lsubtract,icand,sync0,f1,xdt,   &
+subroutine ft8b(dd0,newdat,nfqso,ndepth,lsubtract,iaptype,icand,sync0,f1,xdt,   &
      apsym,nharderrors,dmin,nbadcrc,iap,ipass,iera,message,xsnr)
 
   use timer_module, only: timer