Calculate the contribution to the DOS from free space
C a l c u l a t e
t h e
c o n t r i b u t i o n
t o
t h e
D O S
f r o m
f r e e
s p a c e
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex(kind=dp), | intent(in) | :: | ez | |||
real(kind=dp), | intent(in), | dimension (irm) | :: | drdi |
Derivative dr/di |
|
real(kind=dp), | intent(in), | dimension (irm) | :: | rmesh | ||
integer, | intent(in) | :: | ipan |
Number of panels in non-MT-region |
||
integer, | intent(in), | dimension (0:ipand) | :: | ircut |
R points of panel borders |
|
integer, | intent(in) | :: | irws |
R point at WS radius |
||
real(kind=dp), | intent(in), | dimension (irid, nfund) | :: | thetas |
shape function THETA=0 outer space THETA =1 inside WS cell in spherical harmonics expansion |
|
complex(kind=dp), | intent(out) | :: | dos0 | |||
complex(kind=dp), | intent(out) | :: | dos1 | |||
integer, | intent(in) | :: | irm |
Maximum number of radial points |
||
integer, | intent(in) | :: | lmax |
Maximum l component in wave function expansion |