From cc368b7d6d703010ee356a3e9227d9311b3d5453 Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Thu, 18 Oct 2018 14:20:23 +0200
Subject: [PATCH] remove unused variables from ft8d.f90

---
 ft8d.f90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/ft8d.f90 b/ft8d.f90
index 6f35e6c..62c708b 100644
--- a/ft8d.f90
+++ b/ft8d.f90
@@ -3,7 +3,7 @@ program ft8d
 ! Decode FT8 data read from *.c2 files.
 
   include 'ft8_params.f90'
-  character infile*80,date*6,message*22,msg37*37
+  character infile*80,date*6
   character msgcall*12, msggrid*4
   real s(NFFT1,NHSYM)
   real sbase(NFFT1)
@@ -53,7 +53,6 @@ program ft8d
           nftx,ndepth,lft8apon,lapcqonly,napwid,nagain,iaptype,  &
           f1,xdt,xbase,apsym,nharderrors,dmin,nbadcrc,iappass,   &
           msgcall,msggrid,xsnr)
-      message=msg37(1:22)
       nsnr=nint(xsnr)
       xdt=xdt-0.5
       hd=nharderrors+dmin