r8vec_print Subroutine

public subroutine r8vec_print(n, a, title)

R8VEC_PRINT prints an R8VEC.

Arguments

Type IntentOptional Attributes Name
integer(kind=4) :: n
real(kind=8) :: a(n)
character(len=*) :: title

Called by

proc~~r8vec_print~~CalledByGraph proc~r8vec_print r8vec_print proc~chkder_test chkder_test proc~chkder_test->proc~r8vec_print proc~hybrd1_test hybrd1_test proc~hybrd1_test->proc~r8vec_print proc~hybrj1_test hybrj1_test proc~hybrj1_test->proc~r8vec_print proc~lmder1_2_test lmder1_2_test proc~lmder1_2_test->proc~r8vec_print proc~lmder1_test lmder1_test proc~lmder1_test->proc~r8vec_print proc~lmdif1_2_test lmdif1_2_test proc~lmdif1_2_test->proc~r8vec_print proc~lmdif1_test lmdif1_test proc~lmdif1_test->proc~r8vec_print proc~lmstr1_2_test lmstr1_2_test proc~lmstr1_2_test->proc~r8vec_print proc~lmstr1_test lmstr1_test proc~lmstr1_test->proc~r8vec_print program~test_minpack test_minpack program~test_minpack->proc~chkder_test program~test_minpack->proc~hybrd1_test program~test_minpack->proc~hybrj1_test program~test_minpack->proc~lmder1_2_test program~test_minpack->proc~lmder1_test program~test_minpack->proc~lmdif1_2_test program~test_minpack->proc~lmdif1_test program~test_minpack->proc~lmstr1_2_test program~test_minpack->proc~lmstr1_test

Source Code

subroutine r8vec_print ( n, a, title )

!*****************************************************************************80
!
!! R8VEC_PRINT prints an R8VEC.
!
!  Discussion:
!
!    An R8VEC is a vector of R8's.
!
!  Licensing:
!
!    This code may freely be copied, modified, and used for any purpose.
!
!  Modified:
!
!    22 August 2000
!
!  Author:
!
!    John Burkardt
!
!  Parameters:
!
!    Input, integer ( kind = 4 ) N, the number of components of the vector.
!
!    Input, real ( kind = 8 ) A(N), the vector to be printed.
!
!    Input, character ( len = * ) TITLE, a title.
!
  implicit none

  integer ( kind = 4 ) n

  real ( kind = 8 ) a(n)
  integer ( kind = 4 ) i
  character ( len = * ) title

  write ( *, '(a)' ) ' '
  write ( *, '(a)' ) trim ( title )
  write ( *, '(a)' ) ' '
  do i = 1, n
    write ( *, '(2x,i8,2x,g16.8)' ) i, a(i)
  end do

  return
endsubroutine r8vec_print