From 99d4ed1399c81f5a6d0a08d1b99134d9def9e2d3 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sun, 24 Jul 2016 18:31:13 +0000 Subject: [PATCH] Correct a logical flaw in hint65.f90. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6945 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/hint65.f90 | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lib/hint65.f90 b/lib/hint65.f90 index df6c297fb..adbfcdd96 100644 --- a/lib/hint65.f90 +++ b/lib/hint65.f90 @@ -53,11 +53,10 @@ subroutine hint65(s3,mrs,mrs2,nadd,nflip,mycall,hiscall,hisgrid,qual,decoded) if(i3.lt.1) i3=index(line(i2+1:),' ') i3=i2+i3 callsign=line(1:i1-1) - grid=line(i1+1:i2-1) + grid=line(i1+1:i1+4) ceme=line(i2+1:i3-1) eme(i)=ceme.eq.'EME' if(neme.eq.1 .and. (.not.eme(i))) cycle - if(callsign(1:6).eq.hiscall .and. grid.eq.hisgrid) cycle j=j+1 call2(j)=callsign(1:6) !### Fix for compound callsigns! grid2(j)=grid @@ -72,7 +71,7 @@ subroutine hint65(s3,mrs,mrs2,nadd,nflip,mycall,hiscall,hisgrid,qual,decoded) ! NB: generation of test messages is not yet complete! j=0 do i=-1,ncalls - if(i.eq.0 .and. hiscall.eq.' ' .and. hisgrid.eq.' ') cycle + if(i.eq.0 .and. hiscall.eq.' ' .and. hisgrid(1:4).eq.' ') cycle mz=2 if(i.eq.-1) mz=1 if(i.eq.0) mz=65