/scratch.ssd/codes/ukrmol-out-git/source/dipelm/special_functions.f90 File Reference

Modules
module	dipelm_special_functions
	Orthogonal polynomials, rotation matrices, angular momentum algebra, etc.

Functions/Subroutines
subroutine	dipelm_special_functions::tic (this)
subroutine	dipelm_special_functions::toc (this)
integer function	dipelm_special_functions::binomial (n, k)
recursive real(kind=idp) function	dipelm_special_functions::jacobi (n, a, b, x)
	Calculate the Jacobi polynomials using recurrence relations.
recursive real(idp) function	dipelm_special_functions::flm (l, m)
subroutine	dipelm_special_functions::a_legendre_p (lmax, beta, plm)
subroutine	dipelm_special_functions::a_sp_harm (lmax, theta, phi, ylm)
subroutine	dipelm_special_functions::a_re_sp_harm (lmax, theta, phi, ylm)
subroutine	dipelm_special_functions::grid_theta_phi (steps, arange, theta_grid, phi_grid)
subroutine	dipelm_special_functions::grid_sp_harm (lmax, steps, arange, ylm_grid, basis_type)
subroutine	dipelm_special_functions::grid_wigner_D (lmax, steps, arange, d_grid, basis_type)
real(kind=kind(1.d0)) function	dipelm_special_functions::wigner_small_d (beta, j, m, n)
	Compute the value of the Wigner d matrix.
complex(kind=idp) function	dipelm_special_functions::wigner_d (alpha, beta, gamma, j, m, n)
	Calculate the wigner D function.
real(idp) function	dipelm_special_functions::re_wigner_d (alpha, beta, gamma, j, m, n)
real(idp) function	dipelm_special_functions::azim_fn (theta, m)
subroutine	dipelm_special_functions::a_wigner_d (jmax, alpha, beta, gamma, djmn)
subroutine	dipelm_special_functions::a_re_wigner_d (jmax, alpha, beta, gamma, djmn)
complex(kind=idp) function	dipelm_special_functions::sp_harm (j, m, theta, phi)
	Calculate spherical harmonic using wigner small d.
real(kind=idp) function	dipelm_special_functions::re_sp_harm (j, m, theta, phi)
complex(rk) function	dipelm_special_functions::sph_basis_transform_elm (l, m, mp, basis_type)
subroutine	dipelm_special_functions::sph_basis_transform_matrix (u, lmax, basis_type)
integer function	dipelm_special_functions::lm2i (l, m)
subroutine	dipelm_special_functions::i2lm (i, l, m)
recursive real(rk) function	dipelm_special_functions::binom (n, r)
real(rk) function	dipelm_special_functions::cleb (j1, m1, j2, m2, j, m)
real(rk) function	dipelm_special_functions::threej (j1, m1, j2, m2, j, m)
function	dipelm_special_functions::cphaz (l, eta, iwrite)
subroutine	dipelm_special_functions::linspace (from, to, no_steps, array, include_end_point)

Variables
integer, parameter	dipelm_special_functions::rk = idp