C+
C NAME:
C	BadR8Test
C PURPOSE:
C	Checks double precision variable for 'bad value'
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	logical function BadR8Test(X)
C INPUTS:
C	X	real*8	any real variable
C OUTPUTS:
C	BadR8Test	logical		.TRUE.  if X is bad
C					.FALSE. if not
C CALLS:
C	BadR8
C PROCEDURE:
C	The BadR8 number is pulled out of the include file.
C	It is set to the largest negative real*8 number on VMS
C MODIFICATION HISTORY:
C	FEB-2006, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	real*8	 BadR8
	BadR8Test = X .eq. BadR8()

	return
	end