w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-19 18:42:06 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fixed (benign?) bounds error in recvpkt.F90.

Browse Source 
Fixed (occasional) bounds error in display.F90.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@580 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-11-19 16:42:21 +00:00
parent 1536952e2b
commit 048ada50fb
3 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
display.F90
View File

@ -52,6 +52,7 @@ subroutine display(nkeep,ncsmin)
20 i0=i 20 i0=i
nz=nz-i0+1 nz=nz-i0+1
rewind 26 rewind 26
if(nz.lt.1) go to 999
do i=1,nz do i=1,nz
j=i+i0-1 j=i+i0-1
line(i)=line(j) line(i)=line(j)
@ -67,8 +68,13 @@ subroutine display(nkeep,ncsmin)
nstart=1 nstart=1
k3=0 k3=0
k=1 k=1
line2(1)=line(indx(1)) m=indx(1)
utc2(1)=utc(indx(1)) if(m.lt.1 .or. m.gt.MAXLINES) then
print*,'Error in display.F90: ',nz,m
m=1
endif
line2(1)=line(m)
utc2(1)=utc(m)
do i=2,nz do i=2,nz
j0=indx(i-1) j0=indx(i-1)
j=indx(i) j=indx(i)

2
map65.py
View File

@ -1,4 +1,4 @@
#---------------------------------------------------------------------- MAP65 #----------------------------------------------------------------------- MAP65
# $Date$ $Revision$ # $Date$ $Revision$
# #
from Tkinter import * from Tkinter import *

10
recvpkt.F90
View File

@ -78,8 +78,14 @@ subroutine recvpkt(iarg)
do i=1,174 do i=1,174
k=k+1 k=k+1
d8(k)=buf8(i) d8(k)=buf8(i)
sq=sq + float(int(id(1,k,1)))**2 + float(int(id(1,k,1)))**2 + & k2=k
float(int(id(1,k,1)))**2 + float(int(id(1,k,1)))**2 n=1
if(k.gt.NSMAX) then
k2=k2-NSMAX
n=2
endif
sq=sq + float(int(id(1,k2,n)))**2 + float(int(id(1,k2,n)))**2 + &
float(int(id(1,k2,n)))**2 + float(int(id(1,k2,n)))**2
enddo enddo
sqave=sqave + u*(sq-sqave) sqave=sqave + u*(sq-sqave)
rxnoise=10.0*log10(sqave) - 48.0 rxnoise=10.0*log10(sqave) - 48.0