From bcf6ab933b64a5d8edb864e3248712bf038bfbb8 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Fri, 14 Jul 2017 19:35:22 +0000
Subject: [PATCH] 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 | 25 +++++++++++++++++++++++++
 lib/fsk4hf/ft8b.f90     |  2 +-
 2 files changed, 26 insertions(+), 1 deletion(-)
 create mode 100644 lib/fsk4hf/ft8apset.f90

diff --git a/lib/fsk4hf/ft8apset.f90 b/lib/fsk4hf/ft8apset.f90
new file mode 100644
index 000000000..6cf88aa92
--- /dev/null
+++ b/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 
diff --git a/lib/fsk4hf/ft8b.f90 b/lib/fsk4hf/ft8b.f90
index ca8665ba9..f9c3c140e 100644
--- a/lib/fsk4hf/ft8b.f90
+++ b/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