C
C  	*****************************************************************
C 	* 								*
C	* 	Absoft Corporation 					* 
C 	*	2781 Bond Street					*
C	*	Rochester Hills, MI  48309				*
C	*								*
C	*	This file contains example code for demonstration	*
C	*	purposes only.  Absoft makes no warranty of the		* 
C	*	suitability of this code for any purpose.		*
C	*								*
C	*	In no event shall Absoft be liable for any incidental,	*
C	*	indirect, special, or consequential damages arising	*
C	*	out of the use of this code.				*
C	*								*
C	***************************************************************** 

	PROGRAM MAIN
	IMPLICIT NONE
	LOGICAL NANCHK,DNANCHK
	LOGICAL INFCHK,DINFCHK
	REAL GETINF,GETNAN
	REAL*8 DGETINF,DGETNAN

	REAL X
	REAL*8 Y
	X = 0.0
	Y = 0.0D0
	WRITE(*,*) "  0.0 is NAN ",NANCHK(X),DNANCHK(Y)
	WRITE(*,*) "  0.0 is INF ", INFCHK(X),DINFCHK(Y)
	X = -10.0
	Y = -10.0
	WRITE(*,*) "-10.0 is NAN ",NANCHK(X),DNANCHK(Y)
	WRITE(*,*) "-10.0 is INF ",INFCHK(X),DINFCHK(Y)
	X = 10.0
	Y = 10.0
	WRITE(*,*) " 10.0 is NAN ",NANCHK(X),DNANCHK(Y)
	WRITE(*,*) " 10.0 is INF ",INFCHK(X),DINFCHK(Y)
	X = GETNAN(-1.0)
	Y = DGETNAN(-1.0D0)
	WRITE(*,*) "  NAN is NAN ",NANCHK(X),DNANCHK(Y)
	WRITE(*,*) "  NAN is INF ",INFCHK(X),DINFCHK(Y)
	X = GETINF(0.0)
	Y = DGETINF(0.0D0)
	WRITE(*,*) "  INF is NAN ",NANCHK(X),DNANCHK(Y)
	WRITE(*,*) "  INF is INF ",INFCHK(X),DINFCHK(Y)
	END

	REAL FUNCTION GETNAN(X)
	GETNAN = SQRT(X)
	END

	REAL*8 FUNCTION DGETNAN(X)
	REAL*8 X
	DGETNAN = DSQRT(X)
	END

	REAL FUNCTION GETINF(X)
	GETINF = 10.0/X
	END

	REAL FUNCTION DGETINF(X)
	REAL*8 X
	DGETINF = 10.0D0/X
	END