special_functions_mod Module

This module holds rctj, rcty, envj, msta1, msta2, from special_functions library, donwloaded from: https://people.sc.fsu.edu/~jburkardt/f_src/special_functions/special_functions.html

Author:

Original FORTRAN77 version by Shanjie Zhang, Jianming Jin. FORTRAN90 version by John Burkardt.

Reference:

Shanjie Zhang, Jianming Jin, Computation of Special Functions, Wiley, 1996, ISBN: 0-471-11963-6, LC: QA351.C45.


Used by

  • module~~special_functions_mod~~UsedByGraph module~special_functions_mod special_functions_mod module~math_utilities_mod math_utilities_mod module~math_utilities_mod->module~special_functions_mod module~radial_coupling_terms_mod radial_coupling_terms_mod module~radial_coupling_terms_mod->module~math_utilities_mod module~boundary_conditions_mod boundary_conditions_mod module~boundary_conditions_mod->module~math_utilities_mod module~pes_matrix_mod pes_matrix_mod module~pes_matrix_mod->module~math_utilities_mod module~pes_matrix_mod->module~radial_coupling_terms_mod program~scattering SCATTERING program~scattering->module~radial_coupling_terms_mod program~scattering->module~boundary_conditions_mod program~scattering->module~pes_matrix_mod module~propagator_mod propagator_mod program~scattering->module~propagator_mod module~propagator_mod->module~pes_matrix_mod

Contents


Functions

public function envj(n, x)

utility function used by MSTA1 and MSTA2.

Arguments

Type IntentOptional Attributes Name
integer(kind=4) :: n
real(kind=8) :: x

Return Value real(kind=8)

public function msta1(x, mp)

determines a backward recurrence starting point for Jn(x).

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: x
integer(kind=4) :: mp

Return Value integer(kind=4)

public function msta2(x, n, mp)

determines a backward recurrence starting point for Jn(x).

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: x
integer(kind=4) :: n
integer(kind=4) :: mp

Return Value integer(kind=4)


Subroutines

public subroutine rctj(n, x, nm, rj, dj)

computes Riccati-Bessel function of the first kind, and derivatives.

Arguments

Type IntentOptional Attributes Name
integer(kind=4) :: n
real(kind=8) :: x
integer(kind=4) :: nm
real(kind=8) :: rj(0:n)
real(kind=8) :: dj(0:n)

public subroutine rcty(n, x, nm, ry, dy)

computes Riccati-Bessel function of the second kind, and derivatives.

Arguments

Type IntentOptional Attributes Name
integer(kind=4) :: n
real(kind=8) :: x
integer(kind=4) :: nm
real(kind=8) :: ry(0:n)
real(kind=8) :: dy(0:n)