digit_sum_csr Subroutine

public subroutine digit_sum_csr(mat, isum, jsum, valsum)

Calculates the digit sum of the csr matrix mat

Arguments

Type	Intent	Optional	Attributes		Name
type(csrmat_t),	intent(in)			::	mat	csr matrix
integer,	intent(out)			::	isum	sum over i index of matrix
integer,	intent(out)			::	jsum	sum over j index of matrix
real(kind=FP),	intent(out)			::	valsum	sum over values of matrix