getAlpha Function

public pure function getAlpha(this, i) result(val)

Arguments

Type IntentOptional Attributes Name
type(LanczosCalcType), intent(in) :: this
integer, intent(in) :: i

Return Value real(kind=dp)


Source Code

    pure function getAlpha(this, i) result(val)
        type(LanczosCalcType), intent(in) :: this
        integer, intent(in) :: i
        real(dp) :: val
        val = this%super%projected_hamil(i, i)
    end function getAlpha