kMatParSpinCorrection Function

public function kMatParSpinCorrection(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 kMatParSpinCorrection(i, j, k, l) result(matel)
        implicit none
        integer, intent(in) :: i, j, k, l
        real(dp) :: matel

        matel = kMatParFac * kMat(UMatInd(i, j, k, l))
    end function kMatParSpinCorrection