rhoval0 Subroutine

public subroutine rhoval0(ez, drdi, rmesh, ipan, ircut, irws, thetas, dos0, dos1, irm, lmax)

Uses

Calculate the contribution to the DOS from free space

Arguments

Type IntentOptional 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