From 781ff110e793e944d4c767444b4fffb27f6d60d4 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sun, 9 Jul 2017 17:46:02 +0000 Subject: [PATCH] Guard against blank msg in fix_contest_message. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7823 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fix_contest_msg.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/fix_contest_msg.f90 b/lib/fix_contest_msg.f90 index 411ef282a..d0ad519fb 100644 --- a/lib/fix_contest_msg.f90 +++ b/lib/fix_contest_msg.f90 @@ -10,6 +10,7 @@ subroutine fix_contest_msg(mycall,mygrid,hiscall,msg) logical isgrid n=len(trim(msg)) + if(n.lt.4) return g1=msg(n-3:n)//' ' if(isgrid(g1)) then call azdist(mygrid,g1,0.d0,nAz,nEl,nDmiles,nDkm,nHotAz,nHotABetter)