!*******************************************************************
! Id target-wsw-xxx_xx.pako, v0.3, 2007.11.27, SL Exp$
!
!
!*******************************************************************
! Usage: @target-wsw-xxx_xx number_of_loop
!
! Purpose: Carry out WOBBLER SWITCH on the target source
!
! Parameters: number_of_loop: Number of loops of the form:
!                             cal cold, start, start
! Variables: throw: throw [arcsec] of the wobbler, maximum 240''
!                    (can be changed by editing the procedure below)
!             your-source: source name, has to be edited in procedure below
! 
! Sequence of loop: Cal cold, the sky part of the calibration is performed
!                       600 arcsec away in Azimuth
!                   start wobbler switch with 12 subscans,
!                      (the number of subscans has to be even) 
!                      each subscan has 30 sec duration 
!                      the time in each wobbler phase is 2 sec
!                        (=minimum phase time)
!                   start wobbler switch
!
! *****************************************************************
!
@backends-xxx_xx                ! set backends

define integer numberLoops
define integer numberSubscans

let numberLoops = &1
let numberSubscans = 12		    ! set number of subscans - default 12

SET angleUnit arcsec


define real wobblerThrow
let wobblerThrow = 60                      ! select throw - default 60''

!Default - Symmetric wobbling.

SWWOBBLER -wobblerThrow/2. wobblerThrow/2.  /TPHASE 2.

OFFSET /CLEAR
for i 1 to numberLoops
    
    CALIBRATE /default
    START

    ONOFF /SWWOBBLER /NSUBSCANS numberSubscans /TSUBSCAN  30. /SYSTEM projection
    START
    START
next

    
! All the XML command files will be put in the job queue.