swap_i Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. swap_i

public subroutine swap_i(a, b)

Arguments

Type IntentOptional AttributesName
integer(kind=I4B), intent(inout) :: a
integer(kind=I4B), intent(inout) :: b

Called by

proc~~swap_i~~CalledByGraph proc~swap_i swap_i interface~swap swap interface~swap->proc~swap_i

Contents

Source Code

swap_i

Source Code

	SUBROUTINE swap_i(a,b)
	INTEGER(I4B), INTENT(INOUT) :: a,b
	INTEGER(I4B) :: dum
	dum=a
	a=b
	b=dum
	END SUBROUTINE swap_i