Function MagneticDipoleMoment