identity_matrix Function

public function identity_matrix(n) result(mat)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int32),	intent(in)			::	n

Return Value real(kind=real64), (n,n)