#if defined key_single
#   define CASTWP(x) REAL(x,wp)
#   define CASTDP(x) REAL(x,dp)
#else
#   define CASTWP(x) x
#   define CASTDP(x) x
#endif