Add s_negative_one_power and d_negative_one_power to mr_util.f90