From 6838a6b4847f017b3bafe1d9540605cee5012949 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Tue, 4 Aug 2020 11:56:32 -0500
Subject: [PATCH] Remove some unneeded code.

---
 lib/fst4_decode.f90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/fst4_decode.f90 b/lib/fst4_decode.f90
index 88572dfb7..e56fa27a8 100644
--- a/lib/fst4_decode.f90
+++ b/lib/fst4_decode.f90
@@ -149,8 +149,7 @@ contains
          if(i3.ne.1 .or. (msg.ne.msgsent) .or. .not.unpk77_success) go to 10
          read(c77,'(77i1)') message77
          message77=mod(message77+rvec,2)
-         call encode174_91(message77,cw)
-         apbits=2*cw-1
+         apbits(1:77)=2*message77-1
          if(nohiscall) apbits(30)=99
 
 10       continue