TYPEMAP
double T_NV

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

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