diff --git a/display.F90 b/display.F90 index d18d9d9fb..a10ab0076 100644 --- a/display.F90 +++ b/display.F90 @@ -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 diff --git a/map65.py b/map65.py index c285969e6..a7ddd3188 100644 --- a/map65.py +++ b/map65.py @@ -1,4 +1,4 @@ -#---------------------------------------------------------------------- MAP65 +#--------------------------------------------------------------------- MAP65 # $Date$ $Revision$ # from Tkinter import *