w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-09-29 16:46:40 -04:00
Code Issues Packages Projects Releases Wiki Activity

Ensure that split77() correctly converts lower case characters to upper case.

Browse Source
This commit is contained in:
Steven Franke 2021-03-24 13:48:42 -05:00 committed by Bill Somerville
parent 004df18732
commit 1013bb0669
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/77bit/packjt77.f90
View File

@ -816,8 +816,8 @@ subroutine split77(msg,nwords,nw,w)
endif endif
j=j+1 !Index in msg j=j+1 !Index in msg
n=n+1 !Index in word 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 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 if(n.le.13) w(k)(n:n)=c !Copy character c into word
c0=c c0=c
enddo enddo
@ -830,7 +830,7 @@ subroutine split77(msg,nwords,nw,w)
call chkcall(w(3),bcall_1,ok1) call chkcall(w(3),bcall_1,ok1)
if(ok1 .and. w(1)(1:3).eq.'CQ ') then if(ok1 .and. w(1)(1:3).eq.'CQ ') then
w(1)='CQ_'//w(2)(1:10) !Make "CQ " into "CQ_" 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 nwords=nwords-1
endif endif