johnsonY Function

pure function johnsonY(n, m) result(ynm)

y_nm factor showing up in Johnson's formula for hydrogen excitation from state n to state m

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=ik),	intent(in)			::	n
integer(kind=ik),	intent(in)			::	m

Return Value real(kind=rk)