From c3bc478c7a1b68707adc9b532601a2b1ec2dd21a Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Wed, 30 Jan 2019 22:19:33 +0100
Subject: [PATCH] remove extractmessage174_91.f90

---
 Makefile                 |  6 +++---
 extractmessage174_91.f90 | 40 ----------------------------------------
 2 files changed, 3 insertions(+), 43 deletions(-)
 delete mode 100644 extractmessage174_91.f90

diff --git a/Makefile b/Makefile
index 434111c..afde4ac 100644
--- a/Makefile
+++ b/Makefile
@@ -3,9 +3,9 @@ TARGET = ft8d
 OBJECTS = \
   crc14.o crc.o ft8_downsample.o sync8d.o sync8.o grid2deg.o four2a.o \
   deg2grid.o determ.o fftw3mod.o baseline.o bpdecode174_91.o fmtmsg.o \
-  packjt.o chkcrc14a.o extractmessage174_91.o indexx.o shell.o pctile.o \
-  polyfit.o twkfreq1.o osd174_91.o encode174_91.o chkcall.o packjt77.o \
-  genft8.o genft8refsig.o subtractft8.o ft8b.o ft8d.o
+  packjt.o chkcrc14a.o indexx.o shell.o pctile.o polyfit.o twkfreq1.o \
+  osd174_91.o encode174_91.o chkcall.o packjt77.o genft8.o genft8refsig.o \
+  subtractft8.o ft8b.o ft8d.o
 
 CC = gcc
 FC = gfortran
diff --git a/extractmessage174_91.f90 b/extractmessage174_91.f90
deleted file mode 100644
index bf52de2..0000000
--- a/extractmessage174_91.f90
+++ /dev/null
@@ -1,40 +0,0 @@
-subroutine extractmessage174_91(decoded,msgreceived,ncrcflag)
-  use iso_c_binding, only: c_loc,c_size_t
-  use crc
-  use packjt
-
-  character*22 msgreceived
-  character*91 cbits
-  integer*1 decoded(91)
-  integer*1, target::  i1Dec8BitBytes(12)
-  integer*4 i4Dec6BitWords(12)
-
-! Write decoded bits into cbits: 77-bit message plus 14-bit CRC
-  write(cbits,1000) decoded
-1000 format(91i1)
-  read(cbits,1001) i1Dec8BitBytes
-1001 format(12b8)
-  read(cbits,1002) ncrc14                         !Received CRC12
-1002 format(77x,b14)
-
-  i1Dec8BitBytes(10)=iand(i1Dec8BitBytes(10),128+64+32+16+8)
-  i1Dec8BitBytes(11:12)=0
-  icrc14=crc14(c_loc(i1Dec8BitBytes),12)          !CRC12 computed from 75 msg bits
-
-  if(ncrc14.eq.icrc14 .or. sum(decoded(57:87)).eq.0) then  !### Kludge ###
-! CRC14 checks out --- unpack 72-bit message
-    do ibyte=1,12
-      itmp=0
-      do ibit=1,6
-        itmp=ishft(itmp,1)+iand(1,decoded((ibyte-1)*6+ibit))
-      enddo
-      i4Dec6BitWords(ibyte)=itmp
-    enddo
-    call unpackmsg(i4Dec6BitWords,msgreceived)
-    ncrcflag=1
-  else
-    msgreceived=' '
-    ncrcflag=-1
-  endif
-  return
-  end subroutine extractmessage174_91