Searched refs:norm2_scale (Results 1 – 3 of 3) sorted by relevance
6172 static int norm2_scale; variable6191 && norm2_scale <= gfc_real_kinds[index].max_exponent - 2) in norm2_add_squared()6193 norm2_scale += 2; in norm2_add_squared()6204 if (exp - norm2_scale >= gfc_real_kinds[index].max_exponent / 2 - 2) in norm2_add_squared()6208 mpfr_set_exp (tmp, new_scale - norm2_scale); in norm2_add_squared()6211 norm2_scale = new_scale; in norm2_add_squared()6214 if (norm2_scale) in norm2_add_squared()6217 mpfr_set_exp (tmp, norm2_scale); in norm2_add_squared()6241 if (norm2_scale && mpfr_regular_p (result->value.real)) in norm2_do_sqrt()6246 mpfr_set_exp (tmp, norm2_scale); in norm2_do_sqrt()[all …]
2707 (norm2_scale): New variable.2713 result and clear norm2_scale.2714 (gfc_simplify_norm2): Clear norm2_scale. Change add_squared to2716 and clear norm2_scale again.
6041 static int norm2_scale; variable6060 && norm2_scale <= gfc_real_kinds[index].max_exponent - 2) in norm2_add_squared()6062 norm2_scale += 2; in norm2_add_squared()6073 if (exp - norm2_scale >= gfc_real_kinds[index].max_exponent / 2 - 2) in norm2_add_squared()6077 mpfr_set_exp (tmp, new_scale - norm2_scale); in norm2_add_squared()6080 norm2_scale = new_scale; in norm2_add_squared()6083 if (norm2_scale) in norm2_add_squared()6086 mpfr_set_exp (tmp, norm2_scale); in norm2_add_squared()6110 if (norm2_scale && mpfr_regular_p (result->value.real)) in norm2_do_sqrt()6115 mpfr_set_exp (tmp, norm2_scale); in norm2_do_sqrt()[all …]