whittaker.F File Reference

#include "../base/base_uses.f90"

Go to the source code of this file.

Modules
module	whittaker
	Calculates special integrals.

Functions/Subroutines
subroutine, public	whittaker::whittaker_c0a (wc, r, expa, erfa, alpha, l1, l2, n)
	int(y^(2+l1+l2) * exp(-alpha*y*y),y=0..x) / x^(l2+1); wc(:) :: output r(:) :: coordinate expa(:) :: exp(-alpha*r(:)**2) erfa(:) :: erf(sqrt(alpha)*r(:)) alpha :: exponent l1, l2 :: L-quantum number n :: number of points
subroutine, public	whittaker::whittaker_ci (wc, r, expa, alpha, l, n)
	int(y^(l+1) * exp(-alpha*y*y),y=x..infinity);

Variables
real(kind=dp), parameter	whittaker::epsilon = 1.e-2_dp