anglib.f90 File Reference

Modules
module	anglib

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

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