Fix nz=0 bug in display.F90.

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

View File

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

View File

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