/* * call-seq: * dvector.exp10! -> dvector * * Replace each entry x of _dvector_ with 10**x. * * a = Dvector[ 1.1, -2.2, 5.3 ] * a.exp10! -> Dvector[ 10**(1.1), 10**(-2.2), 10**(5.3) ] * a -> Dvector[ 10**(1.1), 10**(-2.2), 10**(5.3) ] */ VALUE dvector_exp10_bang(VALUE ary) {