INTEGER function ifake(x)
USE Numeric_Kinds_Module
REAL(Kind=WP_Kind) x
ifake = x
RETURN
END