w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05: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

6
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)
@ -833,7 +835,7 @@ subroutine split77(msg,nwords,nw,w)
w(2:12)=w(3:13) !Move all remaining 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
900 return 900 return
end subroutine split77 end subroutine split77