alpha_expectationvalue Subroutine

public subroutine alpha_expectationvalue(inc, nstates, alpha, rveig_atom, Alpha_tot)

Uses

Arguments

Type IntentOptional Attributes Name
type(inc_TYPE), intent(in) :: inc
integer, intent(in) :: nstates
double complex, intent(in) :: alpha(inc%lmmaxso,inc%lmmaxso,inc%natypd,3)
double complex, intent(in) :: rveig_atom(inc%lmmaxso,inc%natypd,nstates)
double complex, intent(out) :: Alpha_tot(3,nstates)