TYPEMAP
double	T_NV

INPUT
T_NV
	$var = ($type)SvNV($arg);
T_DIFFERENT
	$var = ($type)SvNV($arg);

OUTPUT
T_NV
	sv_setnv($arg, (NV)$var);