outerdiff_i Function

  1. special_fun_modules.f90
  2. nrutil
  3. outerdiff_i

public function outerdiff_i(a, b)

Arguments

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

Return Value integer(kind=I4B), DIMENSION(size(a),size(b))


Called by

proc~~outerdiff_i~~CalledByGraph proc~outerdiff_i outerdiff_i interface~outerdiff outerdiff interface~outerdiff->proc~outerdiff_i proc~upper_triangle upper_triangle proc~upper_triangle->interface~outerdiff proc~lower_triangle lower_triangle proc~lower_triangle->interface~outerdiff

Contents

Source Code

outerdiff_i

Source Code

	FUNCTION outerdiff_i(a,b)
	INTEGER(I4B), DIMENSION(:), INTENT(IN) :: a,b
	INTEGER(I4B), DIMENSION(size(a),size(b)) :: outerdiff_i
	outerdiff_i = spread(a,dim=2,ncopies=size(b)) - &
		spread(b,dim=1,ncopies=size(a))
	END FUNCTION outerdiff_i