subroutine fast_decode(id2,narg,line) parameter (NMAX=30*12000) integer*2 id2(NMAX) integer narg(0:9) real dat(30*12000) complex cdat(262145),cdat2(262145) real psavg(450) logical pick character*6 cfile6 character*80 line(100) save npts 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) maxlines=narg(8) nmode=narg(9) ! call sleep_msec(100) !### TEMPORARY ### if(nmode.eq.102) then call fast9(id2,narg,line) go to 900 else if(nmode.eq.103) then call jtmsk(id2,narg,line) go to 900 endif if(newdat.eq.1) then cdat2=cdat ndat=ndat0 call wav11(id2,ndat,dat) 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 ntol=400 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