outerand Function

  1. special_fun_modules.f90
  2. nrutil
  3. outerand

public function outerand(a, b)

Arguments

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

Return Value logical(kind=LGT), DIMENSION(size(a),size(b))


Contents

Source Code

outerand

Source Code

	FUNCTION outerand(a,b)
	LOGICAL(LGT), DIMENSION(:), INTENT(IN) :: a,b
	LOGICAL(LGT), DIMENSION(size(a),size(b)) :: outerand
	outerand = spread(a,dim=2,ncopies=size(b)) .and. &
		spread(b,dim=1,ncopies=size(a))
	END FUNCTION outerand