C+
C NAME:
C	ReadVIPSValidData
C PURPOSE:
C	Decide how href=ReadVIPS= checks for bad data
C CATEGORY:
C	Aux
C CALLING SEQUENCE:
	subroutine ReadVIPSValidData(iCheck,Vmin,Vmax,Gmin,Gmax)
C INPUTS:
C	iCheck		integer		=LOS__CHECKV: reject only observations with V <= 0
C					=LOS__CHECKG: reject only observations with G = 0
C					=LOS__CHECKV+LOS__CHECKG: reject observations with G = 0 and V <= 0
C OUTPUTS:
C	(none)
C INCLUDE:
	include		't3d_index.h'
C PROCEDURE:
C	ReadVIPSValidData is called prior to calling ReadVIPS, and sets to
C	logicals defining which G and V data are rejected. The logical values
C	are stored internally, and can be retrieved using ReadVIPSCheckData.
C	If ReadVIPSValidData is not called then only data with V<=0 are rejected.
C SEE ALSO:
C	ReadVIPSCheckData
C MODIFICATION HISTORY:
C	JUN-1994, Paul Hick (UCSD)
C-
	    integer	iCheck

	    ! Arguments for ReadVIPSValidData and
	    ! ReadVIPSCheckData

	    real	Vmin
	    real	Vmax
	    real	Gmin
	    real	Gmax

	logical		bCheckV			/.TRUE./
	save		bCheckV

	logical		bCheckG			/.FALSE./
	save		bCheckG

	real		VminCheck
	save		VminCheck

	real		VmaxCheck
	save		VmaxCheck

	real		GminCheck
	save		GminCheck

	real		GmaxCheck
	save		GmaxCheck

	! Arguments for ReadVIPSCheckData

	logical		bV
	logical		bG

	bCheckV = iand(iCheck, LOS__CHECKV) .ne. 0
	bCheckG = iand(iCheck, LOS__CHECKG) .ne. 0

	VminCheck = Vmin
	VmaxCheck = Vmax
	GminCheck = Gmin
	GmaxCheck = Gmax

	return
C+
C NAME:
C	ReadVIPSCheckData
C CALLING SEQUENCE:
	entry ReadVIPSCheckData(bV, bG, Vmin,Vmax,Gmin,Gmax)
C INPUTS:
C	bV		logical
C	bG		logical
C SEE ALSO:
C	ReadVIPSValidData
C-
	bV = bCheckV
	bG = bCheckG

	Vmin = VminCheck
	Vmax = VmaxCheck
	Gmin = GminCheck
	Gmax = GmaxCheck
	
	return
	end