real, parameter, private module_mp_thompson::am_i = PI*rho_i/6.0

private

Referenced by calc_effectrad(), mp_thompson(), qi_aut_qs(), and thompson_init().