GEOMPACK
Source Files
Modules
Procedures
r8vec_swap
Subroutine
11 statements
Source File
r8vec_swap.f90
r8vec_swap
Contents
Variables
a3
subroutine r8vec_swap(n, a1, a2)
*
*
*
*
*
*
*
*
*
*
*
*80
R8VEC_SWAP swaps the entries of two R8VEC's.
Arguments
Type
Intent
Optional
Attributes
Name
integer(kind=4)
::
n
real(kind=8)
::
a1
(n)
real(kind=8)
::
a2
(n)
Variables
Type
Visibility
Attributes
Name
Initial
real(kind=8),
public
::
a3
(n)