setAlpha Subroutine

public pure subroutine setAlpha(this, i, val)

Arguments

Type IntentOptional Attributes Name
type(LanczosCalcType), intent(inout) :: this
integer, intent(in) :: i
real(kind=dp), intent(in) :: val

Contents

Source Code

setAlpha

Source Code

    pure subroutine setAlpha(this, i, val)
        type(LanczosCalcType), intent(inout) :: this
        integer, intent(in) :: i
        real(dp), intent(in) :: val
        this%super%projected_hamil(i, i) = val
    end subroutine setAlpha