simple_double T_S_DOUBLE

INPUT
T_S_DOUBLE
          $var = (simple_double)SvNV($arg)

OUTPUT
T_S_DOUBLE
          sv_setnv($arg, (simple_double)$var);