! onoff.init
! ============
!
! Identification of shared memory (Dont touch at this !) 
!
TASK\INTEGER   "Data    shared memory identifier" DATA_SHMID$ DATA_SHMID
!
! General parameters (Dont touch at this !)
!
TASK\INTEGER   "Number of subscans" NSUBSCAN$   nsubscan
TASK\INTEGER   "Number of records" NRECORD$     nrecord
TASK\INTEGER   "Type of selected scan" SCAN_TYPE$     scan_type
TASK\INTEGER   "Selected scan number" SCAN_NUMBER$     scan
TASK\INTEGER   "Number of available channels" NCHAN$     nchan
!
! Convert parameters
!
TASK\CHARACTER "Name of the source" SNAM$     'source'
TASK\REAL      "Source lambda position (deg)" SLAM$     lambda
TASK\REAL      "Source lambda offset (deg)"   OLAM$     olam
TASK\REAL      "Source beta position (deg)"   SBET$     beta
TASK\REAL      "Source beta offset (deg)"     OBET$     obet
TASK\INTEGER   "Coordinates system"         COORD_SYST$ coord_syst 
TASK\REAL      "Epoch"  EPOCH$ epoch
TASK\INTEGER   "Date of observation"  DATE_OBSERV$ date_observ
TASK\REAL      "Offset start position in Azimuth (deg)" OAZM$     oazm
TASK\REAL      "Offset start position in Elevation (deg)" OELV$     oelv
!
TASK\REAL      "Beam separation (in arcseconds)" WOBBLER_THROW$ wobbler_throw
TASK\REAL      "Unbalanced factor (between 2 beams)" UNBAL$   unbal
!
TASK\REAL      "Latitude"  SITE_LATITUDE$     site_latitude
TASK\REAL      "Longitude" SITE_LONGITUDE$    site_longitude
!
TASK\LOGICAL   "Jansky conversion flag" JANSKY_FLAG$  jansky_flag
TASK\LOGICAL   "High frequency noise removed" NOISE_FLAG$ noise_flag
TASK\LOGICAL   "High frequency noise removal required (T/F)" NOISE$ noise
TASK\INTEGER   "onoff_mode (symetric or not)"  ONOFF_MODE$   onoff_mode
TASK\INTEGER   "format (long or short)"        FORMAT$    'FORMAT'
TASK\INTEGER   "mean/median"     COMPUTE$      'COMPUTE'
TASK\INTEGER   "Fit type for noise removal"    ONOFF_FIT$  ONOFF_FIT
TASK\REAL      "Distance around channel used by fit" ONOFF_FIT_DIST$ ONOFF_FIT_DIST
TASK\CHARACTER "filename"        ONOFF_FILE$   'ONOFF_FILE'
TASK\REAL      "reference_gain"  BOLGAIN$     BOLGAIN
TASK\INTEGER   "reference channel"  REF_CHAN$  REF_CHAN
TASK\CHARACTER "telescope"       TELESCOPE$   'TELESCOPE'
TASK\REAL "Distance around source" ONOFF_BEAM$ ONOFF_BEAM
TASK\INTEGER   "Field rotation (+1, -1, 0)" FIELD_ROTATION$ field_rotation
TASK\GO