check_max Subroutine

public subroutine check_max(ival, mx_val)

Check maximum value in each element of the matrix "a"

Arguments

Type	Intent	Optional	Attributes		Name
double precision,	intent(in)			::	ival(:)	Matrix A
double precision,	intent(out)			::	mx_val	Max value in A