From 0a648a109f364c6f2b326e0eabf618151d1c1cb6 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 16 Jan 2019 15:00:12 -0500
Subject: [PATCH] Correct broken S/N for tx_once transmissions.

---
 lib/ft2/ft2.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/ft2/ft2.f90 b/lib/ft2/ft2.f90
index cacd538a9..129655feb 100644
--- a/lib/ft2/ft2.f90
+++ b/lib/ft2/ft2.f90
@@ -62,6 +62,7 @@ program ft2
      tx_once=.true.
      ftx=1500.0
      call transmit(-1,ftx,iptt)
+     snrdb=99.0
   endif
   
 ! Start the audio streams  
@@ -218,7 +219,7 @@ subroutine transmit(nfunc,ftx,iptt)
        ' R 559 '//trim(exch)
   if(nfunc.eq.4) txmsg=trim(hiscall)//' '//trim(mycall)//' RR73'
   if(nfunc.eq.5) txmsg='TNX 73 GL'
-  call ft2_iwave(txmsg,ftx,99.0,iwave)
+  call ft2_iwave(txmsg,ftx,snrdb,iwave)
   i1=ptt(nport,1,1,iptt)
   ntxok=1
   n=len(trim(txmsg))