anglib Module Reference

Functions/Subroutines
real(rk) function	cleb (j1, m1, j2, m2, j, m)
real(rk) function	threej (j1, m1, j2, m2, j, m)
complex(rk) function	basis_transform (j, m1, m2)
real(rk) function	gaunt (j1, m1, j2, m2, j, m)
real(rk) function	gaunt_resp2 (j2, m2, j3, m3, j1, m1)
real(rk) function	gaunt_resp4 (j2, m2, j3, m3, j1, m1)
real(rk) function	gaunt_resp3 (j2, m2, j3, m3, j1, m1)
real(rk) function	clebsch_resp4 (j2, m2, j3, m3, j1, m1)
real(rk) function	real_threej (j1, m1, j2, m2, j, m)
real(rk) function	real_threej2 (j1, m1, j2, m2, j, m)
real(rk) function	clebsch_resp_slow (j1, m1, j2, m2, j, m)
real(rk) function	clebsch_resp_slowest (j1, m1, j2, m2, j, m)
real(rk) function	sixj (a, b, c, d, e, f)
real(rk) function	angdelta (a, b, c)
real(rk) function	ninej (a, b, c, d, e, f, g, h, i)
recursive real(rk) function	factorial (n)
recursive real(rk) function	binom (n, r)

Variables
integer, parameter	rk = selected_real_kind(p=15)

Function/Subroutine Documentation

angdelta()

real(rk) function anglib::angdelta	(	integer	a,
		integer	b,
		integer	c )

Here is the call graph for this function:

basis_transform()

complex(rk) function anglib::basis_transform	(	integer	j,
		integer	m1,
		integer	m2 )

Here is the call graph for this function:

binom()

recursive real(rk) function anglib::binom	(	integer	n,
		integer	r )

Here is the call graph for this function:

cleb()

real(rk) function anglib::cleb	(	integer	j1,
		integer	m1,
		integer	j2,
		integer	m2,
		integer	j,
		integer	m )

Here is the call graph for this function:

clebsch_resp4()

real(rk) function anglib::clebsch_resp4	(	integer	j2,
		integer	m2,
		integer	j3,
		integer	m3,
		integer	j1,
		integer	m1 )

Here is the call graph for this function:

clebsch_resp_slow()

real(rk) function anglib::clebsch_resp_slow	(	integer	j1,
		integer	m1,
		integer	j2,
		integer	m2,
		integer	j,
		integer	m )

Here is the call graph for this function:

clebsch_resp_slowest()

real(rk) function anglib::clebsch_resp_slowest	(	integer	j1,
		integer	m1,
		integer	j2,
		integer	m2,
		integer	j,
		integer	m )

Here is the call graph for this function:

factorial()

recursive real(rk) function anglib::factorial

(

integer

n

)

Here is the call graph for this function:

gaunt()

real(rk) function anglib::gaunt	(	integer	j1,
		integer	m1,
		integer	j2,
		integer	m2,
		integer	j,
		integer	m )

Here is the call graph for this function:

gaunt_resp2()

real(rk) function anglib::gaunt_resp2	(	integer	j2,
		integer	m2,
		integer	j3,
		integer	m3,
		integer	j1,
		integer	m1 )

Here is the call graph for this function:

gaunt_resp3()

real(rk) function anglib::gaunt_resp3	(	integer	j2,
		integer	m2,
		integer	j3,
		integer	m3,
		integer	j1,
		integer	m1 )

Here is the call graph for this function:

gaunt_resp4()

real(rk) function anglib::gaunt_resp4	(	integer	j2,
		integer	m2,
		integer	j3,
		integer	m3,
		integer	j1,
		integer	m1 )

Here is the call graph for this function:

ninej()

real(rk) function anglib::ninej	(	integer	a,
		integer	b,
		integer	c,
		integer	d,
		integer	e,
		integer	f,
		integer	g,
		integer	h,
		integer	i )

Here is the call graph for this function:

real_threej()

real(rk) function anglib::real_threej	(	integer	j1,
		integer	m1,
		integer	j2,
		integer	m2,
		integer	j,
		integer	m )

Here is the call graph for this function:

real_threej2()

real(rk) function anglib::real_threej2	(	integer	j1,
		integer	m1,
		integer	j2,
		integer	m2,
		integer	j,
		integer	m )

Here is the call graph for this function:

sixj()

real(rk) function anglib::sixj	(	integer, intent(in)	a,
		integer, intent(in)	b,
		integer, intent(in)	c,
		integer, intent(in)	d,
		integer, intent(in)	e,
		integer, intent(in)	f )

Here is the call graph for this function:

threej()

real(rk) function anglib::threej	(	integer	j1,
		integer	m1,
		integer	j2,
		integer	m2,
		integer	j,
		integer	m )

Here is the call graph for this function:

Variable Documentation

rk

integer, parameter anglib::rk = selected_real_kind(p=15)