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

Fix nz=0 bug in display.F90.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@574 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-11-05 13:41:05 +00:00
parent e52c46e4a0
commit ce99c590dd
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
display.F90
View File

@ -30,6 +30,7 @@ subroutine display(nkeep,ncsmin)
10 nz=i-1 10 nz=i-1
utcz=utc(nz) utcz=utc(nz)
nz=nz-1 nz=nz-1
if(nz.lt.1) go to 999
nquad=max(nkeep/4,3) nquad=max(nkeep/4,3)
do i=1,nz do i=1,nz
nage=utcz-utc(i) nage=utcz-utc(i)
@ -59,8 +60,8 @@ subroutine display(nkeep,ncsmin)
write(26,1010) line(i) write(26,1010) line(i)
enddo enddo
endif endif
call flushqqq(26)
call flushqqq(26)
call indexx(nz,freqkHz,indx) call indexx(nz,freqkHz,indx)
nstart=1 nstart=1
@ -159,5 +160,5 @@ subroutine display(nkeep,ncsmin)
1040 format(a40) 1040 format(a40)
enddo enddo
call flushqqq(20) call flushqqq(20)
return 999 return
end subroutine display end subroutine display

2
map65.py
View File

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