mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-16 09:01:59 -05:00
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:
parent
6bcfe14ec2
commit
4dc8d03f8a
@ -41,7 +41,6 @@ subroutine getfile(fname,len)
|
||||
#ifdef Win32
|
||||
open(10,file=fname,form='binary',status='old',err=998)
|
||||
read(10,end=998) hdr
|
||||
|
||||
#else
|
||||
call rfile2(fname,hdr,44+2*NDMAX,nr)
|
||||
#endif
|
||||
@ -75,13 +74,7 @@ subroutine getfile(fname,len)
|
||||
#endif
|
||||
endif
|
||||
|
||||
if(monitoring.eq.0) then
|
||||
! In this case, spec should read data from d2c
|
||||
! jzc=jzc/2048
|
||||
! jzc=jzc*2048
|
||||
ndiskdat=1
|
||||
endif
|
||||
|
||||
mousebutton=0
|
||||
go to 999
|
||||
|
||||
|
1
spec.f90
1
spec.f90
@ -199,7 +199,6 @@ subroutine spec(brightness,contrast,logmap,ngain,nspeed,a)
|
||||
nspeed0=nspeed
|
||||
endif
|
||||
|
||||
! print*,brightness,contrast,logmap,gain,gamma,offset
|
||||
do i=1,iz
|
||||
n=0
|
||||
if(a0(i).gt.0.0 .and. logmap.eq.1) n=gain*log10(0.001*a0(i)) + offset + 20
|
||||
|
Loading…
Reference in New Issue
Block a user