cleb Function

public pure function cleb(j1, m1, j2, m2, j, m)

calculate a clebsch-gordan coefficient $\langle \frac{j_1}{2}, \frac{m_1}{2}, \frac{j_2}{2}, \frac{m_2}{2} | \frac{j}{2}, \frac{m}{2} \rangle$ arguments are integer and twice the true value.

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	j1
integer,	intent(in)			::	m1
integer,	intent(in)			::	j2
integer,	intent(in)			::	m2
integer,	intent(in)			::	j
integer,	intent(in)			::	m

Return Value real(kind=8)