amn2010 Subroutine

public subroutine amn2010(jatom, amat, bmat, alat, gauntcoeff, lpotmax, ntotatom, ratom)

For details see vinters2010

Arguments

Type IntentOptional Attributes Name
integer :: jatom
real(kind=8) :: amat(ntotatom,(lpotmax+1)**2,(lpotmax+1)**2)
real(kind=8) :: bmat(ntotatom,(lpotmax+1)**2)
real(kind=8) :: alat
type(gauntcoeff_type), intent(in) :: gauntcoeff
integer :: lpotmax
integer :: ntotatom
real(kind=8) :: ratom(3,ntotatom)