C+
C NAME:
C	math
C PURPOSE:
C	Define mathematical constants
C PROCEDURE:
C-
	double precision MATH__PI
	parameter	(MATH__PI	= 3.1415926536d0)
	double precision MATH__DPR
	parameter	(MATH__DPR	= 57.29577951d0)	! Degree per radian (180/Pi)
	double precision MATH__RPD
	parameter	(MATH__RPD	= 0.01745329252d0)	! Radian per degree (Pi/180)
	double precision MATH__E
	parameter	(MATH__E	= 2.718281828d0)
	real*4		 MATH__PINF
	parameter	(MATH__PINF	= 1.7014117e+38)	! Biggest real*4 on VMS = 'FFFF7FFF'x
	real*4		 MATH__NARN				! 'Not a real number' flag
	parameter	(MATH__NARN	= -1.7014117e+38)	! Largest negative real*4 on VMS = 'FFFFFFFF'x
	integer*4	 MATH__NAIN				! 'Not an integer number' flag

	! gfortran does not like -2147483648

	parameter	(MATH__NAIN	= -2147483647)		! Largest negative integer*4
	integer*8	 MATH__NAIN8				! 'Not an integer number' flag
	!parameter	(MATH__NAIN8	= -9223372036854775807)	! Largest negative integer*8
	parameter	(MATH__NAIN8	= -2147483647)		! Largest negative integer*8
	real		 MATH__TINY
	parameter	(MATH__TINY	= 1.0E-5)

	real*8		 MATH__PINF8
	parameter	(MATH__PINF8	= 8.988465674311579d+307)
	real*8		 MATH__NARN8
	parameter	(MATH__NARN8	= -8.988465674311579d+307)

	integer*4	 MATH__PINF_VMS
	parameter	(MATH__PINF_VMS =  -32769)	!'FFFF7FFF'x
	integer*4	 MATH__MINF_VMS
	parameter	(MATH__MINF_VMS =  -1)		!'FFFFFFFF'x
	integer*4	 MATH__NARN_VMS
	parameter	(MATH__NARN_VMS =  -1)		!'FFFFFFFF'x
	integer*4	 MATH__NARN_DOS
	parameter	(MATH__NARN_DOS =  -16777217)	!'FEFFFFFF'x

	integer*4	 MATH__PINF1_VMS
	parameter	(MATH__PINF1_VMS = -32769)	!'FFFF7FFF'x
	integer*4	 MATH__PINF2_VMS
	parameter	(MATH__PINF2_VMS = -1)		!'FFFFFFFF'x
	integer*4	 MATH__MINF1_VMS
	parameter	(MATH__MINF1_VMS = -1)		!'FFFFFFFF'x
	integer*4	 MATH__MINF2_VMS
	parameter	(MATH__MINF2_VMS = -1)		!'FFFFFFFF'x
	integer*4	 MATH__NARN1_VMS
	parameter	(MATH__NARN1_VMS = -1)		!'FFFFFFFF'x
	integer*4	 MATH__NARN2_VMS
	parameter	(MATH__NARN2_VMS = -1)		!'FFFFFFFF'x
	integer*4	 MATH__NARN1_DOS
	parameter	(MATH__NARN1_DOS = -1)		!'FFFFFFFF'x
	integer*4	 MATH__NARN2_DOS
	parameter	(MATH__NARN2_DOS = -2097153)	!'FFDFFFFF'x