NAME:
	img_read
 PURPOSE:
	Read image from file
 CATEGORY:
	I/O
 CALLING SEQUENCE:
	FUNCTION img_read, img_file, img_data, Red, Green, Blue,    $
	    pseudocolor     = PseudoColor   ,	$
	    truecolorimage  = TrueColorImage,	$
	    rgbplane	    = RGBPlane	    ,	$
	    truedimension   = truedimension ,	$
	    exten_no	    = exten_no	    ,	$
	    silent	    = silent	    ,	$
	    _extra	    = _extra	    ,	$
	    img_info	    = img_info	    ,	$
	    errormessage    = errormessage
 INPUTS:
	img_file    scalar; type: string
			image file to be read
			If no file is specified then the pickfile_dialog is used to
			select a file name
 OPTIONAL INPUT PARAMETERS:
	/truedimension
		    scalar; type: integer: default: 1
			dimension used for color interleave (1,2 or 3)
			(works only for JPEG?)
	/pseudocolor	(used only for .BMP and .TIFF files)
			If this keyword is set and the file stores a truecolor image then it
			is converted to pseudocolor using the IDL color_quan function.
			The color table is returned in the Red, Green and Blue arrays
 OUTPUTS:
	status	    0: some error occurred
		    1: file properly read
	img	    array[n,m] or array[3,n,m]; type: depends
			if a truecolor image [3,n,m] is returned then the keyword TrueColor
			returns 1 and RGBPlane returns the indices for the color planes
			!!! if no file name is specified, and no file is selected with
			from the file dialog then the scalar (img=-1) is returned.
 OPTIONAL OUTPUT PARAMETERS:
	red=Red, green=Green, blue=Blue
		    array[*]; type: byte (?)
			red, green and blue color arrays, defining the color table for the image
			Should be loaded with tvlct, Red, Green, Blue
			The arrays are always returned for GIF files (256 colors) and pseudocolor
			(8-bit) .TIFF and .BMP files. For truecolor .TIFF or .BMP files they are
			only returned if the /pseudocolor keyword is set.
	truecolor=TrueColor
		    scalar; type: integer
			1 if true color image is returned; otherwise 0
	rgbplane=RGBPlane
		    array[3]; type: integer; always [0,1,2] (see below)
			if a true color image is returned then RGBPlane stores the indices for
			the red, green and blue color plane, respectively.
			(!!! currently the planes are rearranged if necessary, so that
			RGBPlane =[0,1,2])
 INCLUDE:
	@compile_opt.pro	; On error, return to caller
 CALLS: ***
	FXADDPAR, GetFileSpec, InitVar, IsType, MagnifyArray, READFITS, READ_BMP, READ_GIF
	SubArray, SuperArray, TimeGet, TimeUnit, bin_read, do_file, flt_read, grd_read
	gunzip_file, hide_env, smei_filename, smei_frm_cvhdr, smei_frm_read, smei_property
 CALLED BY:
	RemoteView_Display2D, RemoteView_Display3D, even_light, put_logo, qImage_Pick
	qView_FileFilter, qView_GetData, qView_PickFiles, view
 PROCEDURE:
	The file name type is used to determine how to read the file:
	.gif: gif files are read using IDL procedure read_gif
	.tif: tiff files are read using IDL procedure read_tiff

	All remaining file types deal with grey-scale images.

	.fits and .fts: read using readfits function (from SOLARSOFT library ???)
	.txt: read using the flt_read function

	There are several types of simple binary files created using bin_read, which
	can also be read again by bin_read (the dimensions are stored in a header):
	'.pph': status = bin_read ( img_file, img )
		return short integer, long integer and floating point arrays.

	Two file types refer to CCD images:
	.img: these should be images from Andy's old Photometrics CCD camera. They are read using

	    status = bin_read(img_file,img,/aint,off=160,nx=384)
	    img = rotate(img,3)

	    i.e. a 160 byte header is skipped; then rows of 384 short integers are read
	    untill the end of file is reached, followed by clockwise rotation over 90 degree.

	'.nic': these are the images from the SMEI CCD camera. They are read using

	    status = bin_read (img_file, img)

	    bin_read returns a long integer array of 1280x600 for these files.
 MODIFICATION HISTORY:
	FEB-2000, Paul Hick (UCSD/CASS)
	    Added documentation
	OCT-2002, Paul Hick (UCSD/CASS)
	    Added keyword truedimension
	MAR-2003, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
	    Added detection of .gz files. These are now decompressed. The decompressed
	    file is then processed in the usual, and is then deleted.

 NAME:
	init_contiguous_group
 CALLING SEQUENCE:
	PRO init_contiguous_group, A, atleast=atleast
 INCLUDE:
	@compile_opt.pro
 CALLED BY:
	next_contiguous_group, smei_hdr_plot
 PROCEDURE:
	init_contiguous_group, A, atleast=atleast
	WHILE next_contiguous_group(indx) DO BEGIN
	    (do stuff with A[indx]
	ENDWHILE
 CALLS: ***
	InitVar, destroyvar, next_contiguous_group
 COMMON:
	common next_contiguous_group_common, n, m, p, nmin

 NAME:
	InitVar
 PURPOSE:
	Initialize a variable
 CATEGORY:
	gen/toolbox
 CALLING SEQUENCE:
	PRO InitVar, X, Xinit, keyword_var=keyword_var, set=set, count=count
 INPUTS:
	X		any variable
	Xinit		any variable; used to initialize X
 OPTIONAL INPUT PARAMETERS:
	/keyword_var	if set, X is assumed to be a keyword the initialization
			then is done with the command: X = keyword_set(X)
	set=set 	instead of initializing X, the variable 'set' is initialized.
			The content of X is transferred to 'set' if X exists.
			(this keyword is ignored if /keyword_var is set).
	count=count scalar; type: integer; default: 0
			# elements in X that will trigger the initialization
			(ignored if /keyword_var is set).
 OUTPUTS:
	X		any variable; the initialized variable
 INCLUDE:
	@compile_opt.pro	    ; On error, return to caller
 CALLED BY:
	AlignHeliosphere, AngleRange, AngleUnits, ArrayLocation, CarringtonT0, CheckDir
	ColorEloTimeBox, ColorPolarBox, ColorSkybox, CombineRotations, CvPrecess
	CvRotation, CvSky, Distance2Sun, EarthSky3DLoc, EarthTransit3DLoc
	FUNCTION smeilatest lastorbit, Find2DGlitch, FindAllFiles, FindAllSubDirs
	FindPeaks, FishEye, GeographicInfo, GetColors, GetFileSpec, GroupPixels, GuessRecs
	InSitu, InsituTimeSeries [1], InsituTimeSeries [2], IntegrateLOS
	InterpolateHeliosphere, IsBadTime, IsDisplay, IsPrinter, IsTime, IsType, KeplerOrbit
	LocalExtrema, MagnifyArray, NewcombSun, PA_Pole, PlotBars, PlotCoronagraph
	PlotCurve, PlotCurves, PlotDashes, PlotEarthSkymap, PlotEloTimeMap, PlotPlanarCut
	PlotPolarSkymap, PlotPrep, PlotSolarDisk, PlotSphereCut, PlotSynopticMap
	PlotUserstring, PutFileSpec, RGBO_Project, ReadSynopticMap, RemoteView
	RemoteView_BodyLoc, RemoteView_Display2D, RemoteView_Display3D, RemoteView_FOV
	RemoteView_FOV_loc, RemoteView_FOV_xyz, RemoteView_Init
	RemoteView_Init_Display, RemoteView_Init_Matrix, RemoteView_Init_View
	RemoteView_Matte, RemoteView_ZEclipticPlane, RemoteView_rgbo, ScEarth
	SetFileSpec, SetRange, Stretch_Colors, SubArray, TMO_skymotion, TagArray
	ThomsonElectron, ThomsonElectronFar, ThomsonLOSFar, ThomsonLOSRomb
	ThomsonLOSStep, ThomsonMidpoint, ThomsonSolarFlux, TimeArray, TimeGet
	TimeInterpol, TimeLInterpol, TimeLimits, TimeMonth, TimeOp, TimeOrigin, TimePieces
	TimePosn_test, TimeSet, TimeShift, TimeSplit, TimeString, TimeSystem, TimeUnit
	TimeXAxis, TimeYDate, TimeYDoy, ToSolarRadii, anicenum, arg_time, bargraph, big_body
	big_elongation, big_eph, big_orbit, bin_read, bin_write, boost, coord3to2, cvsmei
	cvsmei_init, do_file, eclipsed_area, even_light, even_light_corrections
	even_light_figures, even_light_info, even_light_pedestal
	even_light_photometry, even_light_plot, even_light_registration, findfile_fix
	flat_centerofmass, flip_colors, flt_clean, flt_read, flt_string, get_page
	getnagoyasources, getootyasources, getsmeisources, grd_read, gridfill, gridgen
	gridgen1d, gunzip_file, gzip_file, hide_env, ice_pack, ice_unpack, img_read
	init_contiguous_group, is_running, jpl_body, jpl_close, jpl_eph, jpl_init, jpl_mag
	jpl_parallax, jpl_phase, jpl_sizeofsun, jpl_state, jpl_test, lsqLinearFit
	lsqNormalFit, mk_flick, mpc_comets, mpc_eph, mpc_minor_planets, mpc_orbit_eph
	nagoya_glevel, next_contiguous_group, nrZbrac, nso_fe_plot, nso_fe_read
	nso_fe_start, os_separator, plot3darc, plot3dcube, plot3dline, plot3dtext
	plotbars_boundary, plotbars_plot, plotbars_shade, plotbars_sigma, plotcolumns
	put_logo, qBar, qEphem, qEphem_State, qImage_Send, qImage_cw, qImage_cw_Box
	qImage_cw_BoxCosine, qImage_cw_BoxImage, qImage_cw_BoxZoom, qImage_cw_Ellipse
	qImage_cw_Ephem, qImage_cw_MinMax, qImage_cw_Property, qImage_cw_Show
	qImage_cw_Tool, qImage_cw_Transform, qImage_cw_Update, qImage_cw_Wedge
	qImage_cw_WedgeSection, qImage_cw_ZWedge, qImage_cw_smei_frm, qLine
	qLine_YAction, qLoadCT, qSave2File, qSave2File_Pick, qShow, qTool, qTool_State
	qTool_Zoom, qTool_rebin, qView, qView_ApplyGain, qView_GetImage, qView_Image
	qView_ImageInfo, qView_PlotTrack, qView_Sensitive, qView_SubtractBase
	qView_TMO_tracksky, qView_UpdateActive, qView_XYZ_Update, qnagoya, qset_page
	qslider_cw, qsmei_hdr, qsmei_sky, qvu, say, scalarproduct, set_page, sgp4_eph
	sgp4_orbit_axis, sgp4_tle, skyd_cat, skyd_version, smei_TimePosn
	smei_base_testcase, smei_blocked, smei_buf, smei_buf_get, smei_buf_getframe
	smei_buf_mget, smei_buf_prep, smei_buf_read, smei_cam2angle, smei_camera
	smei_camera_gain, smei_ccd2sky, smei_coriolis, smei_filename, smei_filepath
	smei_findcrazy, smei_findpnt, smei_frm_base, smei_frm_cp, smei_frm_cvhdr
	smei_frm_drive, smei_frm_eclipse, smei_frm_findpoint, smei_frm_flatfield
	smei_frm_hbar, smei_frm_info, smei_frm_read, smei_frm_rebin, smei_frm_smoothdark
	smei_frm_summary, smei_frm_track, smei_frm_update, smei_frm_where, smei_fts_read
	smei_getfile, smei_hdr_get, smei_hdr_make, smei_hdr_plot, smei_hdr_update
	smei_mkbase, smei_mkc3mask, smei_mkcal, smei_mkcal_auto, smei_mkmask, smei_mkorb
	smei_mksidereal, smei_mksky, smei_mkstarmask, smei_orbit_get, smei_orbit_stats
	smei_plot_timeseries, smei_property, smei_radial2theta, smei_rewind
	smei_setup_roi, smei_sgp4_orbits, smei_sky, smei_sky2cam, smei_sky2ccd
	smei_sky_atlocation, smei_sky_cleanedge_fov, smei_sky_cleanedge_map
	smei_sky_cleantime, smei_sky_field, smei_sky_getmask, smei_sky_hdr2range
	smei_sky_read, smei_sky_testcase, smei_sky_track, smei_star_corepsf
	smei_star_enough_bins, smei_star_filename, smei_star_fit, smei_star_fitone
	smei_star_formatpnt, smei_star_info, smei_star_list, smei_star_lsqfit
	smei_star_readpnt, smei_star_remove, smei_star_show, smei_star_split
	smei_star_standard, smei_star_update, smei_star_writepnt, smei_time
	smei_www_skymaps, smei_zld_dumbbell, smei_zld_model, smei_zld_remove [1]
	smei_zld_remove [2], smei_zld_weekly, smei_zldsky, smeidb_mounted
	sphere_distance, sphere_great_arc, sphere_smooth, statpos, stopwatch, strposn
	timeposn, twin, txt_block_read, txt_read, unexpected_event, unhide_env, unitvectors
	usno_body, usno_eph, usno_init, usno_test, vectorproduct, view, vox_read, vox_write
	vu_check, vu_coronagraph, vu_correlate, vu_cvgrid, vu_earthskymap, vu_elotime
	vu_extract, vu_filename, vu_fnc, vu_get_page, vu_getdata, vu_gettime, vu_header
	vu_image, vu_insitu, vu_insitu_persist, vu_insitu_raw, vu_insitucurve
	vu_is_sequence, vu_linecut, vu_lineofsight, vu_localskymap, vu_losmap, vu_mean
	vu_movie, vu_nagoyasourcemap, vu_new_time, vu_planarcut, vu_point_source
	vu_prefix, vu_quick_movie, vu_radialcut, vu_read, vu_remoteview, vu_select, vu_set
	vu_solardisk, vu_spherecut, vu_stereoview, vu_syncgrid, vu_synopticmap
	vu_timeseries, vu_type_insitu, vu_type_skymap, vu_update_hours, vu_update_marker
	vu_vox_drawsphere, vu_vox_read, vu_vox_sequence, vu_vox_write, vu_whatis, vu_write
	wedge_bounding_box, wedge_content, where_common, who_am_i, wso_read, wso_write
	www_help, www_help_called_by, www_help_change_tabs, www_help_files
	www_help_get_header, www_help_mailto, www_help_make, www_help_rsi, www_help_smei
	www_help_style, www_help_tree, xyoff
 PROCEDURE:
	If neither X nor Xinit exist, program is terminated
 MODIFICATION HISTORY:
	JUL-2002, Paul Hick (UCSD/CASS)
	JAN-2005, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
	    Added keyword set=set.

 NAME:
	is_running
 PURPOSE:
	Check whether specified process is running
 CATEGORY:
	gen/idl/environment
 CALLING SEQUENCE:
	FUNCTION is_running, cmd, silent=silent, count=count
 INPUTS:
	cmd
 OPTIONAL INPUT PARAMETERS:
	/silent     suprresses informational messages
 OUTPUTS:
	Result	    0: 'cmd' NOT running
		    1: 'cmd' IS running
 INCLUDE:
	@compile_opt.pro	; On error, return to caller
 CALLS: ***
	InitVar, say
 CALLED BY:
	smei_hdr_update
 PROCEDURE:
	Preliminary version. Works only on Unix/Linux
	Check 'cmd' against output of
	    ps -eo args
 MODIFICATION HISTORY:
	OCT-2006, Paul Hick (UCSD/CASS; pphick@ucsd.edu)

 NAME:
	IsBadTime
 PURPOSE:
	Defines and checks for bad times
 CATEGORY:
	Tell time
 CALLING SEQUENCE:
	IsBad = IsBadTime(T)
 INPUTS:
	T	array[*]; type: time structure
		    time origin
 OUTPUTS:
	IsBad	array[*]
 INCLUDE:
	@compile_opt.pro	; On error, return to caller
 CALLS: ***
	InitVar, TimeArray, TimeOp, TimeUnit
 CALLED BY:
	vu_new_time, vu_select, vu_update_hours
 PROCEDURE:

 MODIFICATION HISTORY:
	OCT-2000, Paul Hick (UCSD/CASS; pphick@ucsd.edu)

 NAME:
	IsDisplay
 PURPOSE:
	Check whether !d.name is the terminal display or the printer
 CATEGORY:
	Environment
 CALLING SEQUENCE:
	FUNCTION IsDisplay, dev
 INPUTS:
	(none)
 OUTPUTS:
	Result	    scalar; type: byte
			0: it's a printer device
			1: it's the display
 INCLUDE:
	@compile_opt.pro    ; On error, return to caller
 CALLS: ***
	InitVar
 CALLED BY:
	even_light_corrections, even_light_photometry, even_light_registration
	get_page, qBar, qLine_Curve, qnagoya_skymap, twin, view, vu_image
 PROCEDURE:
	Returns true if !d.name is !TheTerminal. !TheTerminal is set during IDL startup
 MODIFICATION HISTORY:
	FEB-2000, Paul Hick (UCSD/CASS; pphick@ucsd.edu)

 NAME:
	IsPrinter
 PURPOSE:
	Check whether !d.name is the printer
 CATEGORY:
	Environment
 CALLING SEQUENCE:
	FUNCTION IsPrinter, dev
 INPUTS:
	(none)
 OUTPUTS:
	Result	    scalar; type: byte
			1: it's a printer device
			1: it's not the printer
 INCLUDE:
	@compile_opt.pro	; On error, return to caller
 CALLS: ***
	InitVar
 CALLED BY:
	get_page
 PROCEDURE:
	Returns true if !d.name is !ThePrinter or !d.name = 'PS'.
	!TheTerminal is set during IDL startup
 MODIFICATION HISTORY:
	FEB-2000, Paul Hick (UCSD/CASS; pphick@ucsd.edu)

 NAME:
	IsSymLink
 PURPOSE:
	Checks whether a file or directory is a symbolic link
 CATEGORY:
	Environment
 CALLING SEQUENCE:
	B = IsSymLink(file)
 INPUTS:
	file	    scalar; type: string
			name of file or directory to be tested
 OUTPUTS:
	B	    scalar; type: integer
			0: not a symbolic link
			1: it's symbolic link
		    On non-Unix systems, always 0 is returned
 INCLUDE:
	@compile_opt.pro	; On error, return to caller
 CALLED BY:
	FindAllSubDirs
 RESTRICTIONS:
 >	Has only been tested on Linux (bash shell) under IDL 5.3 and 5.5
 >	The islink script is needed for IDL version <= 5.4 and must be in the Linux path
 >	Does not work on a path that contains a symbolic link, e.g.
	if /usr/local/rsi is a symbolic link then /usr/local/rsi/lib will
	return zero.
 PROCEDURE:
 >	Only useful on Unix/Linux systems.
	If !version.os_family is not 'unix' then always 0 is returned.

 >	If !version.os_family is 'unix' then:
	- for IDL 5.3 and earlier the script islink is spawned. The
	    output from this script (0 or 1) is captured in the 'result'
	    argument of spawn.
	- for IDL 5.4 and later, a 'test -L' is spawned, and the
	    exit_status keyword is used directly (this makes the test
	    independent of the islink script).
 MODIFICATION HISTORY:
	JULY-2001, Paul Hick (UCSD/CASS; pphick@ucsd.edu)

 NAME:
	IsTime
 PURPOSE:
	Check whether argument is a time structure
 CATEGORY:
	smei/gen/idl/toolbox/time
 CALLING SEQUENCE:
	FUNCTION IsTime, T, orbit=orbit
 INPUTS:
	T	array; type: anything
 OPTIONAL INPUTS:
	/orbit
 OUTPUTS:
	Result	scalar; type: byte
		    0 if argument is not a time structure
 INCLUDE:
	@compile_opt.pro	; On error, return to caller
 CALLS: ***
	InitVar, IsType
 CALLED BY:
	Carrington, CvSky_RTN, GeographicInfo, InsituTimeSeries [1]
	InsituTimeSeries [2], PlotCurve, PlotPrep, TimeDay, TimeEaster, TimeXAxis, TimeYDate
	TimeYDoy, arg_time, big_eph, cvsmei, eclipsed_area, gridgen, gridgen1d, jpl_eph
	jpl_parallax, jpl_sizeofsun, lsqLinearFit, mpc_eph, mpc_orbit_eph, nagoya_glevel
	qImage_cw_Where, qLine, qLine_Curve, qLine_FitPlot, qLine_XBase, qView_ApplyGain
	qView_PlotSeries, qView_PlotTrack, qView_UpdateTime, qsmei_hdr, qsmei_sky_pick
	sgp4_orbit_axis, skyd_cat, smei_buf_get, smei_buf_getframe, smei_buf_read
	smei_cam_quaternion, smei_coriolis, smei_filename, smei_filepath, smei_frm_cp
	smei_frm_hbar, smei_frm_mask, smei_frm_summary, smei_frm_where, smei_getfile
	smei_hdr_get, smei_hdr_make, smei_mkcal, smei_mkorb, smei_rewind, smei_star_fit
	smei_star_show, smei_star_showsmooth, smei_zld_weekly, smeidb_mounted, usno_eph
	vu_elotime, vu_gettime, vu_insitu, vu_insitu_persist, vu_insitu_raw
	vu_insitucurve, vu_localskymap, vu_movie, vu_select, vu_set_time_entry
 PROCEDURE:
	Keys on structure name
 MODIFICATION HISTORY:
	JAN-2004, Paul Hick (UCSD/CASS)
	FEB-2008, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
	    Added keyword /orbit

 NAME:
	IsType
 PURPOSE:
	Check for type of variable, or get type code
 CATEGORY:
	Toolbox: generic
 CALLING SEQUENCE:
	R = IsType(X, /floating_x)	    tests whether X is of type 'floating'
	R = IsType(/floating_x) 	    returns type code for type 'floating'
	R = IsType(X)			    returns type code for X
 INPUTS:
	X	any variable
 OPTIONAL INPUT PARAMETERS:
	Only one of these should be set:
	/Byte_X
	/Integer_X
	/Short_Integer_X	(same as Integer_X)
	/Longword_X
	/Floating_X
	/Double_X
	/Complex_floating_X
	/String_X
	/Structure_X
	/Complex_double_X
	/Pointer_X
	/Object_reference_X
	/Unsigned_Integer_X
	/Unsigned_Short_Integer_X   (same as Unsigned_Integer_X
	/Unsigned_Longword_X
	/Integer_64_bit_X
	/Unsigned_Integer_64_bit_X
 OUTPUTS:
	IsTime		scalar; type: long integer
			if argument X is set, in combination with one of the type keywords:
			    0 if argument is not of specified type; 1 if it is
			otherwise
			    type code of X, or type code for specified type keyword
 OPTIONAL OUTPUT PARAMETERS:
	type =type	scalar; type: integer
			    code of specified type
	bytes=bytes	scalar; type: integer
			    # bytes in scalar of specified type
	name =name	scalar; type: string
			    name of specified type
 INCLUDE:
	@compile_opt.pro	; On error, return to caller
 CALLS: ***
	InitVar
 CALLED BY:
	AngleRange, AngleUnits, BadValue, Carrington, ColorSkybox, CombineRotations
	CvPointOnLos, CvRotation, CvSky, CvSky_Heliographic, EarthTransit3DLoc
	FindAllFiles, FindPeaks, FishEye, GeographicInfo, GetColors, GetFileSpec
	GroupPixels, HammerAitoff, InSitu, InfiniteValue, Inside_Wedge
	InsituTimeSeries [1], InsituTimeSeries [2], IntegrateLOS
	InterpolateHeliosphere, IsTime, MagnifyArray, MercatorProj, PlotBars
	PlotCoronagraph, PlotCurve, PlotCurves, PlotEarthSkymap, PlotEloTimeMap
	PlotPlanarCut, PlotPolarSkymap, PlotPrep, PlotSolarDisk, PlotSphereCut
	PlotSynopticMap, PlotUserstring, RGBO_DepthCue, RGBO_Project, RemoteView
	RemoteView_CubeFrame, RemoteView_CurrentSheet, RemoteView_Display2D
	RemoteView_Display3D, RemoteView_FOV, RemoteView_FOV_xyz, RemoteView_Init
	RemoteView_Init_Matrix, RemoteView_Init_View, RemoteView_Matte
	RemoteView_ZEclipticPlane, RemoteView_rgbo, SetFileSpec, SubArray, SuperArray
	TagArray, ThomsonElectron, ThomsonLOSDensity, ThomsonLOSFar, ThomsonLOSRomb
	ThomsonLOSStep, ThomsonRadialFilter, ThomsonSetupLOS, TimeArray, TimeGet
	TimeInterpol, TimeLInterpol, TimeLimits, TimeMonth, TimeOp, TimeOrigin, TimePieces
	TimeSet, TimeShift, TimeSplit, TimeString, TimeSystem, TimeUnit, TimeXAxis, TimeYDate
	TimeYDoy, WhatIs, WhatIs0, anicenum, arg_time, arrow3d, bargraph, big_body
	big_elongation, big_eph, big_eph_clean, big_eph_short, bin_read, bin_write, boost
	cvsmei, cvsmei_init, do_file, eclipsed_area, even_light_info
	even_light_photometry, flat_centerofmass, flip_colors, flt_read, get_page
	getnagoyasources, getootyasources, getsmeisources, grd_read, gridgen, gridgen1d
	hide_env, ice_read, img_read, jpl_body, jpl_eph, jpl_mag, lsqLinearFit
	lsqQuadraticFit, mk_flick, mpc_body, mpc_comets, mpc_eph, mpc_minor_planets
	mpc_orbit_eph, nagoya_glevel, nso_fe_read, plot3darc, plot3dcube, plot3dline
	plotbars_plot, plotcolumns, put_logo, qBar, qEphem, qEphem_State, qImage
	qImage_FileInfo, qImage_Pick, qImage_Send, qImage_SendDestination
	qImage_TriggerSend, qImage_cw, qImage_cw_BoxCosine, qImage_cw_BoxImage
	qImage_cw_DrawCross, qImage_cw_DrawEphem, qImage_cw_Ellipse, qImage_cw_Ephem
	qImage_cw_EphemKill [1], qImage_cw_ImageType, qImage_cw_MinMax
	qImage_cw_Property, qImage_cw_Set_Value, qImage_cw_Transform, qImage_cw_Update
	qImage_cw_Wedge, qImage_cw_ZEllipse, qImage_cw_ZWedge, qImage_cw_ctable
	qImage_cw_smei_frm, qLine, qLine_XBase, qLoadCT, qSave2File, qSave2File_Save, qShow
	qTool, qTool_State, qView, qView_ApplyGain, qView_ImageInfo, qView_UpdateActive
	qnagoya_plot, qset_page, qslider_cw, qsmei_hdr, qsmei_sky, qsmei_sky_FileInfo
	qsmei_sky_pick, rank_array, set_page, sgp_body, skyd_cat, smei_base_testcase
	smei_buf_get, smei_buf_getframe, smei_buf_gzip, smei_buf_mget, smei_buf_prep
	smei_buf_read, smei_cam_quaternion, smei_camera, smei_ccd2sky, smei_coriolis
	smei_filename, smei_filepath, smei_frm_base, smei_frm_cvhdr, smei_frm_drive
	smei_frm_eclipse, smei_frm_findpoint, smei_frm_flag, smei_frm_flatfield
	smei_frm_hbar, smei_frm_ped, smei_frm_read, smei_frm_smoothdark
	smei_frm_summary, smei_frm_track, smei_frm_update, smei_frm_where
	smei_frm_write, smei_fts_read, smei_getfile, smei_hdr_c3maskupload, smei_hdr_get
	smei_hdr_make, smei_hdr_plot, smei_hdr_update, smei_i2m, smei_mkbase, smei_mkcal
	smei_mkglare, smei_mkmask, smei_mkorb, smei_mkorb_auto, smei_mksidereal
	smei_mksky, smei_mkstdstar, smei_mkzldresidue, smei_orbit_set, smei_orbit_stats
	smei_pick_stars, smei_plot_timeseries, smei_property, smei_rewind
	smei_setup_roi, smei_sky, smei_sky2cam, smei_sky2ccd, smei_sky_cleanedge_fix
	smei_sky_cleanedge_fov, smei_sky_field, smei_sky_getmask, smei_sky_hdr2mode
	smei_sky_hdr2range, smei_sky_read, smei_sky_track, smei_star_fit
	smei_star_fitone, smei_star_info, smei_star_list, smei_star_lsqbins
	smei_star_lsqfit, smei_star_make, smei_star_remove, smei_star_show
	smei_star_showsmooth, smei_star_standard, smei_star_stdmaps, smei_star_update
	smei_star_writepnt, smei_theta2radial, smei_www_skymaps, smei_zld_dumbbell
	smei_zld_model, smei_zld_remove [1], smei_zld_remove [2], smei_zld_weekly
	smeidb_mounted, sphere_distance, sphere_smooth, statpos, stopwatch, timeposn, twin
	txt_block_read, txt_read, usno_body, usno_eph, usno_init, view, vox_read, vox_write
	vu_atlocation, vu_coronagraph, vu_cvgrid, vu_earthskymap, vu_elotime, vu_extract
	vu_filename, vu_get_page, vu_getdata, vu_gettime, vu_image, vu_insitu
	vu_insitu_persist, vu_insitu_raw, vu_insitucurve, vu_linecut, vu_lineofsight
	vu_localskymap, vu_losmap, vu_mean, vu_movie, vu_nagoyasourcemap, vu_new_time
	vu_planarcut, vu_point_source, vu_quick_movie, vu_radialcut, vu_read
	vu_remoteview, vu_select, vu_set, vu_solardisk, vu_spherecut, vu_stereoview
	vu_syncgrid, vu_synopticmap, vu_timeseries, vu_type_insitu, vu_type_skymap
	vu_vox_read, vu_vox_write, vu_weight, vu_write, wedge_bounding_box, wedge_content
	wso_read, wso_write, www_help, www_help_crosslinks, www_help_is_text
	www_help_mailto, www_help_make, www_help_master, www_help_names, www_help_rsi
	www_help_smei, www_help_tree
 PROCEDURE:
	Trivial
 MODIFICATION HISTORY:
	APR-2000, Paul Hick (UCSD/CASS; pphick@ucsd.edu)

 NAME:
	IsWindowSystem
 PURPOSE:
	Check whether !d.name is a window system
 CATEGORY:
	Environment
 CALLING SEQUENCE:
	FUNCTION IsWindowSystem
 INPUTS:
	(none)
 OUTPUTS:
	Result	    scalar; type: byte
			0: not a window system
			1: it's a window system
 INCLUDE:
	@compile_opt.pro	; On error, return to caller
 CALLED BY:
	pcursor, twin
 PROCEDURE:
	Compares !d.name against a list of devices (currently X and WIN)
 MODIFICATION HISTORY:
	FEB-2000, Paul Hick (UCSD/CASS; pphick@ucsd.edu)