get_opp_spin Function

public function get_opp_spin(ilut, spin_orb) result(opp_spin)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(in) :: ilut(0:NIfTot)
integer, intent(in) :: spin_orb

Return Value real(kind=dp)


Source Code

    function get_opp_spin(ilut, spin_orb) result(opp_spin)
        integer(n_int), intent(in) :: ilut(0:NIfTot)
        integer, intent(in) :: spin_orb
        real(dp) :: opp_spin

        opp_spin = 0.0_dp

        if (is_beta(spin_orb)) then
            if (IsOcc(ilut, spin_orb + 1)) opp_spin = 1.0_dp
        else
            if (IsOcc(ilut, spin_orb - 1)) opp_spin = 1.0_dp
        end if

    end function get_opp_spin