#
#RECIPE: Script to convert measurement set into a u-v fits file.
#
#CATAGORY: Synthesis
#
#GOALS: Execution and detailed documentation of mstofits
#
#USING: mstofits function in ms tool
#
#RESULTS: A u-v FITS data set will be created from an aips++ measurement set
#
#ASSUME: Measurement set exists
#
#SYNOPSIS:
#    This script executes mstofits to create a u-v FITS data set from an
# AIPS++ measurement set <link mstofits>.
#
#    It is advised to use combinespw=T in order to combine all IF's
# into one data record in the FITS.  This is necessary if the data will then
# be read into AIPS.  Otherwise, there are several records which will
# have the same time stamp, which confuses some software systems.
# 
#SCRIPTNAME: mstofits_rec.g
#
#
# INITIATION AND INPUT PARAMETERS:
#
  include 'ms.g';                      # initiate measurement set tool

# Mandatory input parameters:
                                       # Measurement set name
   msname        := '/aips++/data/demo/autoflag/WSRT-test.MS2';

   fitsfile      := 'TESTUVFITS';      # UVFITs data file

   combinespw    := T;                 # Combine all IF's into one
                                       # FQ table.  This option is recommended

# Optional input parameters (rarely changed);

   column        := 'corrected'        # Default.  Other options are
                                       #   'model', 'observed'
   writesyscal   := F;                 # Default.  If T, then 'GC' and
                                       #   'TY' tables written
   multisource   := F;                 # Default
#------------------------------------------------------------------------------
# SCRIPT COMMANDS:
#
     print 'msname ', msname           # Print msname

                                       # Open ms tool
     m1 := ms(msname);
#
     m1.tofits(fitsfile= fitsfile,     # Function tofits
          column      = column,
          writesyscal = writesyscal,
          multisource = multisource,
          combinespw  = combinespw)
#
     m1.done();                         # Close ms tool
#
#------------------------------------------------------------------------------
#
#OUTPUT: 
#   New u-v FITS files is created.
#   Output is straight-forward.
#
#SUBMITTER: Ed Fomalont
#SUBMITAFFL: NRAO-Charlottesville
#SUBMITDATE: 2002-Feb-11
#