From 7d07423a503da5de7df3cb6f4d2dce8cf47123e4 Mon Sep 17 00:00:00 2001 From: Bill Somerville Date: Mon, 20 Jul 2020 21:24:45 +0100 Subject: [PATCH] Repair own call hash decoding in received messages --- lib/fst240_decode.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/fst240_decode.f90 b/lib/fst240_decode.f90 index 223dc9f36..63570657e 100644 --- a/lib/fst240_decode.f90 +++ b/lib/fst240_decode.f90 @@ -539,11 +539,11 @@ contains endif if(iqorw.eq.1) then write(c77,'(77i1)') mod(message101(1:77)+rvec,2) - call unpack77(c77,0,msg,unpk77_success) + call unpack77(c77,1,msg,unpk77_success) else write(c77,'(50i1)') message74(1:50) c77(51:77)='000000000000000000000110000' - call unpack77(c77,0,msg,unpk77_success) + call unpack77(c77,1,msg,unpk77_success) endif if(unpk77_success) then idupe=0