mirror of https://github.com/saitohirga/WSJT-X.git
Protect against bounds error in "space".
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@8176 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
291f648405
commit
ba51c662aa
|
@ -87,7 +87,8 @@ subroutine timer(dname,k)
|
||||||
sum=sum+dut(i)
|
sum=sum+dut(i)
|
||||||
sumf=sumf+dutf
|
sumf=sumf+dutf
|
||||||
kk=min(nlevel(i),8)
|
kk=min(nlevel(i),8)
|
||||||
sname=space(1:kk)//name(i)//space(1:8-kk)
|
if(kk.lt.1) sname=name(i)//space
|
||||||
|
if(kk.ge.1) sname=space(1:kk)//name(i)//space(1:8-kk)
|
||||||
ename=space
|
ename=space
|
||||||
if(i.ge.2) ename=name(nparent(i))
|
if(i.ge.2) ename=name(nparent(i))
|
||||||
write(lu,1060) float(i),sname,ut(i),utf,dut(i),dutf, &
|
write(lu,1060) float(i),sname,ut(i),utf,dut(i),dutf, &
|
||||||
|
|
Loading…
Reference in New Issue