spin_crossterm Subroutine

public subroutine spin_crossterm(inc, rhod, rveig_atom, Spi12, Spi12_atom)

Uses

Arguments

Type IntentOptional Attributes Name
type(inc_TYPE), intent(in) :: inc
double complex, intent(in) :: rhod(inc%lmmaxso,inc%lmmaxso,inc%natypd,4)
double complex, intent(in) :: rveig_atom(inc%lmmaxso,inc%natypd,2)
double complex, intent(out) :: Spi12(3)
double complex, intent(out), optional :: Spi12_atom(3,inc%natypd)