From 1013bb0669972ce6fa38a29b57c902759d365cd8 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Wed, 24 Mar 2021 13:48:42 -0500 Subject: [PATCH] Ensure that split77() correctly converts lower case characters to upper case. --- lib/77bit/packjt77.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90 index 83d848f1f..aec73c68f 100644 --- a/lib/77bit/packjt77.f90 +++ b/lib/77bit/packjt77.f90 @@ -816,8 +816,8 @@ subroutine split77(msg,nwords,nw,w) endif j=j+1 !Index in msg n=n+1 !Index in word + if(c.ge.'a' .and. c.le.'z') c=char(ichar(c)-32) !Force upper case msg(j:j)=c - if(c.ge.'a' .and. c.le.'z') msg(j:j)=char(ichar(c)-32) !Force upper case if(n.le.13) w(k)(n:n)=c !Copy character c into word c0=c enddo @@ -830,7 +830,7 @@ subroutine split77(msg,nwords,nw,w) call chkcall(w(3),bcall_1,ok1) if(ok1 .and. w(1)(1:3).eq.'CQ ') then w(1)='CQ_'//w(2)(1:10) !Make "CQ " into "CQ_" - w(2:12)=w(3:13) !Move all remeining words down by one + w(2:12)=w(3:13) !Move all remaining words down by one nwords=nwords-1 endif