r8mat_print Subroutine

  1. mod_misc.f90
  2. mod_misc
  3. r8mat_print

public subroutine r8mat_print(m, n, a, title)

R8MAT_PRINT prints an R8MAT.

Discussion:

An R8MAT is a two dimensional matrix of double precision real values.

Licensing:

This code is distributed under the GNU LGPL license.

Modified:

12 September 2004

Author:

John Burkardt

Parameters:

Input, integer M, the number of rows in A.

Input, integer N, the number of columns in A.

Input, real ( kind = 8 ) A(M,N), the matrix.

Input, character ( len = * ) TITLE, a title to be printed.

Arguments

Type IntentOptional AttributesName
integer(kind=4) :: m
integer(kind=4) :: n
real(kind=8) :: a(m,n)
character(len=*) :: title

Calls

proc~~r8mat_print~~CallsGraph proc~r8mat_print r8mat_print proc~r8mat_print_some r8mat_print_some proc~r8mat_print->proc~r8mat_print_some

Contents

Source Code

r8mat_print

Source Code

    subroutine r8mat_print ( m, n, a, title )
        ! **************************************************************************
        !
        !* R8MAT_PRINT prints an R8MAT.
        !
        !  Discussion:
        !
        !    An R8MAT is a two dimensional matrix of double precision real values.
        !
        !  Licensing:
        !
        !    This code is distributed under the GNU LGPL license.
        !
        !  Modified:
        !
        !    12 September 2004
        !
        !  Author:
        !
        !    John Burkardt
        !
        !  Parameters:
        !
        !    Input, integer M, the number of rows in A.
        !
        !    Input, integer N, the number of columns in A.
        !
        !    Input, real ( kind = 8 ) A(M,N), the matrix.
        !
        !    Input, character ( len = * ) TITLE, a title to be printed.

        implicit none

        integer ( kind = 4 ) m
        integer ( kind = 4 ) n

        real ( kind = 8 ) a(m,n)
        character ( len = * ) title

        call r8mat_print_some ( m, n, a, 1, 1, m, n, title )

        return
    end subroutine r8mat_print