Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=8), | intent(in), | dimension(:) | :: | a | ||
real(kind=8), | intent(in), | dimension(:) | :: | b |
function outerprod_d(a,b) result(outerprod) real(8), dimension(:), intent(in) :: a,b real(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_d