C+
C NAME:
C	BadR4
C PURPOSE:
C	Provides a generic identifier for real*4 'bad values'
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	function BadR4()
C INPUTS:
C	(none)
C OUTPUTS:
C	X	real	bad value number
C CALLS:
C	(none)
C SEE ALSO:
C	BadR8, BadI4, pInfR4, TinyR4
C INCLUDE:
	include		'math.h'
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	SEP-1999, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	real		CurrentBad	/MATH__NARN/
	save		CurrentBad

	BadR4 = CurrentBad

	return

        entry BadR4Set(BadValue)

	BadR4Set = CurrentBad
	CurrentBad = BadValue

        return
        end