diag Interface

public interface diag

Creates a diagonal array or extract the diagonal elements of an array (Specification)


Contents


Functions

private module function diag_cdp(v) result(res)

Arguments

TypeIntentOptionalAttributesName
complex(kind=dp), intent(in) :: v(:)

Return Value complex(kind=dp)(size(v),size(v))

private module function diag_cdp_k(v, k) result(res)

Arguments

TypeIntentOptionalAttributesName
complex(kind=dp), intent(in) :: v(:)
integer, intent(in) :: k

Return Value complex(kind=dp)(size(v)+abs(k),size(v)+abs(k))

private module function diag_cdp_mat(A) result(res)

Arguments

TypeIntentOptionalAttributesName
complex(kind=dp), intent(in) :: A(:,:)

Return Value complex(kind=dp)(minval(shape(A)))

private module function diag_cdp_mat_k(A, k) result(res)

Arguments

TypeIntentOptionalAttributesName
complex(kind=dp), intent(in) :: A(:,:)
integer, intent(in) :: k

Return Value complex(kind=dp)(minval(shape(A))-abs(k))

private module function diag_csp(v) result(res)

Arguments

TypeIntentOptionalAttributesName
complex(kind=sp), intent(in) :: v(:)

Return Value complex(kind=sp)(size(v),size(v))

private module function diag_csp_k(v, k) result(res)

Arguments

TypeIntentOptionalAttributesName
complex(kind=sp), intent(in) :: v(:)
integer, intent(in) :: k

Return Value complex(kind=sp)(size(v)+abs(k),size(v)+abs(k))

private module function diag_csp_mat(A) result(res)

Arguments

TypeIntentOptionalAttributesName
complex(kind=sp), intent(in) :: A(:,:)

Return Value complex(kind=sp)(minval(shape(A)))

private module function diag_csp_mat_k(A, k) result(res)

Arguments

TypeIntentOptionalAttributesName
complex(kind=sp), intent(in) :: A(:,:)
integer, intent(in) :: k

Return Value complex(kind=sp)(minval(shape(A))-abs(k))

private module function diag_iint16(v) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int16), intent(in) :: v(:)

Return Value integer(kind=int16)(size(v),size(v))

private module function diag_iint16_k(v, k) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int16), intent(in) :: v(:)
integer, intent(in) :: k

Return Value integer(kind=int16)(size(v)+abs(k),size(v)+abs(k))

private module function diag_iint16_mat(A) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int16), intent(in) :: A(:,:)

Return Value integer(kind=int16)(minval(shape(A)))

private module function diag_iint16_mat_k(A, k) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int16), intent(in) :: A(:,:)
integer, intent(in) :: k

Return Value integer(kind=int16)(minval(shape(A))-abs(k))

private module function diag_iint32(v) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int32), intent(in) :: v(:)

Return Value integer(kind=int32)(size(v),size(v))

private module function diag_iint32_k(v, k) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int32), intent(in) :: v(:)
integer, intent(in) :: k

Return Value integer(kind=int32)(size(v)+abs(k),size(v)+abs(k))

private module function diag_iint32_mat(A) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int32), intent(in) :: A(:,:)

Return Value integer(kind=int32)(minval(shape(A)))

private module function diag_iint32_mat_k(A, k) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int32), intent(in) :: A(:,:)
integer, intent(in) :: k

Return Value integer(kind=int32)(minval(shape(A))-abs(k))

private module function diag_iint64(v) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int64), intent(in) :: v(:)

Return Value integer(kind=int64)(size(v),size(v))

private module function diag_iint64_k(v, k) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int64), intent(in) :: v(:)
integer, intent(in) :: k

Return Value integer(kind=int64)(size(v)+abs(k),size(v)+abs(k))

private module function diag_iint64_mat(A) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int64), intent(in) :: A(:,:)

Return Value integer(kind=int64)(minval(shape(A)))

private module function diag_iint64_mat_k(A, k) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int64), intent(in) :: A(:,:)
integer, intent(in) :: k

Return Value integer(kind=int64)(minval(shape(A))-abs(k))

private module function diag_iint8(v) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int8), intent(in) :: v(:)

Return Value integer(kind=int8)(size(v),size(v))

private module function diag_iint8_k(v, k) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int8), intent(in) :: v(:)
integer, intent(in) :: k

Return Value integer(kind=int8)(size(v)+abs(k),size(v)+abs(k))

private module function diag_iint8_mat(A) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int8), intent(in) :: A(:,:)

Return Value integer(kind=int8)(minval(shape(A)))

private module function diag_iint8_mat_k(A, k) result(res)

Arguments

TypeIntentOptionalAttributesName
integer(kind=int8), intent(in) :: A(:,:)
integer, intent(in) :: k

Return Value integer(kind=int8)(minval(shape(A))-abs(k))

private module function diag_rdp(v) result(res)

Arguments

TypeIntentOptionalAttributesName
real(kind=dp), intent(in) :: v(:)

Return Value real(kind=dp)(size(v),size(v))

private module function diag_rdp_k(v, k) result(res)

Arguments

TypeIntentOptionalAttributesName
real(kind=dp), intent(in) :: v(:)
integer, intent(in) :: k

Return Value real(kind=dp)(size(v)+abs(k),size(v)+abs(k))

private module function diag_rdp_mat(A) result(res)

Arguments

TypeIntentOptionalAttributesName
real(kind=dp), intent(in) :: A(:,:)

Return Value real(kind=dp)(minval(shape(A)))

private module function diag_rdp_mat_k(A, k) result(res)

Arguments

TypeIntentOptionalAttributesName
real(kind=dp), intent(in) :: A(:,:)
integer, intent(in) :: k

Return Value real(kind=dp)(minval(shape(A))-abs(k))

private module function diag_rsp(v) result(res)

Arguments

TypeIntentOptionalAttributesName
real(kind=sp), intent(in) :: v(:)

Return Value real(kind=sp)(size(v),size(v))

private module function diag_rsp_k(v, k) result(res)

Arguments

TypeIntentOptionalAttributesName
real(kind=sp), intent(in) :: v(:)
integer, intent(in) :: k

Return Value real(kind=sp)(size(v)+abs(k),size(v)+abs(k))

private module function diag_rsp_mat(A) result(res)

Arguments

TypeIntentOptionalAttributesName
real(kind=sp), intent(in) :: A(:,:)

Return Value real(kind=sp)(minval(shape(A)))

private module function diag_rsp_mat_k(A, k) result(res)

Arguments

TypeIntentOptionalAttributesName
real(kind=sp), intent(in) :: A(:,:)
integer, intent(in) :: k

Return Value real(kind=sp)(minval(shape(A))-abs(k))