masked_swap_rs Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. masked_swap_rs

public subroutine masked_swap_rs(a, b, mask)

Arguments

Type IntentOptional AttributesName
real(kind=SP), intent(inout) :: a
real(kind=SP), intent(inout) :: b
logical(kind=LGT), intent(in) :: mask

Contents

Source Code

masked_swap_rs

Source Code

	SUBROUTINE masked_swap_rs(a,b,mask)
	REAL(SP), INTENT(INOUT) :: a,b
	LOGICAL(LGT), INTENT(IN) :: mask
	REAL(SP) :: swp
	if (mask) then
		swp=a
		a=b
		b=swp
	end if
	END SUBROUTINE masked_swap_rs