M Function

public impure elemental function M(l, ki, kf, Z) result(res)

Calculates the integral $M^\lambda_{l+λ,l}$ via the expression given in "Electromagnetic Excitation: Theory of Coulomb Excitation with Heavy Ions " by Kurt Alder and Aage Winther, Chapter IX, section 2, page 244, equation 14. for λ = 1, where $-4M^\lambda_{l+λ,l} = I^λ_{l+λ, l}$. There is an expression for λ = 2 in "Study of Nuclear Structure by Electromagnetic Excitation with Accelerated Ions" by K. Alder, A. Bohr, T. Huus, B. Mottelson, and A. Winther, but only the dipole is used (at least for now).

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	l
real(kind=dp),	intent(in)			::	ki
real(kind=dp),	intent(in)			::	kf
integer,	intent(in)			::	Z

Return Value complex(kind=dp)