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
4fd458c7
Commit
4fd458c7
authored
Jan 22, 2018
by
Mathieu Faverge
Browse files
Keep converting the lapack interface function
parent
03b4a34f
Changes
57
Hide whitespace changes
Inline
Side-by-side
compute/zgeadd.c
View file @
4fd458c7
...
...
@@ -153,32 +153,21 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/*
Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
An
,
Am
,
An
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else { */
/* morse_ziplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, */
/* sequence, &request); */
/* morse_ziplap2tile( descB, B, NB, NB, LDB, N, 0, 0, M, N, */
/* sequence, &request); */
/* } */
/* Call the tile interface */
MORSE_zgeadd_Tile_Async
(
trans
,
alpha
,
&
descA
,
beta
,
&
descB
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/*
Submit the matrix conversion
*/
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
N
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* } else { */
/* morse_ziptile2lap( descA, A, NB, NB, LDA, An, sequence, &request); */
/* morse_ziptile2lap( descB, B, NB, NB, LDB, N, sequence, &request); */
/* morse_dynamic_sync(); */
/* } */
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgelqf.c
View file @
4fd458c7
...
...
@@ -122,25 +122,17 @@ int MORSE_zgelqf(int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgelqf_Tile_Async
(
&
descA
,
descT
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgelqf_param.c
View file @
4fd458c7
...
...
@@ -119,25 +119,17 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgelqf_param_Tile_Async
(
qrtree
,
&
descA
,
descTS
,
descTT
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgelqs.c
View file @
4fd458c7
...
...
@@ -137,32 +137,21 @@ int MORSE_zgelqs(int M, int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgelqs_Tile_Async
(
&
descA
,
descT
,
&
descB
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgelqs_param.c
View file @
4fd458c7
...
...
@@ -139,32 +139,21 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgelqs_param_Tile_Async
(
qrtree
,
&
descA
,
descTS
,
descTT
,
&
descB
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgels.c
View file @
4fd458c7
...
...
@@ -171,47 +171,30 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/* Submit the matrix conversion */
if
(
M
>=
N
)
{
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
M
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS,*/
/* sequence, &request);*/
/* }*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
M
,
NRHS
,
sequence
,
&
request
);
}
else
{
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Submit the matrix conversion */
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
}
/* Call the tile interface */
MORSE_zgels_Tile_Async
(
MorseNoTrans
,
&
descA
,
descT
,
&
descB
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
return
status
;
...
...
compute/zgels_param.c
View file @
4fd458c7
...
...
@@ -173,46 +173,28 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
morse_sequence_create
(
morse
,
&
sequence
);
/* Submit the matrix conversion */
if
(
M
>=
N
)
{
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
M
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS,*/
/* sequence, &request);*/
/* }*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
M
,
NRHS
,
sequence
,
&
request
);
}
else
{
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
}
/* Call the tile interface */
MORSE_zgels_param_Tile_Async
(
qrtree
,
MorseNoTrans
,
&
descA
,
descTS
,
descTT
,
&
descB
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/*
Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgemm.c
View file @
4fd458c7
...
...
@@ -210,38 +210,24 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
An
,
Am
,
An
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
Bn
,
Bm
,
Bn
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descCl
,
&
descCt
,
MorseUpperLower
,
C
,
NB
,
NB
,
LDC
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, */
/* sequence, &request);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, Bn, 0, 0, Bm, Bn, */
/* sequence, &request);*/
/* morse_ziplap2tile( descC, C, NB, NB, LDC, N, 0, 0, M, N, */
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgemm_Tile_Async
(
transA
,
transB
,
alpha
,
&
descA
,
&
descB
,
beta
,
&
descC
,
sequence
,
&
request
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
morse_desc_mat_free
(
&
descC
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, An, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, Bn, sequence, &request);*/
/* morse_ziptile2lap( descC, C, NB, NB, LDC, N, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
/* Submit the matrix conversion */
morse_zooptile2lap
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
morse_desc_mat_free
(
&
descC
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgeqrf.c
View file @
4fd458c7
...
...
@@ -121,25 +121,17 @@ int MORSE_zgeqrf(int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgeqrf_Tile_Async
(
&
descA
,
descT
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgeqrf_param.c
View file @
4fd458c7
...
...
@@ -124,25 +124,17 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgeqrf_param_Tile_Async
(
qrtree
,
&
descA
,
descTS
,
descTT
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgeqrs.c
View file @
4fd458c7
...
...
@@ -137,32 +137,21 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
M
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgeqrs_Tile_Async
(
&
descA
,
descT
,
&
descB
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgeqrs_param.c
View file @
4fd458c7
...
...
@@ -132,32 +132,21 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
M
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgeqrs_param_Tile_Async
(
qrtree
,
&
descA
,
descTS
,
descTT
,
&
descB
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgesv_incpiv.c
View file @
4fd458c7
...
...
@@ -136,32 +136,21 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
N
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgesv_incpiv_Tile_Async
(
&
descA
,
descL
,
IPIV
,
&
descB
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgesv_nopiv.c
View file @
4fd458c7
...
...
@@ -135,32 +135,21 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
N
,
N
,
sequence
,
&
request
);
morse_zlap2tile
(
morse
,
&
descBl
,
&
descBt
,
MorseUpperLower
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
N
,
NRHS
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgesv_nopiv_Tile_Async
(
&
descA
,
&
descB
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgesvd.c
View file @
4fd458c7
...
...
@@ -214,25 +214,17 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/*
Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else { */
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request); */
/* } */
/* Call the tile interface */
MORSE_zgesvd_Tile_Async
(
jobu
,
jobvt
,
&
descA
,
S
,
descT
,
U
,
LDU
,
VT
,
LDVT
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/*
Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* } else { */
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request); */
/* morse_sequence_wait(morse, sequence); */
/* } */
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgetrf_incpiv.c
View file @
4fd458c7
...
...
@@ -123,25 +123,17 @@ int MORSE_zgetrf_incpiv(int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
M
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgetrf_incpiv_Tile_Async
(
&
descA
,
descL
,
IPIV
,
sequence
,
&
request
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_sequence_wait
(
morse
,
sequence
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
...
...
compute/zgetrf_nopiv.c
View file @
4fd458c7
...
...
@@ -116,26 +116,17 @@ int MORSE_zgetrf_nopiv(int M, int N,
morse_sequence_create
(
morse
,
&
sequence
);
/*
if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {
*/
/* Submit the matrix conversion
*/
morse_zlap2tile
(
morse
,
&
descAl
,
&
descAt
,
MorseUpperLower
,
A
,
NB
,
NB
,
LDA
,
N
,
N
,
N
,
sequence
,
&
request
);
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgetrf_nopiv_Tile_Async
(
&
descA
,
sequence
,
&
request
);