w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-31 13:12:30 -04:00
Code Issues Packages Projects Releases Wiki Activity

Protect against bounds error in "space".

Browse Source 
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:
Joe Taylor 2017-10-17 14:48:52 +00:00
parent 291f648405
commit ba51c662aa
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
libm65/timer.f90
View File

@ -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, &