rewrite_eigv_atom Subroutine

public subroutine rewrite_eigv_atom(inc, nstates, rveig, rveig_atom)

Uses

Arguments

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