a bit different way to handle trivial D on lufact

This commit is contained in:
Jukka Aho
2016-11-30 16:19:22 +02:00
parent a4671f1ebd
commit 2cb856e21c
+5 -1
View File
@@ -292,7 +292,11 @@ function solve!(solver::Solver, K, C1, C2, D, f, g, u, la, ::Type{Val{2}})
# construct global system Ax = b and solve using lufact (UMFPACK)
A = [K C1'; C2 D]
b = [f; g]
x = lufact(A) \ full(b)
nz1 = get_nonzero_rows(A)
nz2 = get_nonzero_columns(A)
dim = size(A, 1)
x = zeros(dim)
x[nz1] = lufact(A[nz1,nz2]) \ full(b[nz1])
u[:] = x[1:solver.ndofs]
la[:] = x[solver.ndofs+1:end]
return true