Function MagneticVectorPotential