From 2e3e5990fce4c6b44f3223053350560d0c5487cf Mon Sep 17 00:00:00 2001
From: Bill Somerville <g4wjs@classdesign.com>
Date: Fri, 28 Jul 2017 00:00:42 +0000
Subject: [PATCH] Fix syntax error in statement function definition

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7964 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/genmsk144.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/genmsk144.f90 b/lib/genmsk144.f90
index b58196f4f..cbd2285b4 100644
--- a/lib/genmsk144.f90
+++ b/lib/genmsk144.f90
@@ -41,7 +41,7 @@ subroutine genmsk144(msg0,mygrid,ichk,bcontest,msgsent,i4tone,itype)
   data first/.true./
   save
 
-  isgrid=g1(1:1).ge.'A' .and. g1(1:1).le.'R' .and. g1(2:2).ge.'A' .and.     &
+  isgrid(g1)=g1(1:1).ge.'A' .and. g1(1:1).le.'R' .and. g1(2:2).ge.'A' .and.     &
        g1(2:2).le.'R' .and. g1(3:3).ge.'0' .and. g1(3:3).le.'9' .and.       &
        g1(4:4).ge.'0' .and. g1(4:4).le.'9' .and. g1(1:4).ne.'RR73'