From 23f72e3f15bfa3923761570529690772dba65e5c Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 9 Oct 2008 19:07:34 +0000 Subject: [PATCH] Fixed bug in packgrid.f git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1034 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- map65.py | 2 +- packgrid.f | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/map65.py b/map65.py index 4ab3cd7c8..e801dbbfe 100644 --- a/map65.py +++ b/map65.py @@ -1,4 +1,4 @@ -#--------------------------------------------------------------------- MAP65 +#---------------------------------------------------------------------- MAP65 # $Date$ $Revision$ # from Tkinter import * diff --git a/packgrid.f b/packgrid.f index 2dc77ae19..143e167f3 100644 --- a/packgrid.f +++ b/packgrid.f @@ -28,8 +28,8 @@ C Test for numerical signal report, etc. go to 100 endif - if(grid(1:1).lt.'A' .or. grid(1:1).gt.'Z') text=.true. - if(grid(2:2).lt.'A' .or. grid(2:2).gt.'Z') text=.true. + if(grid(1:1).lt.'A' .or. grid(1:1).gt.'R') text=.true. + if(grid(2:2).lt.'A' .or. grid(2:2).gt.'R') text=.true. if(grid(3:3).lt.'0' .or. grid(3:3).gt.'9') text=.true. if(grid(4:4).lt.'0' .or. grid(4:4).gt.'9') text=.true. if(text) go to 100