Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
01e7863c
Commit
01e7863c
authored
Jul 13, 2018
by
Pavel Kus
Browse files
fixing a memmory leak in cannons C source
parent
f4f7a7eb
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/elpa_generalized/cannon_forw_real_double.c
View file @
01e7863c
...
@@ -888,6 +888,7 @@ void d_cannons_reduction(double* A, double* U, int np_rows, int np_cols, int my_
...
@@ -888,6 +888,7 @@ void d_cannons_reduction(double* A, double* U, int np_rows, int np_cols, int my_
pdtran_
(
&
na
,
&
na
,
&
done
,
Res
,
&
one
,
&
one
,
a_desc
,
&
dzero
,
M
,
&
one
,
&
one
,
a_desc
);
pdtran_
(
&
na
,
&
na
,
&
done
,
Res
,
&
one
,
&
one
,
a_desc
,
&
dzero
,
M
,
&
one
,
&
one
,
a_desc
);
pdlacpy_
(
"U"
,
&
na
,
&
na
,
M
,
&
one
,
&
one
,
a_desc
,
Res
,
&
one
,
&
one
,
a_desc
);
pdlacpy_
(
"U"
,
&
na
,
&
na
,
M
,
&
one
,
&
one
,
a_desc
,
Res
,
&
one
,
&
one
,
a_desc
);
free
(
Buf_to_send_A
);
free
(
Buf_to_send_A
);
free
(
Buf_to_receive_A
);
free
(
Buf_to_receive_A
);
free
(
Buf_to_send_U
);
free
(
Buf_to_send_U
);
...
@@ -897,6 +898,7 @@ void d_cannons_reduction(double* A, double* U, int np_rows, int np_cols, int my_
...
@@ -897,6 +898,7 @@ void d_cannons_reduction(double* A, double* U, int np_rows, int np_cols, int my_
if
(
ratio
!=
1
)
if
(
ratio
!=
1
)
free
(
Buf_A
);
free
(
Buf_A
);
free
(
U_stored
);
free
(
U_stored
);
free
(
SizesU
);
}
}
#endif
#endif
...
...
Write
Preview
Supports
Markdown
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