getBeta Function

public pure function getBeta(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 getBeta(this, i) result(val)
        type(LanczosCalcType), intent(in) :: this
        integer, intent(in) :: i
        real(dp) :: val
        if (i > 1) then
            val = this%super%projected_hamil(i, i - 1)
            return
        else if (i == 0) then
            val = this%beta_0
        else
            val = this%beta_1
        end if
    end function getBeta