outerprod_d Function

  1. special_fun_modules.f90
  2. nrutil
  3. outerprod_d

public function outerprod_d(a, b)

Arguments

Type IntentOptional AttributesName
real(kind=DP), intent(in), DIMENSION(:):: a
real(kind=DP), intent(in), DIMENSION(:):: b

Return Value real(kind=DP), DIMENSION(size(a),size(b))


Contents

Source Code

outerprod_d

Source Code

	FUNCTION outerprod_d(a,b)
	REAL(DP), DIMENSION(:), INTENT(IN) :: a,b
	REAL(DP), DIMENSION(size(a),size(b)) :: outerprod_d
	outerprod_d = spread(a,dim=2,ncopies=size(b)) * &
		spread(b,dim=1,ncopies=size(a))
	END FUNCTION outerprod_d