! cso_lo.astro

! define tuning for cso 

! sradford, 2013-07-15

! parameters:
! &1   line name
! &2   line frequency   GHz
! &3   sideband         {u,l}
! &4   if offset        GHz
! &5   rx bw            GHz

if (.not.exist(cso)) then
  def struct cso%        /global
endif
if (exist(cso%name)) then
  del /var cso%name
endif
if (exist(cso%freq)) then
  del /var cso%freq
endif
if (exist(cso%sb)) then
  del /var cso%sb
endif
if (exist(cso%if)) then
  del /var cso%if
endif
if (exist(cso%bw)) then
  del /var cso%bw
endif

def char   cso%name*20 /g
def double cso%freq    /g
def char   cso%sb*1    /g
def double cso%if      /g
def double cso%bw      /g
let cso%name    &1     /prompt "Line name              "
let cso%freq    &2     /prompt "Line frequency [GHz]   "
let cso%sb      &3      /prompt "Signal sideband {u|l}  " /choice "U" "L" /upper
let cso%if      &4      /prompt "Line IF position [GHz] "
let cso%bw      &5      /prompt "Rx bandwidth [GHz]     "