C+
C NAME:
C	RClean
C PURPOSE:
C	Cleans 'dirty' or 'NaN' REAL*4 zeros
C CATEGORY:
C	gen/for/lib
C CALLING SEQUENCE:
	subroutine Rclean (idirty, iclean)
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, iClean0, 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-
	if (iand(idirty,Z'0000FF80') .eq. 0) then
	    iclean = 0
	else
	    iclean = idirty
	end if

	return
	end