mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-31 23:57:10 -04:00
882e31e6d6
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7199 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
135 lines
3.1 KiB
Fortran
135 lines
3.1 KiB
Fortran
subroutine fast_decode(id2,narg,ntrperiod,bShMsgs,line,mycall_12, &
|
|
hiscall_12)
|
|
|
|
parameter (NMAX=30*12000)
|
|
integer*2 id2(NMAX)
|
|
integer*2 id2a(NMAX)
|
|
integer*2 id2b(NMAX)
|
|
integer narg(0:14)
|
|
logical*1 bShMsgs
|
|
real dat(30*12000)
|
|
complex cdat(262145),cdat2(262145)
|
|
real psavg(450)
|
|
logical pick,first
|
|
character*6 cfile6
|
|
character*80 line(100)
|
|
character*12 mycall_12,hiscall_12
|
|
character*6 mycall,hiscall
|
|
data first/.true./,nutca/0/,nutcb/0/
|
|
save npts,cdat,cdat2,id2a,id2b,nutca,nutcb
|
|
|
|
if(first) then
|
|
id2a=0
|
|
id2b=0
|
|
first=.false.
|
|
endif
|
|
|
|
mycall=mycall_12(1:6)
|
|
hiscall=hiscall_12(1:6)
|
|
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)
|
|
tmid=0.5*(t0+t1)
|
|
maxlines=narg(8)
|
|
nmode=narg(9)
|
|
nrxfreq=narg(10)
|
|
ntol=narg(11)
|
|
nhashcalls=narg(12)
|
|
|
|
line(1:100)(1:1)=char(0)
|
|
if(t0.gt.float(ntrperiod)) go to 900
|
|
if(t0.gt.t1) go to 900
|
|
|
|
if(nmode.eq.102) then
|
|
call fast9(id2,narg,line)
|
|
go to 900
|
|
else if(nmode.eq.104) then
|
|
! MSK144 mode
|
|
if(newdat.eq.1) then
|
|
id2b=id2a !Data for lower panel
|
|
id2a=id2 !Data for upper panel
|
|
nutcb=nutca
|
|
nutca=nutc
|
|
endif
|
|
ia=max(1,nint(t0*12000.0))
|
|
ib=nint(t1*12000.0)
|
|
if(ib.gt.ntrperiod*12000) ib=ntrperiod*12000
|
|
nz=ib-ia+1
|
|
|
|
if(newdat.eq.1) then
|
|
! Full sequence of new data
|
|
call msk144_decode(id2a(ia),nz,nutca,0,mycall,hiscall, &
|
|
bShMsgs,ntol,t0,line)
|
|
go to 100
|
|
endif
|
|
|
|
if(npick.eq.1) then
|
|
! Pick-decode from upper panel
|
|
call msk144_decode(id2(ia),nz,nutc,0,mycall,hiscall, &
|
|
bShMsgs,ntol,t0,line)
|
|
go to 100
|
|
endif
|
|
|
|
if(npick.eq.2) then
|
|
! Pick-decode from lower panel
|
|
! write(*,3001) newdat,npick,nutca
|
|
call msk144_decode(id2b(ia),nz,nutca,0,mycall,hiscall, &
|
|
bShMsgs,ntol,t0,line)
|
|
endif
|
|
100 continue
|
|
go to 900
|
|
|
|
endif
|
|
|
|
if(newdat.eq.1) then
|
|
cdat2=cdat
|
|
ndat=ndat0
|
|
call wav11(id2,ndat,dat)
|
|
nzz=11025*ntrperiod
|
|
if(ndat.lt.nzz) dat(ndat+1:nzz)=0.0
|
|
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)
|
|
if(npick.eq.2) then
|
|
call iscat(cdat2(ia),jz,3,40,t2,pick,cfile6,minsync,ntol,NFreeze, &
|
|
MouseDF,mousebutton,mode4,nafc,ndebug,psavg,nmax,nlines,line)
|
|
else
|
|
call iscat(cdat(ia),jz,3,40,t2,pick,cfile6,minsync,ntol,NFreeze, &
|
|
MouseDF,mousebutton,mode4,nafc,ndebug,psavg,maxlines,nlines,line)
|
|
endif
|
|
|
|
900 return
|
|
end subroutine fast_decode
|