r8mat_transpose_print Subroutine

subroutine r8mat_transpose_print(m, n, a, title)

************80

R8MAT_TRANSPOSE_PRINT prints an R8MAT, transposed.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	m
integer(kind=4)				::	n
real(kind=8)				::	a(m,n)
character(len=*)				::	title