We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 64016f4 commit 89f98efCopy full SHA for 89f98ef
src/stdlib_linalg_outer_product.fypp
@@ -11,7 +11,7 @@ contains
11
${t1}$, intent(in) :: u(:), v(:)
12
${t1}$ :: res(size(u),size(v))
13
integer :: col
14
- do col=1,size(v)
+ do col = 1, size(v)
15
res(:,col) = v(col) * u
16
end do
17
end function outer_product_${t1[0]}$${k1}$
0 commit comments