w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-10-31 13:10:19 -04:00
Code Issues Packages Projects Releases Wiki Activity
WSJT-X/lib/fast_decode.f90

92 lines
1.9 KiB
Fortran
Raw Normal View History

Repair a crash when decoding ISCAT Passing a auto stack variable to a future is not a good idea as it will almost certainly go out of scope before the future has finished executing.
2019-06-30 12:17:17 +01:00
subroutine fast_decode(id2,narg,trperiod,line,mycall_12, &
No bounds-check for Release build; increase Windows stack size, again; some fixes for ISCAT mode. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7186 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-10-16 17:36:00 +00:00
hiscall_12)
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-11-18 01:28:12 +00:00
parameter (NMAX=30*12000)
integer*2 id2(NMAX)
MSK144 fixes: Click on lower panel of Fast Graph decodes from previous file; clicking beyond available data does not crash program. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6964 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-29 16:10:55 +00:00
integer*2 id2a(NMAX)
integer*2 id2b(NMAX)
Pass naggressive to fast_decode(). Display <...> messages only if naggressive>0. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6463 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-02-03 20:23:52 +00:00
integer narg(0:14)
Repair a crash when decoding ISCAT Passing a auto stack variable to a future is not a good idea as it will almost certainly go out of scope before the future has finished executing.
2019-06-30 12:17:17 +01:00
double precision trperiod
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-11-18 01:28:12 +00:00
real dat(30*12000)
complex cdat(262145),cdat2(262145)
real psavg(450)
MSK144 fixes: Click on lower panel of Fast Graph decodes from previous file; clicking beyond available data does not crash program. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6964 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-29 16:10:55 +00:00
logical pick,first
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-11-18 01:28:12 +00:00
character*6 cfile6
Remove diagnostic print. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6742 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-06-08 21:25:11 +00:00
character*80 line(100)
Commit most of what's necessary for decoding MSK144 short messages, including the hash test. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6889 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-07 20:15:01 +00:00
character*12 mycall_12,hiscall_12
character*6 mycall,hiscall
1. Display proper UTC on Fast Graph for files read from disk. 2. Move cursor DT readout to lower left of top panel. 3. More work on pick-decodes... but it's not yet fully working. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7092 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-09-17 13:34:40 +00:00
data first/.true./,nutca/0/,nutcb/0/
save npts,cdat,cdat2,id2a,id2b,nutca,nutcb
MSK144 fixes: Click on lower panel of Fast Graph decodes from previous file; clicking beyond available data does not crash program. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6964 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-29 16:10:55 +00:00
if(first) then
id2a=0
id2b=0
first=.false.
endif
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-11-18 01:28:12 +00:00
Commit most of what's necessary for decoding MSK144 short messages, including the hash test. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6889 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-07 20:15:01 +00:00
mycall=mycall_12(1:6)
hiscall=hiscall_12(1:6)
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-11-18 01:28:12 +00:00
nutc=narg(0)
ndat0=narg(1)
nsubmode=narg(2)
newdat=narg(3)
minsync=narg(4)
npick=narg(5)
t0=0.001*narg(6)
t1=0.001*narg(7)
1. Display proper UTC on Fast Graph for files read from disk. 2. Move cursor DT readout to lower left of top panel. 3. More work on pick-decodes... but it's not yet fully working. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7092 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-09-17 13:34:40 +00:00
tmid=0.5*(t0+t1)
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-11-18 01:28:12 +00:00
maxlines=narg(8)
nmode=narg(9)
More-or-less functional decoder for JTMSK short messages. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6419 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-01-22 16:42:44 +00:00
nrxfreq=narg(10)
ntol=narg(11)
nhashcalls=narg(12)
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-11-18 01:28:12 +00:00
MSK144 fixes: Click on lower panel of Fast Graph decodes from previous file; clicking beyond available data does not crash program. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6964 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-29 16:10:55 +00:00
line(1:100)(1:1)=char(0)
Repair a crash when decoding ISCAT Passing a auto stack variable to a future is not a good idea as it will almost certainly go out of scope before the future has finished executing.
2019-06-30 12:17:17 +01:00
if(t0.gt.trperiod) go to 900
Small improvement in click-to-decode. More work needed. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6977 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-30 19:06:19 +00:00
if(t0.gt.t1) go to 900
MSK144 fixes: Click on lower panel of Fast Graph decodes from previous file; clicking beyond available data does not crash program. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6964 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-07-29 16:10:55 +00:00
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-11-18 01:28:12 +00:00
if(nmode.eq.102) then
call fast9(id2,narg,line)
go to 900
endif
if(newdat.eq.1) then
cdat2=cdat
ndat=ndat0
call wav11(id2,ndat,dat)
Repair a crash when decoding ISCAT Passing a auto stack variable to a future is not a good idea as it will almost certainly go out of scope before the future has finished executing.
2019-06-30 12:17:17 +01:00
nzz=11025*int(trperiod) !beware if fractional T/R period ever used here
Correct another flaw in ISCAT decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7199 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2016-10-18 20:17:56 +00:00
if(ndat.lt.nzz) dat(ndat+1:nzz)=0.0
Reintegrate merge from wsjtx_exp branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6122 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2015-11-18 01:28:12 +00:00
ndat=min(ndat,30*11025)
call ana932(dat,ndat,cdat,npts) !Make downsampled analytic signal
endif
! Now cdat() is the downsampled analytic signal.
! New sample rate = fsample = BW = 11025 * (9/32) = 3100.78125 Hz
! NB: npts, nsps, etc., are all reduced by 9/32
write(cfile6,'(i6.6)') nutc
nfreeze=1
mousedf=0
mousebutton=0
mode4=1
if(nsubmode.eq.1) mode4=2
nafc=0
ndebug=0
t2=0.
ia=1
ib=npts
pick=.false.
if(npick.gt.0) then
pick=.true.
dt=1.0/11025.0 * (32.0/9.0)
ia=t0/dt + 1.
ib=t1/dt + 1.
t2=t0
endif
jz=ib-ia+1
line(1:100)(1:1)=char(0)
900 return
end subroutine fast_decode
Reference in New Issue Copy Permalink