swap_rv Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. swap_rv

public subroutine swap_rv(a, b)

Arguments

Type IntentOptional AttributesName
real(kind=SP), intent(inout), DIMENSION(:):: a
real(kind=SP), intent(inout), DIMENSION(:):: b

Called by

proc~~swap_rv~~CalledByGraph proc~swap_rv swap_rv interface~swap swap interface~swap->proc~swap_rv

Contents

Source Code

swap_rv

Source Code

	SUBROUTINE swap_rv(a,b)
	REAL(SP), DIMENSION(:), INTENT(INOUT) :: a,b
	REAL(SP), DIMENSION(SIZE(a)) :: dum
	dum=a
	a=b
	b=dum
	END SUBROUTINE swap_rv