!------------------------------------------------------------------------ 
! DEFINE.GRAPHIC 
! Define SIC Variables to be used by procedures documented by INPUT 
! Author:  R.Lucas 	10-May-1990 
! Last modification:	26-Jan-1998 
! 	list of variables is at end of procedure 
!---------------------------------------------------------------------- 
! 
! Clean tasks & MAPPING program 
define character method*12 /global 
! 
if ("&1 ".ne."MAPPING ") then 
  define character name*32 type*12 /global
  define integer niter beam_patch[2] blc[2] trc[2] positive /global 
  define double gain fres ares major minor angle /global 
  define logical keep /global 
  if (run_window) then 
    @ main_sic.graphic 
  endif 
else 
  define character name*32 /global        ! type is Program Defined
  if (run_window) then 
    @ main_sic.map 
  endif 
  sic\define command info "@ info.map" pr:graphic/info_mapping.hlp 
endif 
! 
! uv_map 
define character weight_mode*2 /global 
define character map_ra*16 map_dec*16 /global 
define double uv_cell[2] uv_taper[3] map_cell[2] /global 
define integer map_size[2] wcol mcol[2] convolution /global 
define logical uv_shift /global 
define real map_angle /global 
define logical show_result save_result /global 
! 
! Common display tools 
define logical do_bit do_contour do_nice do_tree do_color do_header /global 
define logical do_mask do_grey /global 
let do_mask no                  ! Do not mask contours by labels. 
let do_header yes               ! Do the header 
let do_bit no                   ! Do not plot bitmaps 
let do_grey no                  ! Do not fill contours 
let do_contour yes              ! Do plot contours 
let do_nice no                  ! No "nice" plot 
let do_tree no                  ! Do not structure plot 
let do_color no                 ! Use special color table (GO COLOR after BIT) 
define integer aaa$date spe$date tuv$date /global 
define character aaa$name*64 aaa$type*12 /global 
define character spe$name*64 spe$type*12 /global 
define character tuv$name*64 /global 
let aaa$date -1 
let spe$date -1 
let tuv$date -1 
! 
define character beam_type*5 mark*12 /global 
define character extra*8 xtype*6 ytype*6 file*40 limits*40 /global 
define character command*12 fit*12 /global 
define character axtype*120 aytype*120 /global 
define character axmin*120 axmax*120 aymin*120 aymax*120 /global 
define integer nfx nfy n_component component[5] /global 
define character marker1*20 marker2*20 /global 
define double spacing true_spacing size aspect scale[2] true_scale[2] /global 
define double level_min level_max /global 
define double area_spacing width_spacing velo_spacing /global 
define integer first last step channel no_fit /global 
define logical flag coverage error_bars /global 
define integer xpix[3] ypix[3] /global 
define integer mbox nbox /global 
define real cross box_aspect /global 
define real ubox[1,1,1] /global 
define integer color[3] /global 
! UV Clip 
sic\define real vclip /global 
! UV Fits 
sic\define integer n_funct /global 
sic\define real param01[6] range01[6] start01[6] /global 
sic\define char funct01*12 /global 
sic\define logical subsf01 /global 
sic\define real param02[6] range02[6] start02[6] /global 
sic\define char funct02*12 /global 
sic\define logical subsf02 /global 
sic\define real uv_range[2] /global 
! 
! UV display 
define character date_start*12 date_end*12 ut_start*12 ut_end*12 /global 
define character baseline*3 /global 
define real uv[10,2] data[10,10] num[10] /global 
define real uvc[10,2,10] numc[10] /global 
define integer ut_step time_step /global 
! 
! Initialize to some default values 
let show_result yes 
let save_result no 
let box_aspect 1.0 
let first 0 
let last 0 
let step 1 
let spacing 0 
let true_spacing 0 
let uv_taper 0 
let weight_mode "NA" 
let map_size 0                  ! Use "automatic" determination 
let map_cell 0                  ! Use "automatic" determination 
let wcol 0                      ! Use "automatic" determination 
let uv_cell 7.5 1.0 
let mcol 0 
let convolution 5 
let method "CLARK" 
let gain 0.2 
let niter 100 
let fres 0.05 
let ares 0.0 
let blc 0 
let trc 0 
let major 0 
let minor 0 
let map_angle 0 
let beam_patch 0 
let extra "NONE" 
let xtype "RADIUS" 
let ytype "AMP" 
! 
! 
let n_funct 1 
let funct01 "POINT" 
let uv_range 0 500 
let n_component 1 
let component[i] i 
let nfx 1 
let axtype "VELOC" 
let axmin "*" 
let axmax "*" 
let nfy 4 
let aytype "FLUX RA DEC WIDTH" 
let aymin "0 * * 0" 
let aymax "* * * *" 
let channel 1 
let ut_step 1 
let command "input" 
let fit "" 
let keep .true. 
let ut_start "00:00:00.0" 
let ut_end "24:00:00.0" 
let date_start "01-JAN-2000" 
let date_end "31-DEC-1999" 
let baseline "ALL" 
let flag no 
let cross 2.0 
let xpix 0 
let ypix 0 
let do_bit no                   ! Do not plot bitmap by default 
let color 0 360 30              ! red to red, 30 brightness levels. 
! 
pen 15 /colour 3 /dash 3 
pen 0 
! 
! Set Major symbols 
sic\define command input "@ p_input.graphic" pr:graphic/input_graphic.hlp 
sic\define command go "@ p_go.graphic" pr:graphic/go_graphic.hlp 
sic\sic user                    ! Define symbol SYS_INFO 
if ("&1 ".ne."MAPPING ") then 
  input &1                      ! Do it once... 
endif 
on error continue 
define double sec /global 
on error 
let sec pi|180|3600             ! One arcsec in Radians 
return 
! 
!------------------------------------------------------------------------ 
! Variables: 
! Input variable for GO and INPUT: 
! COMMAND	Character   	Command name default 
! Input variables for task MAP: 
! NAME		Character	Map file name (without extension) 
! TYPE		Character	Map file extension 
! BEAM_TYPE	Character	Code for plotting beam (as channel n+1) 
! MARK		Character	Code for marking channel plots 
! FIRST		Integer		First channel to plot 
! LAST		Integer		Last channel to plot 
! SPACING	Real		Level spacing (in image intensity units) 
! TRUE_SPACING	Real		Actual level spacing used 
! SIZE          Real            size of Plotted map in arc sec (square) 
! EXTRA         Character       Plot UV Coverage as extra map channel 
! ASPECT	Real		Image aspect ratio (0 means match) 
! BOX_ASPECT    Real            Effective box aspect ratio 
! Input variables for task UVMAP: 
! UV_TAPER[2]	Character	default 1000. meters 
! WEIGHT_MODE	Character	default "NA" natural weighting 
! MAP_SIZE[2]	Integer		default 64 64 pixels 
! MAP_CELL[2]	real		default 1 arcsec. 
! UV_CELL	real		default 7.5 m for uniform weighting 
! WCOL		integer 	default 1 (weight channel) 
! MCOL[2]	integer		default 1 1000 
! CONVOLUTION	integer		default 5 
! Input variables for task CLEAN: 
! METHOD	Character	Default "CLARK" 
! GAIN		Real		Default 0.2 
! NITER		Integer		Default 100 
! FRES		Real		Default 0.05 
! ARES		Real		Default 0.0 
! BLC[2]	Integer		Default 0 0 for inner quarter 
! TRC[2]	Integer		Default 0 0 for inner quarter 
! MAJOR		Real		Clean Beam major axis (arc sec) 
!				Default 0 for automatic determination by CLEAN 
! MINOR 	Real		Input Clean Beam minor axis (arc sec) 
!				Default 0 for automatic determination by CLEAN 
! ANGLE 	Real		Input Clean Beam position angle (degrees). 
!				Default 0 for automatic determination by CLEAN 
! BEAM_PATCH[2] Integer		Default 0 0 ==> Inner Quarter 
! KEEP		Logical		Keep cleaning after convergence 
! 
! Input variables for command UVALL 
! XTYPE	        Character	TIME, NUMBER, U, V, RADIUS, ANGLE 
! and YTYPE			AMP, PHA, REAL, IMAG, WEIGHT, SCAN 
! MARK		Character	Code for marking channel plots 
! FIRST		Integer		First channel to plot 
! LAST		Integer		Last channel to plot 
! MXY           Integer         Number of visibilities 
! FIT 		Character	model: GAUSS, ... from UV_FIT 
! 
! Output variables for command MAP 
! MBOX NBOX     Integer         Number of boxes in each direction 
! UBOX[5,NBOX,MBOX]  Real       Paper Coordinates of each BOX 
! 
! Input variables for command COLOR 
! COLOR[3]      Integer         COlor table parameters. 
!------------------------------------------------------------------------ 
!