GEOMPACK
Source Files
Modules
Procedures
r8mat_transpose_print
Subroutine
9 statements
Source File
r8mat_transpose_print.f90
r8mat_transpose_print
Contents
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