diag Interface

public interface diag

diag creates diagonal matrix or get the diagonal of a matrix.

Contents

Functions

diag1_dp diag1_sp diag2_dp diag2_sp

Functions

private module function diag1_dp(A) result(diag)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in),		dimension(:, :)	::	A

Return Value real(kind=dp), dimension(:), allocatable

private module function diag1_sp(A) result(diag)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=sp),	intent(in),		dimension(:, :)	::	A

Return Value real(kind=sp), dimension(:), allocatable

private module function diag2_dp(x) result(diag)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in),		dimension(:)	::	x

Return Value real(kind=dp), dimension(:, :), allocatable

private module function diag2_sp(x) result(diag)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=sp),	intent(in),		dimension(:)	::	x

Return Value real(kind=sp), dimension(:, :), allocatable