mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-05-29 04:42:28 -04: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
|
#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
|
||||||
|
|
||||||
|
1
spec.f90
1
spec.f90
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user