From 12efb098bb0d3f9e6f2171a9eca484ae26600eac Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Tue, 19 Oct 2021 14:43:17 -0400 Subject: [PATCH] Fix the problem with q3 decodes when DxCall is compount and DxGrid is present. --- lib/qra/q65/q65_set_list.f90 | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lib/qra/q65/q65_set_list.f90 b/lib/qra/q65/q65_set_list.f90 index 065f7dc09..acc7091ee 100644 --- a/lib/qra/q65/q65_set_list.f90 +++ b/lib/qra/q65/q65_set_list.f90 @@ -33,8 +33,11 @@ subroutine q65_set_list(mycall,hiscall,hisgrid,codewords,ncw) if(i.eq.2) msg(j0:j0+2)='RRR' if(i.eq.3) msg(j0:j0+3)='RR73' if(i.eq.4) msg(j0:j0+1)='73' - if(i.eq.5) msg='CQ '//trim(hiscall)//' '//hisgrid(1:4) - if(i.eq.6) msg(j0:j0+3)=hisgrid(1:4) + if(i.eq.5) then + if(his_std) msg='CQ '//trim(hiscall)//' '//hisgrid(1:4) + if(.not.his_std) msg='CQ '//trim(hiscall) + endif + if(i.eq.6 .and. his_std) msg(j0:j0+3)=hisgrid(1:4) if(i.ge.7 .and. i.le.206) then isnr = -50 + (i-7)/2 if(iand(i,1).eq.1) then