Summary: Calculate full t-matrices (no idea why this is done) Author: Category: KKRimp, single-site
C a l c u l a t e
f u l l
m a t r i c e s
( n o
i d e a
w h y
t h i s
i s
d o n e )
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex(kind=dpc), | intent(in) | :: | eryd | |||
real(kind=dp), | intent(in) | :: | vpot1(1:cell%nrmaxd,(2*lmaxatom+1)**2) | |||
real(kind=dp), | intent(in) | :: | vpot2(1:cell%nrmaxd,(2*lmaxatom+1)**2) | |||
type(CELL_TYPE), | intent(in) | :: | cell | |||
real(kind=dp), | intent(in) | :: | zatom | |||
integer, | intent(in) | :: | lmaxatom | |||
complex(kind=dpc) | :: | tmatll(2*(lmaxatom+1)**2,2*(lmaxatom+1)**2) | ||||
type(config_type), | intent(in) | :: | config | |||
integer, | intent(in) | :: | nspin | |||
integer, | intent(in) | :: | lmaxd |