Fixed so that files can be read while Monitoring or Auto is on.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@135 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2006-03-24 21:13:27 +00:00
parent 6bcfe14ec2
commit 4dc8d03f8a
3 changed files with 2 additions and 10 deletions

View File

@ -41,7 +41,6 @@ subroutine getfile(fname,len)
#ifdef Win32 #ifdef Win32
open(10,file=fname,form='binary',status='old',err=998) open(10,file=fname,form='binary',status='old',err=998)
read(10,end=998) hdr read(10,end=998) hdr
#else #else
call rfile2(fname,hdr,44+2*NDMAX,nr) call rfile2(fname,hdr,44+2*NDMAX,nr)
#endif #endif
@ -75,13 +74,7 @@ subroutine getfile(fname,len)
#endif #endif
endif endif
if(monitoring.eq.0) then ndiskdat=1
! In this case, spec should read data from d2c
! jzc=jzc/2048
! jzc=jzc*2048
ndiskdat=1
endif
mousebutton=0 mousebutton=0
go to 999 go to 999

View File

@ -199,7 +199,6 @@ subroutine spec(brightness,contrast,logmap,ngain,nspeed,a)
nspeed0=nspeed nspeed0=nspeed
endif endif
! print*,brightness,contrast,logmap,gain,gamma,offset
do i=1,iz do i=1,iz
n=0 n=0
if(a0(i).gt.0.0 .and. logmap.eq.1) n=gain*log10(0.001*a0(i)) + offset + 20 if(a0(i).gt.0.0 .and. logmap.eq.1) n=gain*log10(0.001*a0(i)) + offset + 20

View File

@ -1,4 +1,4 @@
#---------------------------------------------------------------- WSJT #------------------------------------------------------------------ WSJT
from Tkinter import * from Tkinter import *
from tkFileDialog import * from tkFileDialog import *
import Pmw import Pmw