WSJT-X/lib/fillcom.f90
Joe Taylor ac44bacd91 1. Allow waterfall window to have smaller height.
2. Speed improvement in JT9 decoder.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3488 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2013-07-16 18:17:20 +00:00

26 lines
489 B
Fortran

subroutine fillcom(nutc0,ndepth0,nrxfreq)
character*20 datetime
common/npar/nutc,ndiskdat,ntrperiod,nfqso,newdat,npts8,nfa,nfb,ntol, &
kin,nzhsym,nsave,nagain,ndepth,ntxmode,nmode,datetime
save
nutc=nutc0
ndiskdat=1
ntrperiod=60
nfqso=nrxfreq
newdat=1
npts8=74736
nfa=2700
nfb=4007
ntol=3
kin=1024
nzhsym=173
nsave=0
ndepth=ndepth0
ntxmode=9
nmode=9+65
datetime="2013-Apr-16 15:13"
return
end subroutine fillcom