! cso_ffts1.astro

! define ffts1 setup for cso 

! sradford, 2013-07-15

! parameters:
! &1   ffts1 mode       {n,w}
! &2   ffts1 if pos'n   GHz

if (exist(ffts1)) then
  del /var  ffts1
endif
def struct ffts1%        /global
def char   ffts1%mode*1  /g
def double ffts1%if      /g
let ffts1%mode    &1     /prompt "FFTS1 mode {w|n}       " /choice "W" "N" /upper
let ffts1%if      &2     /prompt "FFTS1 IF position [GHz]"