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
AGULLO Emmanuel
Chameleon
Commits
b86e73ef
Commit
b86e73ef
authored
Jan 22, 2018
by
Mathieu Faverge
Browse files
Correct Dptr calls
parent
bafbfed5
Changes
22
Hide whitespace changes
Inline
Side-by-side
compute/zgelqf.c
View file @
b86e73ef
...
...
@@ -293,7 +293,7 @@ int MORSE_zgelqf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T,
morse_pzgelqfrh
(
A
,
T
,
Dptr
,
MORSE_RHBLK
,
sequence
,
request
);
}
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgelqf_param.c
View file @
b86e73ef
...
...
@@ -289,7 +289,7 @@ int MORSE_zgelqf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
morse_pzgelqf_param
(
qrtree
,
A
,
TS
,
TT
,
Dptr
,
sequence
,
request
);
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgelqs.c
View file @
b86e73ef
...
...
@@ -333,7 +333,7 @@ int MORSE_zgelqs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
}
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgelqs_param.c
View file @
b86e73ef
...
...
@@ -336,7 +336,7 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
morse_pzunmlq_param
(
qrtree
,
MorseLeft
,
MorseConjTrans
,
A
,
B
,
TS
,
TT
,
Dptr
,
sequence
,
request
);
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgels.c
View file @
b86e73ef
...
...
@@ -429,7 +429,7 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A,
free
(
subB
);
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgels_param.c
View file @
b86e73ef
...
...
@@ -417,7 +417,7 @@ int MORSE_zgels_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum trans,
free
(
subB
);
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgeqrf.c
View file @
b86e73ef
...
...
@@ -292,7 +292,7 @@ int MORSE_zgeqrf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T,
morse_pzgeqrfrh
(
A
,
T
,
Dptr
,
MORSE_RHBLK
,
sequence
,
request
);
}
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgeqrf_param.c
View file @
b86e73ef
...
...
@@ -299,7 +299,7 @@ int MORSE_zgeqrf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
morse_pzgeqrf_param
(
qrtree
,
A
,
TS
,
TT
,
Dptr
,
sequence
,
request
);
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgeqrs.c
View file @
b86e73ef
...
...
@@ -329,7 +329,7 @@ int MORSE_zgeqrs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
free
(
subB
);
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgeqrs_param.c
View file @
b86e73ef
...
...
@@ -326,7 +326,7 @@ int MORSE_zgeqrs_param_Tile_Async(const libhqr_tree_t *qrtree,
free
(
subB
);
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zgesvd.c
View file @
b86e73ef
...
...
@@ -627,7 +627,7 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
morse_desc_mat_free
(
&
descVT
);
free
(
E
);
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zheevd.c
View file @
b86e73ef
...
...
@@ -530,7 +530,7 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
free
(
E
);
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zhetrd.c
View file @
b86e73ef
...
...
@@ -430,7 +430,7 @@ int MORSE_zhetrd_Tile_Async(MORSE_enum jobz,
}
#endif
/* !defined(CHAMELEON_SIMULATION) */
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
morse_ztile2lap_cleanup
(
morse
,
&
descABl
,
&
descABt
);
(
void
)
D
;
...
...
compute/ztpgqrt.c
View file @
b86e73ef
...
...
@@ -407,7 +407,7 @@ int MORSE_ztpgqrt_Tile_Async( int L,
/* morse_pztpgqrtrh(Q1, T, MORSE_RHBLK, sequence, request); */
/* } */
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zunglq.c
View file @
b86e73ef
...
...
@@ -314,7 +314,7 @@ int MORSE_zunglq_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q,
}
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zunglq_param.c
View file @
b86e73ef
...
...
@@ -309,7 +309,7 @@ int MORSE_zunglq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
morse_pzunglq_param
(
qrtree
,
A
,
Q
,
TS
,
TT
,
Dptr
,
sequence
,
request
);
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zungqr.c
View file @
b86e73ef
...
...
@@ -311,7 +311,7 @@ int MORSE_zungqr_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q,
}
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zungqr_param.c
View file @
b86e73ef
...
...
@@ -307,7 +307,7 @@ int MORSE_zungqr_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
morse_pzungqr_param
(
qrtree
,
A
,
Q
,
TS
,
TT
,
Dptr
,
sequence
,
request
);
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zunmlq.c
View file @
b86e73ef
...
...
@@ -376,7 +376,7 @@ int MORSE_zunmlq_Tile_Async(MORSE_enum side, MORSE_enum trans,
morse_pzunmlqrh
(
side
,
trans
,
A
,
C
,
T
,
Dptr
,
MORSE_RHBLK
,
sequence
,
request
);
}
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
compute/zunmlq_param.c
View file @
b86e73ef
...
...
@@ -371,7 +371,7 @@ int MORSE_zunmlq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum side,
morse_pzunmlq_param
(
qrtree
,
side
,
trans
,
A
,
C
,
TS
,
TT
,
Dptr
,
sequence
,
request
);
if
(
Dptr
!=
NULL
)
{
morse_
ztile2lap_cleanup
(
morse
,
&
Dptrl
,
&
Dptrt
);
morse_
desc_mat_free
(
Dptr
);
}
(
void
)
D
;
return
MORSE_SUCCESS
;
...
...
Prev
1
2
Next
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