Calculation of Diamagnetic Shielding in Molecules