C+
C NAME:
C	iCleanNaN
C PURPOSE:
C	Cleans 'dirty' or 'NaN' REAL*4 zeros
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	function iCleanNaN(iNaN)
C INPUTS:
C	iNaN		integer
C OUTPUTS:
C	iCleanNaN	integer		0: if the input was not modified
C					1: if the input was set to zero
C CALLS:
C	(none)
C SEE ALSO:
C	Clean0, iClean0, RClean
C RESTRICTIONS:
C	Should be called with REAL*4 argument!
C PROCEDURE:
C	The test
C		if (iNaN .eq. Z'00008000'
C	is used. Don't remember why.
C MODIFICATION HISTORY:
C	SEP-1999, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    integer	iNaN

	iCleanNaN = 0
	if (iNaN .eq. Z'00008000') then
	    iNaN  = 0
	    iCleanNaN = 1
	end if

	return
	end