C+
C NAME:
C	iClean0
C PURPOSE:
C	Cleans 'dirty' or 'NaN' REAL*4 zeros
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	function iClean0 (idirty)
C INPUTS:
C	X	real	value to be checked
C OUTPUTS:
C	X	real	set to zero if it was a dirty zero
C	I	integer		0: if the was not modified
C				1: if the input was set to zero
C CALLS:
C	(none)
C SEE ALSO:
C	Clean0, RClean, iCleanNaN
C RESTRICTIONS:
C	Should be called with REAL*4 argument!
C PROCEDURE:
C	A dirty zero is tested by the condition
C		iand(idirty,Z'0000FF80') .eq. 0
C
C	The NaN value is tested by
C		iand(idirty,Z'0000FF80') .eq. 0
C MODIFICATION HISTORY:
C	SEP-1999, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	iClean0 = 0
	if (iand(idirty,Z'0000FF80') .eq. 0) then
	    idirty  = 0
	    iClean0 = 1
	end if

	return
	end