w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-06 11:55:15 -04:00
Code Issues Packages Projects Releases Wiki Activity

Correct a longstanding error in values of "nw()" returned by subroutine split77().

Browse Source
This commit is contained in:
Joe Taylor 2021-10-27 12:09:23 -04:00
parent 901e9dbc38
commit f51a7d4f7d
1 changed files with 4 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

@ -824,7 +824,9 @@ subroutine split77(msg,nwords,nw,w)
iz=j !Message length iz=j !Message length
nwords=k !Number of words in msg nwords=k !Number of words in msg
if(nwords.le.0) go to 900 if(nwords.le.0) go to 900
nw(k)=len(trim(w(k))) do i=1,nwords
nw(i)=len(trim(w(i)))
enddo
msg(iz+1:)=' ' msg(iz+1:)=' '
if(nwords.lt.3) go to 900 if(nwords.lt.3) go to 900
call chkcall(w(3),bcall_1,ok1) call chkcall(w(3),bcall_1,ok1)