RSWAP Subroutine

  1. eigensystem.f90
  2. eigensystem
  3. RSWAP

public subroutine RSWAP(a, b)

Swaps values a and b

Arguments

Type IntentOptional AttributesName
real(kind=double) :: a
real(kind=double) :: b

Called by

proc~~rswap~~CalledByGraph proc~rswap RSWAP proc~comabs comabs proc~comabs->proc~rswap

Contents

Source Code

RSWAP

Source Code

  subroutine RSWAP(a,b)
    !+ Swaps values `a` and `b`
    real(double) :: a,b, t
    t=a; a=b; b=t
  end subroutine RSWAP