subroutine fillcom(nutc0,ndepth0,nrxfreq,mode,tx9,flow,fsplit,fhigh)
  integer mode,flow,fsplit,fhigh
  logical tx9

  character datetime*20,mycall*12,mygrid*6,hiscall*12,hisgrid*6
  common/npar/nutc,ndiskdat,ntrperiod,nfqso,newdat,npts8,nfa,nfsplit,nfb,    &
       ntol,kin,nzhsym,nsubmode,nagain,ndepth,ntxmode,nmode,minw,nclearave,  &
       emedelay,dttol,nlist,listutc(10),datetime,mycall,mygrid,hiscall,hisgrid
  save

  nutc=nutc0
  ndiskdat=1
  ntrperiod=60
  nfqso=nrxfreq
  newdat=1
  npts8=74736
  nfa=flow
  nfsplit=fsplit
  nfb=fhigh
  ntol=3
  kin=1024
  nzhsym=181
  ndepth=ndepth0
  if (tx9) then
    ntxmode=9
  else
    ntxmode=65
  end if
  if (mode.eq.0) then
    nmode=65+9
  else
    nmode=mode
  end if
  datetime="2013-Apr-16 15:13"                        !### Temp
  if(mode.eq.9 .and. nfsplit.ne.2700) nfa=nfsplit

  return
end subroutine fillcom