dlaisnan()

logical function disnan::dlaisnan	(	real(wp)	x,
		real(wp)	y
	)