From 35a5c8e78fa7e2de688e0269df9ff69c6f6058b8 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sat, 30 Jul 2016 20:08:22 +0000 Subject: [PATCH] Save mycall0 and hiscall0. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6978 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/detectmsk40.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/detectmsk40.f90 b/lib/detectmsk40.f90 index 894aad3fc..9f26ffa77 100644 --- a/lib/detectmsk40.f90 +++ b/lib/detectmsk40.f90 @@ -50,7 +50,7 @@ subroutine detectmsk40(cbig,n,pchk_file,mycall,hiscall,lines,nmessages, & data s8r/1,0,1,1,0,0,0,1/ ! codeword for the message RRR data testcw/0,1,0,0,0,1,0,1,0,0,1,1,1,1,0,1,0,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0/ - save df,first,cb,cbr,fs,nhashes,pi,twopi,dt,s8,s8r,rcw,pp,nmatchedfilter,rpt + save df,first,cb,cbr,fs,nhashes,pi,twopi,dt,s8,s8r,rcw,pp,nmatchedfilter,rpt,mycall0,hiscall0 if(first) then nmatchedfilter=1