Dipole_spin_magnetization Subroutine

subroutine Dipole_spin_magnetization(Xen, Xk, Dip)

Arguments

Type	Intent	Optional	Attributes		Name
type(levels),	intent(in)			::	Xen
type(bz_samp),	intent(in)			::	Xk
type(DIPOLE_t),	intent(inout)			::	Dip