WSJT-X/lib/fillcom.f90

26 lines
483 B
Fortran

subroutine fillcom(nutc0,ndepth0)
character*20 datetime
common/npar/nutc,ndiskdat,ntrperiod,nfqso,newdat,npts8,nfa,nfb,ntol, &
kin,nzhsym,nsave,nagain,ndepth,nrxlog,nfsample,datetime
save
nutc=nutc0
ndiskdat=1
ntrperiod=60
nfqso=1500
newdat=1
npts8=74736
nfa=1000
nfb=2000
ntol=3
kin=1024
nzhsym=173
nsave=0
ndepth=ndepth0
nrxlog=1
nfsample=12000
datetime="2013-Apr-16 15:13"
return
end subroutine fillcom