Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Kirill Terekhov
INMOST
Commits
5cbb6419
Commit
5cbb6419
authored
Dec 15, 2015
by
Alexander Danilov
Browse files
Solver: fix MPI problems
Call MPI_Init if needed, fix RowEntryType creation
parent
74b8024c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Source/Solver/solver.cpp
View file @
5cbb6419
...
...
@@ -907,6 +907,21 @@ namespace INMOST
#endif
#if defined(HAVE_SOLVER_K3BIILU2)
SolverInitializeK3biilu2
(
argc
,
argv
,
k3biilu2_database_file
.
c_str
());
#endif
#if defined(USE_MPI)
{
int
flag
=
0
;
int
ierr
=
0
;
MPI_Initialized
(
&
flag
);
if
(
!
flag
)
{
ierr
=
MPI_Init
(
argc
,
argv
);
if
(
ierr
!=
MPI_SUCCESS
)
{
std
::
cout
<<
__FILE__
<<
":"
<<
__LINE__
<<
"problem in MPI_Init"
<<
std
::
endl
;
}
}
}
#endif
Sparse
::
CreateRowEntryType
();
is_initialized
=
true
;
...
...
Source/Solver/sparse.cpp
View file @
5cbb6419
...
...
@@ -19,7 +19,7 @@ namespace INMOST
void
CreateRowEntryType
()
{
#if defined(USE_MPI)
if
(
HaveRowEntryType
()
)
if
(
!
HaveRowEntryType
()
)
{
int
ierr
;
MPI_Datatype
type
[
3
]
=
{
INMOST_MPI_DATA_ENUM_TYPE
,
INMOST_MPI_DATA_REAL_TYPE
,
MPI_UB
};
...
...
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