Skip to content

Commit a27ebf8

Browse files
jalveszCopilot
andauthored
Update src/lapack_extended/stdlib_extended_lapack.fypp
Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>
1 parent 608f8ad commit a27ebf8

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/lapack_extended/stdlib_extended_lapack.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -71,7 +71,7 @@ contains
7171
b(1_${ik}$, j) = b(1_${ik}$, j) + alpha * temp
7272
do i = 2, n - 1
7373
temp = du(i - 1) * x(i - 1, j) + d(i) * x(i, j) + dl(i) * x(i + 1, j)
74-
b(i, j) = b (i, j) + alpha * temp
74+
b(i, j) = b(i, j) + alpha * temp
7575
end do
7676
temp = du(n - 1) * x(n - 1, j) + d(n) * x(n, j)
7777
b(n, j) = b(n, j) + alpha * temp

0 commit comments

Comments
 (0)