find_ps_rprec_deno function

Compute the denominator for R-precision