Go to the source code of this file.
|
module | erf_complex |
| Module to compute the error function of a complex argument.
|
|
|
elemental complex(kind=dp) function, public | erf_complex::faddeyeva_accurate (z, err) |
| Computes the Faddeyeva function w(z) = exp(-z**2) * erfc(-i*z)
|
|
elemental complex(kind=dp) function, public | erf_complex::erfz_accurate (z, err) |
| Computes the error function of a complex argument using the Zaghloul and Ali algorithm.
|
|
elemental complex(kind=dp) function, public | erf_complex::faddeyeva_fast (z) |
| Computes the Faddeyeva function w(z) = exp(-z**2) * erfc(-i*z)
|
|
elemental complex(kind=dp) function, public | erf_complex::erfz_fast (z) |
| Computes the error function of a complex argument using the Poppe and Wijers algorithm.
|
|
|
real(kind=dp), parameter | erf_complex::zero = 0.0_dp |
|
real(kind=dp), parameter | erf_complex::one = 1.0_dp |
|
real(kind=dp), parameter | erf_complex::two = 2.0_dp |
|
real(kind=dp), parameter | erf_complex::half = 0.5_dp |
|
real(kind=dp), parameter | erf_complex::rmin = TINY(one) |
|
real(kind=dp), parameter | erf_complex::eps0 = EPSILON(one) |
|
real(kind=dp), parameter | erf_complex::sqrt_log_rmin = SQRT(-LOG(rmin)) |
|
real(kind=dp), parameter | erf_complex::pi2 = pi*pi |
|
real(kind=dp), parameter | erf_complex::one_sqrt_pi = one/SQRT(pi) |
|
complex(kind=dp), parameter | erf_complex::cmplxj = CMPLX(zero, one, kind=dp) |
|
complex(kind=dp), parameter | erf_complex::cmplx0 = CMPLX(zero, zero, kind=dp) |
|