Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex(kind=8), | intent(in), | dimension(:) | :: | a | ||
complex(kind=8), | intent(in), | dimension(:) | :: | b |
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