	subroutine xsetr4(inval,outval)
c		rashafer 28 May
c	XPARSE subroutine to equate two r*4s
	real*4 inval,outval
	outval=inval
	return
	end
