C+
C NAME:
C	pInfR4
C PURPOSE:
C	Provides a generic identifier for positive infinity
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	function pInfR4()
C INPUTS:
C	(none)
C OUTPUTS:
C	X	real	positive infinity identifier
C CALLS:
C	(none)
C SEE ALSO:
C	BadR4, BadR8, BadI4, TinyR4
C INCLUDE:
	include		'math.h'
C PROCEDURE:
C	The pInfR4 number is pulled out of the include file.
C	It is set to the largest positive real*4 number on VMS
C MODIFICATION HISTORY:
C	SEP-1999, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	pInfR4 = MATH__PINF

	return
	end