print_matrix Subroutine

public subroutine print_matrix(a)

Print arbitrary N*M matrix

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=long),	intent(in),		dimension(:, :)	::	a