function xfake(i)
USE Numeric_Kinds_Module
INTEGER i
REAL(Kind=WP_Kind) xfake
xfake = i
RETURN
END