	subroutine xseti4(inval,outval)
c		rashafer 28 May
c	XPARSE subroutine to equate two i*4s
	integer*4 inval,outval
	outval=inval
	return
	end
