r8mat_transpose_print_some Subroutine

subroutine r8mat_transpose_print_some(m, n, a, ilo, jlo, ihi, jhi, title)

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

R8MAT_TRANSPOSE_PRINT_SOME prints some of an R8MAT, transposed.

Arguments

Type IntentOptional Attributes Name
integer(kind=4) :: m
integer(kind=4) :: n
real(kind=8) :: a(m,n)
integer(kind=4) :: ilo
integer(kind=4) :: jlo
integer(kind=4) :: ihi
integer(kind=4) :: jhi
character(len=*) :: title

Variables

Type Visibility Attributes Name Initial
character(len=14), public :: ctemp(incx)
integer(kind=4), public :: i
integer(kind=4), public :: i2
integer(kind=4), public :: i2hi
integer(kind=4), public :: i2lo
integer(kind=4), public :: inc
integer(kind=4), public, parameter :: incx = 5
integer(kind=4), public :: j
integer(kind=4), public :: j2hi
integer(kind=4), public :: j2lo