diag Interface

public interface diag

Module Procedures

private pure function ddiag(x) result(A)

Arguments

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

Return Value real(kind=8), allocatable, (:,:)

private pure function zdiag(x) result(A)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in)			::	x(:)

Return Value complex(kind=8), allocatable, (:,:)