extend_coeffvector2cluster_allsqa Subroutine

private subroutine extend_coeffvector2cluster_allsqa(inc, lattice, impcls, nsqa, kpoint, rveig_in, rveig_big)

Uses

Arguments

Type IntentOptional Attributes Name
type(inc_TYPE), intent(in) :: inc
type(lattice_TYPE), intent(in) :: lattice
type(impcls_TYPE), intent(in) :: impcls
integer, intent(in) :: nsqa
double precision, intent(in) :: kpoint(3)
double complex, intent(in) :: rveig_in(inc%lmmaxso,inc%natypd,inc%ndegen,nsqa)
double complex, intent(out) :: rveig_big(impcls%clmso,inc%ndegen,nsqa)