Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
Backofen, Rainer
amdis
Commits
518c24d9
Commit
518c24d9
authored
Oct 18, 2012
by
Thomas Witkowski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
So on
parent
58a86bc4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
23 additions
and
0 deletions
+23
-0
AMDiS/src/parallel/PetscSolverFeti.cc
AMDiS/src/parallel/PetscSolverFeti.cc
+23
-0
No files found.
AMDiS/src/parallel/PetscSolverFeti.cc
View file @
518c24d9
...
...
@@ -677,6 +677,18 @@ namespace AMDiS {
MatAssemblyEnd
(
mat_lagrange
,
MAT_FINAL_ASSEMBLY
);
int
nZeroRows
=
PetscSolverFetiDebug
::
testZeroRows
(
mat_lagrange
);
int
m
,
n
;
MatGetSize
(
mat_lagrange
,
&
m
,
&
n
);
MSG
(
"Lagrange matrix has %d zero rows and global size of %d %d!
\n
"
,
nZeroRows
,
m
,
n
);
PetscViewer
petscView
;
PetscViewerBinaryOpen
(
PETSC_COMM_WORLD
,
"lagrange.mat"
,
FILE_MODE_WRITE
,
&
petscView
);
MatView
(
mat_lagrange
,
petscView
);
PetscViewerDestroy
(
&
petscView
);
// === If required, create \ref mat_lagrange_scaled ===
VecAssemblyBegin
(
vec_scale_lagrange
);
...
...
@@ -797,6 +809,11 @@ namespace AMDiS {
MatAssemblyBegin
(
mat_augmented_lagrange
,
MAT_FINAL_ASSEMBLY
);
MatAssemblyEnd
(
mat_augmented_lagrange
,
MAT_FINAL_ASSEMBLY
);
int
nZeroRows
=
PetscSolverFetiDebug
::
testZeroRows
(
mat_augmented_lagrange
);
int
m
,
n
;
MatGetSize
(
mat_augmented_lagrange
,
&
m
,
&
n
);
MSG
(
"Augmented lagrange matrix has %d zero rows and global size of %d %d!
\n
"
,
nZeroRows
,
m
,
n
);
if
(
printTimings
)
{
MPI
::
COMM_WORLD
.
Barrier
();
MSG
(
"FETI-DP timing 05a: %.5f seconds (creation of augmented lagrange constraint matrix)
\n
"
,
...
...
@@ -994,8 +1011,13 @@ namespace AMDiS {
// matTmp = inv(A_BB) trans(J) trans(Q)
Mat
qT
,
jTqT
;
MatTranspose
(
mat_augmented_lagrange
,
MAT_INITIAL_MATRIX
,
&
qT
);
Mat
jT
;
MSG
(
"START COMPUTING MAT TRANS
\n
"
);
MatTranspose
(
mat_lagrange
,
MAT_INITIAL_MATRIX
,
&
jT
);
MSG
(
"DONE
\n
"
);
MatTransposeMatMult
(
mat_lagrange
,
qT
,
MAT_INITIAL_MATRIX
,
PETSC_DEFAULT
,
&
jTqT
);
MSG
(
"DONE WITH THIS!
\n
"
);
petsc_helper
::
blockMatMatSolve
(
subdomain
->
getSolver
(),
jTqT
,
matTmp
);
MatDestroy
(
&
qT
);
MatDestroy
(
&
jTqT
);
...
...
@@ -1024,6 +1046,7 @@ namespace AMDiS {
MatDestroy
(
&
mat10
);
MatDestroy
(
&
mat11
);
MatDestroy
(
&
matTmp
);
MSG
(
"FINISHED!
\n
"
);
}
else
{
Mat
tmp
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment