identity Subroutine

public subroutine identity(mat_eye)

Creates an identity matrix of size n x n.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(out),		dimension(:,:)	::	mat_eye	(n,n) array