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

	real*8		BadR8Set
	real*8		BadValue

	BadR8 = CurrentBad

	return

        entry BadR8Set(BadValue)

	BadR8Set = CurrentBad
	CurrentBad = BadValue

        return
	end