index_packed Interface

public interface index_packed

index for the upper triangular matrix in a packed storage scheme SEE: http://www.netlib.org/lapack/lug/node123.html optimization: use precalculated array sq_half(i)=


Module Procedures

private elemental function index_packed4(i, j) result(ij)

Arguments

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

Return Value integer(kind=8)

private elemental function index_packed8(i, j) result(ij)

Arguments

Type IntentOptional Attributes Name
integer(kind=8), intent(in) :: i
integer(kind=8), intent(in) :: j

Return Value integer(kind=8)