masked_swap_rv Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. masked_swap_rv

public subroutine masked_swap_rv(a, b, mask)

Arguments

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

Contents

Source Code

masked_swap_rv

Source Code

	SUBROUTINE masked_swap_rv(a,b,mask)
	REAL(SP), DIMENSION(:), INTENT(INOUT) :: a,b
	LOGICAL(LGT), DIMENSION(:), INTENT(IN) :: mask
	REAL(SP), DIMENSION(size(a)) :: swp
	where (mask)
		swp=a
		a=b
		b=swp
	end where
	END SUBROUTINE masked_swap_rv