identity Function

public pure function identity(n) result(R)

Constructs an n×n identity matrix.

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n	Matrix dimension

Return Value real(kind=wp), dimension(n, n)

Identity matrix [n×n]