rllsllsourceterms Subroutine
-
- single-site, KKRhost
- 61 statements
- Source File
public subroutine rllsllsourceterms(nsra, nvec, eryd, rmesh, nrmax, nrmaxd, lmax, lmmaxd, use_fullgmat, jlk_index, hlk, jlk, hlk2, jlk2, gmatprefactor)
Uses
-
- global_variables
- mod_datatypes
- mod_constants
- MOD_BESHANK
Calculates the source terms for the right , and the left solutions , for caculations in the following approaches:
- non-relativistic
- scalar-relativistic
- full-relativistic
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | nsra | |||
| integer, | intent(out) | :: | nvec | |||
| complex(kind=dp), | intent(in) | :: | eryd | |||
| real(kind=dp), | intent(in), | dimension (nrmaxd) | :: | rmesh | ||
| integer, | intent(in) | :: | nrmax | |||
| integer, | intent(in) | :: | nrmaxd | |||
| integer, | intent(in) | :: | lmax | |||
| integer, | intent(in) | :: | lmmaxd |
lms-size [ = (1+korbit)(lmax+1)*2 ] |
||
| integer, | intent(in) | :: | use_fullgmat | |||
| integer, | intent(out), | dimension (nsra*lmmaxd) | :: | jlk_index |
index array mapping entries of hlk, jlk (bing/small components one after the other) to L=(l,m,s) |
|
| complex(kind=dp), | intent(out), | dimension (1:nsra*(1+korbit)*(lmax+1), nrmax) | :: | hlk |
right hankel and bessel source functions |
|
| complex(kind=dp), | intent(out), | dimension (1:nsra*(1+korbit)*(lmax+1), nrmax) | :: | jlk |
right hankel and bessel source functions |
|
| complex(kind=dp), | intent(out), | dimension (1:nsra*(1+korbit)*(lmax+1), nrmax) | :: | hlk2 |
left hankel and bessel source functions |
|
| complex(kind=dp), | intent(out), | dimension (1:nsra*(1+korbit)*(lmax+1), nrmax) | :: | jlk2 |
left hankel and bessel source functions |
|
| complex(kind=dp), | intent(out) | :: | gmatprefactor |
prefactor of the Green function (2M_0\kappa in PhD Bauer, p. 63) |