outerprod_c Function

function outerprod_c(a, b) result(outerprod)

Arguments

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

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


Source Code

function outerprod_c(a,b) result(outerprod)
  complex(8), dimension(:), intent(in)   :: a,b
  complex(8), dimension(size(a),size(b)) :: outerprod
  outerprod = spread(a,dim=2,ncopies=size(b)) * &
       spread(b,dim=1,ncopies=size(a))
end function outerprod_c