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

	return
	end