outerprod Function

public function outerprod(a, b) result(outerprod_d)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in), dimension(:) :: a
real(kind=8), intent(in), dimension(:) :: b

Return Value real(kind=8), dimension(size(a),size(b))


Called by

proc~~outerprod~~CalledByGraph proc~outerprod outerprod proc~broyden1~2 broyden1 proc~broyden1~2->proc~outerprod proc~qrdcmp qrdcmp proc~broyden1~2->proc~qrdcmp proc~qrdcmp->proc~outerprod

Source Code

  function outerprod(a,b) result(outerprod_d)
    real(8), dimension(:), intent(in)      :: a,b
    real(8), 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