kMatOppSpinCorrection Function

public function kMatOppSpinCorrection(i, j, k, l) result(matel)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i
integer, intent(in) :: j
integer, intent(in) :: k
integer, intent(in) :: l

Return Value real(kind=dp)


Source Code

    function kMatOppSpinCorrection(i, j, k, l) result(matel)
        implicit none
        integer, intent(in) :: i, j, k, l
        real(dp) :: matel

        matel = kMatLinFac * kMatLin%directElement(i, j, k, l) &
                + kMatSqFac * kMatSq%directElement(i, j, k, l) &
                - kMatLinFac * kMatLin%exchElement(i, j, k, l) &
                - kMatSqFac * kMatSq%exchElement(i, j, k, l)
    end function kMatOppSpinCorrection