masked_swap_rm Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. masked_swap_rm

public subroutine masked_swap_rm(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_rm

Source Code

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