RSWAP Subroutine

  1. eigensystem.f90
  2. eigensystem
  3. RSWAP

public subroutine RSWAP(a, b)

Swaps values a and b

Arguments

TypeIntentOptionalAttributesName
real(kind=double) :: a
real(kind=double) :: b

Called by

proc~~rswap~~CalledByGraph proc~rswap RSWAP proc~balance balance proc~balance->proc~rswap proc~balback balback proc~balback->proc~rswap proc~elmhes elmhes proc~elmhes->proc~rswap proc~comabs comabs proc~comabs->proc~rswap proc~eigen eigen proc~eigen->proc~balance proc~eigen->proc~balback proc~eigen->proc~elmhes proc~colrad colrad proc~colrad->proc~eigen proc~ndmc ndmc proc~ndmc->proc~colrad proc~fida_weights_los fida_weights_los proc~fida_weights_los->proc~colrad proc~dcx dcx proc~dcx->proc~colrad proc~fida_f fida_f proc~fida_f->proc~colrad proc~pfida_f pfida_f proc~pfida_f->proc~colrad proc~read_equilibrium read_equilibrium proc~read_equilibrium->proc~colrad proc~attenuate attenuate proc~attenuate->proc~colrad proc~halo halo proc~halo->proc~colrad proc~pfida_mc pfida_mc proc~pfida_mc->proc~colrad proc~fida_weights_mc fida_weights_mc proc~fida_weights_mc->proc~colrad proc~fida_mc fida_mc proc~fida_mc->proc~colrad program~fidasim fidasim program~fidasim->proc~ndmc program~fidasim->proc~fida_weights_los program~fidasim->proc~dcx program~fidasim->proc~fida_f program~fidasim->proc~pfida_f program~fidasim->proc~read_equilibrium program~fidasim->proc~halo program~fidasim->proc~pfida_mc program~fidasim->proc~fida_weights_mc program~fidasim->proc~fida_mc proc~pnpa_mc pnpa_mc program~fidasim->proc~pnpa_mc proc~pnpa_f pnpa_f program~fidasim->proc~pnpa_f proc~npa_mc npa_mc program~fidasim->proc~npa_mc proc~npa_f npa_f program~fidasim->proc~npa_f proc~npa_weights npa_weights program~fidasim->proc~npa_weights proc~pnpa_mc->proc~attenuate proc~pnpa_f->proc~attenuate proc~npa_mc->proc~attenuate proc~npa_f->proc~attenuate proc~npa_weights->proc~attenuate

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