add replace Calc Charge function by pllymophosm