Commit 4c2d3483 authored by Thomas Witkowski's avatar Thomas Witkowski
Browse files

Fix some bugs which makes petsc assembling a little bit slow.

parent 6305e8f2
......@@ -44,7 +44,7 @@ available_tags=" CXX F77"
# ### BEGIN LIBTOOL CONFIG
# Libtool was configured on host deimos101:
# Libtool was configured on host deimos104:
# Shell to use when invoking shell scripts.
SHELL="/bin/sh"
......@@ -6760,7 +6760,7 @@ build_old_libs=`case $build_libtool_libs in yes) $echo no;; *) $echo yes;; esac`
# End:
# ### BEGIN LIBTOOL TAG CONFIG: CXX
# Libtool was configured on host deimos101:
# Libtool was configured on host deimos104:
# Shell to use when invoking shell scripts.
SHELL="/bin/sh"
......@@ -7065,7 +7065,7 @@ include_expsyms=""
# ### BEGIN LIBTOOL TAG CONFIG: F77
# Libtool was configured on host deimos101:
# Libtool was configured on host deimos104:
# Shell to use when invoking shell scripts.
SHELL="/bin/sh"
......
......@@ -150,11 +150,7 @@ namespace AMDiS {
void ParallelDomainBase::exitParallelization(AdaptInfo *adaptInfo)
{
VecDestroy(petscRhsVec);
VecDestroy(petscSolVec);
VecDestroy(petscTmpVec);
}
{}
void ParallelDomainBase::updateDofAdmins()
......@@ -396,6 +392,7 @@ namespace AMDiS {
for (RankToDofContainer::iterator it = recvDofs.begin();
it != recvDofs.end(); ++it) {
int nSend = sendMatrixEntry[it->first].size();
request[requestCounter++] = mpiComm.Isend(&nSend, 1, MPI_INT, it->first, 0);
if (nSend > 0) {
......@@ -475,6 +472,8 @@ namespace AMDiS {
if (c < rstart * nComponents ||
c >= rstart * nComponents + nRankRows)
o_nnz[r]++;
else
d_nnz[r]++;
}
delete [] recvBuffers[i];
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment