From c56926595a9fa6be6a684dbcb207fcc0ad09caea Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 25 Oct 2021 11:14:54 -0400 Subject: [PATCH] Fix a problm with q3 decodes of " call2" messages, e.g., DL/G3WDG. --- lib/qra/q65/q65_set_list.f90 | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lib/qra/q65/q65_set_list.f90 b/lib/qra/q65/q65_set_list.f90 index acc7091ee..22d501a5f 100644 --- a/lib/qra/q65/q65_set_list.f90 +++ b/lib/qra/q65/q65_set_list.f90 @@ -22,12 +22,8 @@ subroutine q65_set_list(mycall,hiscall,hisgrid,codewords,ncw) if(i.eq.1 .or. i.ge.6) msg='<'//trim(mycall)//'> '//trim(hiscall) if(i.ge.2 .and. i.le.4) msg=trim(mycall)//' <'//trim(hiscall)//'>' else if(.not.his_std) then - if(i.le.4) msg='<'//trim(mycall)//'> '//trim(hiscall) + if(i.le.4 .or. i.eq.6) msg='<'//trim(mycall)//'> '//trim(hiscall) if(i.ge.7) msg=trim(mycall)//' <'//trim(hiscall)//'>' - if(i.eq.6) then - msg='TNX 73 GL' - go to 10 - endif endif j0=len(trim(msg))+2 if(i.eq.2) msg(j0:j0+2)='RRR'