UpperTriangularMatrix Function

public function UpperTriangularMatrix(CRS_val, CRS_col, CRS_rowptr) result(UP)

$OMP atomic

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	CRS_val(:)
integer(kind=int32),	intent(in)			::	CRS_col(:)
integer(kind=int64),	intent(in)			::	CRS_rowptr(:)

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