diag Interface

public interface diag

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


Contents


Functions

public function diag_cdp(v) result(res)

Arguments

Type IntentOptional AttributesName
complex(kind=dp), intent(in) :: v(:)

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

public function diag_cdp_k(v, k) result(res)

Arguments

Type IntentOptional AttributesName
complex(kind=dp), intent(in) :: v(:)
integer, intent(in) :: k

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

public function diag_cdp_mat(A) result(res)

Arguments

Type IntentOptional AttributesName
complex(kind=dp), intent(in) :: A(:,:)

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

public function diag_cdp_mat_k(A, k) result(res)

Arguments

Type IntentOptional AttributesName
complex(kind=dp), intent(in) :: A(:,:)
integer, intent(in) :: k

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

public function diag_cqp(v) result(res)

Arguments

Type IntentOptional AttributesName
complex(kind=qp), intent(in) :: v(:)

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

public function diag_cqp_k(v, k) result(res)

Arguments

Type IntentOptional AttributesName
complex(kind=qp), intent(in) :: v(:)
integer, intent(in) :: k

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

public function diag_cqp_mat(A) result(res)

Arguments

Type IntentOptional AttributesName
complex(kind=qp), intent(in) :: A(:,:)

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

public function diag_cqp_mat_k(A, k) result(res)

Arguments

Type IntentOptional AttributesName
complex(kind=qp), intent(in) :: A(:,:)
integer, intent(in) :: k

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

public function diag_csp(v) result(res)

Arguments

Type IntentOptional AttributesName
complex(kind=sp), intent(in) :: v(:)

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

public function diag_csp_k(v, k) result(res)

Arguments

Type IntentOptional AttributesName
complex(kind=sp), intent(in) :: v(:)
integer, intent(in) :: k

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

public function diag_csp_mat(A) result(res)

Arguments

Type IntentOptional AttributesName
complex(kind=sp), intent(in) :: A(:,:)

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

public function diag_csp_mat_k(A, k) result(res)

Arguments

Type IntentOptional AttributesName
complex(kind=sp), intent(in) :: A(:,:)
integer, intent(in) :: k

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

public function diag_iint16(v) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int16), intent(in) :: v(:)

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

public function diag_iint16_k(v, k) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int16), intent(in) :: v(:)
integer, intent(in) :: k

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

public function diag_iint16_mat(A) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int16), intent(in) :: A(:,:)

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

public function diag_iint16_mat_k(A, k) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int16), intent(in) :: A(:,:)
integer, intent(in) :: k

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

public function diag_iint32(v) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int32), intent(in) :: v(:)

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

public function diag_iint32_k(v, k) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int32), intent(in) :: v(:)
integer, intent(in) :: k

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

public function diag_iint32_mat(A) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int32), intent(in) :: A(:,:)

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

public function diag_iint32_mat_k(A, k) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int32), intent(in) :: A(:,:)
integer, intent(in) :: k

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

public function diag_iint64(v) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int64), intent(in) :: v(:)

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

public function diag_iint64_k(v, k) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int64), intent(in) :: v(:)
integer, intent(in) :: k

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

public function diag_iint64_mat(A) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int64), intent(in) :: A(:,:)

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

public function diag_iint64_mat_k(A, k) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int64), intent(in) :: A(:,:)
integer, intent(in) :: k

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

public function diag_iint8(v) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int8), intent(in) :: v(:)

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

public function diag_iint8_k(v, k) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int8), intent(in) :: v(:)
integer, intent(in) :: k

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

public function diag_iint8_mat(A) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int8), intent(in) :: A(:,:)

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

public function diag_iint8_mat_k(A, k) result(res)

Arguments

Type IntentOptional AttributesName
integer(kind=int8), intent(in) :: A(:,:)
integer, intent(in) :: k

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

public function diag_rdp(v) result(res)

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(in) :: v(:)

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

public function diag_rdp_k(v, k) result(res)

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(in) :: v(:)
integer, intent(in) :: k

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

public function diag_rdp_mat(A) result(res)

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(in) :: A(:,:)

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

public function diag_rdp_mat_k(A, k) result(res)

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(in) :: A(:,:)
integer, intent(in) :: k

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

public function diag_rqp(v) result(res)

Arguments

Type IntentOptional AttributesName
real(kind=qp), intent(in) :: v(:)

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

public function diag_rqp_k(v, k) result(res)

Arguments

Type IntentOptional AttributesName
real(kind=qp), intent(in) :: v(:)
integer, intent(in) :: k

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

public function diag_rqp_mat(A) result(res)

Arguments

Type IntentOptional AttributesName
real(kind=qp), intent(in) :: A(:,:)

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

public function diag_rqp_mat_k(A, k) result(res)

Arguments

Type IntentOptional AttributesName
real(kind=qp), intent(in) :: A(:,:)
integer, intent(in) :: k

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

public function diag_rsp(v) result(res)

Arguments

Type IntentOptional AttributesName
real(kind=sp), intent(in) :: v(:)

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

public function diag_rsp_k(v, k) result(res)

Arguments

Type IntentOptional AttributesName
real(kind=sp), intent(in) :: v(:)
integer, intent(in) :: k

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

public function diag_rsp_mat(A) result(res)

Arguments

Type IntentOptional AttributesName
real(kind=sp), intent(in) :: A(:,:)

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

public function diag_rsp_mat_k(A, k) result(res)

Arguments

Type IntentOptional AttributesName
real(kind=sp), intent(in) :: A(:,:)
integer, intent(in) :: k

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