Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Chameleon
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
AGULLO Emmanuel
Chameleon
Commits
293b7e87
Commit
293b7e87
authored
Oct 06, 2015
by
Mathieu Faverge
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix a a mistake: we should do sequence_wait and not barrier_wait in the _Tile and _Lapack calls
parent
d70f1843
Changes
45
Hide whitespace changes
Inline
Side-by-side
Showing
45 changed files
with
135 additions
and
132 deletions
+135
-132
compute/zgelqf.c
compute/zgelqf.c
+3
-3
compute/zgelqs.c
compute/zgelqs.c
+3
-3
compute/zgels.c
compute/zgels.c
+3
-3
compute/zgemm.c
compute/zgemm.c
+3
-3
compute/zgeqrf.c
compute/zgeqrf.c
+3
-3
compute/zgeqrs.c
compute/zgeqrs.c
+3
-3
compute/zgesv_incpiv.c
compute/zgesv_incpiv.c
+3
-3
compute/zgesv_nopiv.c
compute/zgesv_nopiv.c
+3
-3
compute/zgetrf_incpiv.c
compute/zgetrf_incpiv.c
+3
-3
compute/zgetrf_nopiv.c
compute/zgetrf_nopiv.c
+3
-3
compute/zgetrs_incpiv.c
compute/zgetrs_incpiv.c
+3
-3
compute/zgetrs_nopiv.c
compute/zgetrs_nopiv.c
+3
-3
compute/zhemm.c
compute/zhemm.c
+3
-3
compute/zher2k.c
compute/zher2k.c
+3
-3
compute/zherk.c
compute/zherk.c
+3
-3
compute/zlacpy.c
compute/zlacpy.c
+3
-3
compute/zlange.c
compute/zlange.c
+3
-3
compute/zlanhe.c
compute/zlanhe.c
+3
-3
compute/zlansy.c
compute/zlansy.c
+3
-3
compute/zlantr.c
compute/zlantr.c
+3
-3
compute/zlaset.c
compute/zlaset.c
+3
-3
compute/zlauum.c
compute/zlauum.c
+3
-3
compute/zplghe.c
compute/zplghe.c
+3
-3
compute/zplgsy.c
compute/zplgsy.c
+3
-3
compute/zplrnt.c
compute/zplrnt.c
+3
-3
compute/zposv.c
compute/zposv.c
+3
-3
compute/zpotrf.c
compute/zpotrf.c
+3
-3
compute/zpotri.c
compute/zpotri.c
+3
-3
compute/zpotrimm.c
compute/zpotrimm.c
+3
-3
compute/zpotrs.c
compute/zpotrs.c
+3
-3
compute/zsymm.c
compute/zsymm.c
+3
-3
compute/zsyr2k.c
compute/zsyr2k.c
+3
-3
compute/zsyrk.c
compute/zsyrk.c
+3
-3
compute/zsysv.c
compute/zsysv.c
+3
-3
compute/zsytrf.c
compute/zsytrf.c
+3
-3
compute/zsytrs.c
compute/zsytrs.c
+3
-3
compute/ztrmm.c
compute/ztrmm.c
+3
-3
compute/ztrsm.c
compute/ztrsm.c
+3
-3
compute/ztrsmpl.c
compute/ztrsmpl.c
+3
-3
compute/ztrtri.c
compute/ztrtri.c
+3
-3
compute/zunglq.c
compute/zunglq.c
+3
-3
compute/zungqr.c
compute/zungqr.c
+3
-3
compute/zunmlq.c
compute/zunmlq.c
+3
-3
compute/zunmqr.c
compute/zunmqr.c
+3
-3
runtime/starpu/control/runtime_async.c
runtime/starpu/control/runtime_async.c
+3
-0
No files found.
compute/zgelqf.c
View file @
293b7e87
...
...
@@ -134,11 +134,11 @@ int MORSE_zgelqf(int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -198,7 +198,7 @@ int MORSE_zgelqf_Tile(MORSE_desc_t *A, MORSE_desc_t *T)
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgelqf_Tile_Async
(
A
,
T
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
status
=
sequence
->
status
;
...
...
compute/zgelqs.c
View file @
293b7e87
...
...
@@ -153,13 +153,13 @@ int MORSE_zgelqs(int M, int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
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);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -219,7 +219,7 @@ int MORSE_zgelqs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgelqs_Tile_Async
(
A
,
T
,
B
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
RUNTIME_desc_getoncpu
(
B
);
...
...
compute/zgels.c
View file @
293b7e87
...
...
@@ -202,13 +202,13 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
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);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -284,7 +284,7 @@ int MORSE_zgels_Tile(MORSE_enum trans, MORSE_desc_t *A,
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgels_Tile_Async
(
trans
,
A
,
T
,
B
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
RUNTIME_desc_getoncpu
(
B
);
...
...
compute/zgemm.c
View file @
293b7e87
...
...
@@ -231,7 +231,7 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
morse_desc_mat_free
(
&
descC
);
...
...
@@ -239,7 +239,7 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
/* 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);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -319,7 +319,7 @@ int MORSE_zgemm_Tile(MORSE_enum transA, MORSE_enum transB,
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgemm_Tile_Async
(
transA
,
transB
,
alpha
,
A
,
B
,
beta
,
C
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
RUNTIME_desc_getoncpu
(
B
);
RUNTIME_desc_getoncpu
(
C
);
...
...
compute/zgeqrf.c
View file @
293b7e87
...
...
@@ -133,11 +133,11 @@ int MORSE_zgeqrf(int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -197,7 +197,7 @@ int MORSE_zgeqrf_Tile(MORSE_desc_t *A, MORSE_desc_t *T)
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgeqrf_Tile_Async
(
A
,
T
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
status
=
sequence
->
status
;
...
...
compute/zgeqrs.c
View file @
293b7e87
...
...
@@ -153,13 +153,13 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
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);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -218,7 +218,7 @@ int MORSE_zgeqrs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgeqrs_Tile_Async
(
A
,
T
,
B
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
RUNTIME_desc_getoncpu
(
T
);
RUNTIME_desc_getoncpu
(
B
);
...
...
compute/zgesv_incpiv.c
View file @
293b7e87
...
...
@@ -153,13 +153,13 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
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);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -224,7 +224,7 @@ int MORSE_zgesv_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_d
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgesv_incpiv_Tile_Async
(
A
,
L
,
IPIV
,
B
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
RUNTIME_desc_getoncpu
(
B
);
...
...
compute/zgesv_nopiv.c
View file @
293b7e87
...
...
@@ -152,13 +152,13 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
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);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -216,7 +216,7 @@ int MORSE_zgesv_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgesv_nopiv_Tile_Async
(
A
,
B
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
RUNTIME_desc_getoncpu
(
B
);
...
...
compute/zgetrf_incpiv.c
View file @
293b7e87
...
...
@@ -135,11 +135,11 @@ int MORSE_zgetrf_incpiv(int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -202,7 +202,7 @@ int MORSE_zgetrf_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV)
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgetrf_incpiv_Tile_Async
(
A
,
L
,
IPIV
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
status
=
sequence
->
status
;
...
...
compute/zgetrf_nopiv.c
View file @
293b7e87
...
...
@@ -129,12 +129,12 @@ int MORSE_zgetrf_nopiv(int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N,*/
/* sequence, &request );*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -190,7 +190,7 @@ int MORSE_zgetrf_nopiv_Tile(MORSE_desc_t *A)
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgetrf_nopiv_Tile_Async
(
A
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
status
=
sequence
->
status
;
...
...
compute/zgetrs_incpiv.c
View file @
293b7e87
...
...
@@ -158,13 +158,13 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
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);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -227,7 +227,7 @@ int MORSE_zgetrs_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgetrs_incpiv_Tile_Async
(
A
,
L
,
IPIV
,
B
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
RUNTIME_desc_getoncpu
(
B
);
...
...
compute/zgetrs_nopiv.c
View file @
293b7e87
...
...
@@ -152,13 +152,13 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
NRHS
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
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);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -215,7 +215,7 @@ int MORSE_zgetrs_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zgetrs_nopiv_Tile_Async
(
A
,
B
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
RUNTIME_desc_getoncpu
(
B
);
...
...
compute/zhemm.c
View file @
293b7e87
...
...
@@ -194,7 +194,7 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
morse_desc_mat_free
(
&
descC
);
...
...
@@ -202,7 +202,7 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
/* morse_ziptile2lap( descA, A, NB, NB, LDA, Am, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, N, sequence, &request);*/
/* morse_ziptile2lap( descC, C, NB, NB, LDC, N, sequence, &request);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -284,7 +284,7 @@ int MORSE_zhemm_Tile(MORSE_enum side, MORSE_enum uplo,
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zhemm_Tile_Async
(
side
,
uplo
,
alpha
,
A
,
B
,
beta
,
C
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
RUNTIME_desc_getoncpu
(
B
);
RUNTIME_desc_getoncpu
(
C
);
...
...
compute/zher2k.c
View file @
293b7e87
...
...
@@ -198,7 +198,7 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
morse_desc_mat_free
(
&
descC
);
...
...
@@ -206,7 +206,7 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
/* morse_ziptile2lap( descA, A, NB, NB, LDA, An, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, An, sequence, &request);*/
/* morse_ziptile2lap( descC, C, NB, NB, LDC, N, sequence, &request);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -283,7 +283,7 @@ int MORSE_zher2k_Tile(MORSE_enum uplo, MORSE_enum trans,
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zher2k_Tile_Async
(
uplo
,
trans
,
alpha
,
A
,
B
,
beta
,
C
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
RUNTIME_desc_getoncpu
(
B
);
RUNTIME_desc_getoncpu
(
C
);
...
...
compute/zherk.c
View file @
293b7e87
...
...
@@ -180,13 +180,13 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descC
,
C
,
NB
,
NB
,
LDC
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descC
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, An, sequence, &request);*/
/* morse_ziptile2lap( descC, C, NB, NB, LDC, N, sequence, &request);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -259,7 +259,7 @@ int MORSE_zherk_Tile(MORSE_enum uplo, MORSE_enum trans,
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zherk_Tile_Async
(
uplo
,
trans
,
alpha
,
A
,
beta
,
C
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
RUNTIME_desc_getoncpu
(
C
);
...
...
compute/zlacpy.c
View file @
293b7e87
...
...
@@ -146,12 +146,12 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descB
,
B
,
NB
,
NB
,
LDB
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
morse_desc_mat_free
(
&
descB
);
/* } else {*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, N, sequence, &request);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -211,7 +211,7 @@ int MORSE_zlacpy_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zlacpy_Tile_Async
(
uplo
,
A
,
B
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_sequence_destroy
(
morse
,
sequence
);
return
MORSE_SUCCESS
;
}
...
...
compute/zlange.c
View file @
293b7e87
...
...
@@ -146,12 +146,12 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
&
descA
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -210,7 +210,7 @@ double MORSE_zlange_Tile(MORSE_enum norm, MORSE_desc_t *A)
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zlange_Tile_Async
(
norm
,
A
,
&
value
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_sequence_destroy
(
morse
,
sequence
);
return
value
;
}
...
...
compute/zlanhe.c
View file @
293b7e87
...
...
@@ -146,12 +146,12 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
&
descA
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -214,7 +214,7 @@ double MORSE_zlanhe_Tile(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A)
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zlanhe_Tile_Async
(
norm
,
uplo
,
A
,
&
value
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_sequence_destroy
(
morse
,
sequence
);
return
value
;
}
...
...
compute/zlansy.c
View file @
293b7e87
...
...
@@ -145,11 +145,11 @@ double MORSE_zlansy(MORSE_enum norm, MORSE_enum uplo, int N,
MORSE_zlansy_Tile_Async
(
norm
,
uplo
,
&
descA
,
&
value
,
sequence
,
&
request
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -212,7 +212,7 @@ double MORSE_zlansy_Tile(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A)
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zlansy_Tile_Async
(
norm
,
uplo
,
A
,
&
value
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_sequence_destroy
(
morse
,
sequence
);
return
value
;
}
...
...
compute/zlantr.c
View file @
293b7e87
...
...
@@ -165,11 +165,11 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
MORSE_zlantr_Tile_Async
(
norm
,
uplo
,
diag
,
&
descA
,
&
value
,
sequence
,
&
request
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -234,7 +234,7 @@ double MORSE_zlantr_Tile(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag, MORS
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zlantr_Tile_Async
(
norm
,
uplo
,
diag
,
A
,
&
value
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_sequence_destroy
(
morse
,
sequence
);
return
value
;
}
...
...
compute/zlaset.c
View file @
293b7e87
...
...
@@ -138,11 +138,11 @@ int MORSE_zlaset(MORSE_enum uplo, int M, int N,
MORSE_zlaset_Tile_Async
(
uplo
,
alpha
,
beta
,
&
descA
,
sequence
,
&
request
);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
morse_sequence_destroy
(
morse
,
sequence
);
...
...
@@ -200,7 +200,7 @@ int MORSE_zlaset_Tile(MORSE_enum uplo,
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zlaset_Tile_Async
(
uplo
,
alpha
,
beta
,
A
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_sequence_destroy
(
morse
,
sequence
);
return
MORSE_SUCCESS
;
}
...
...
compute/zlauum.c
View file @
293b7e87
...
...
@@ -133,11 +133,11 @@ int MORSE_zlauum(MORSE_enum uplo, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/*
RUNTIME_barrier(mors
e);*/
/*
morse_sequence_wait(morse, sequenc
e);*/
/* }*/
status
=
sequence
->
status
;
...
...
@@ -199,7 +199,7 @@ int MORSE_zlauum_Tile(MORSE_enum uplo, MORSE_desc_t *A)
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zlauum_Tile_Async
(
uplo
,
A
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
RUNTIME_desc_getoncpu
(
A
);
status
=
sequence
->
status
;
...
...
compute/zplghe.c
View file @
293b7e87
...
...
@@ -114,9 +114,9 @@ int MORSE_zplghe( double bump, int N,
/* Call the tile interface */
MORSE_zplghe_Tile_Async
(
bump
,
&
descA
,
seed
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
status
=
sequence
->
status
;
...
...
@@ -178,7 +178,7 @@ int MORSE_zplghe_Tile( double bump, MORSE_desc_t *A,
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zplghe_Tile_Async
(
bump
,
A
,
seed
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
return
status
;
...
...
compute/zplgsy.c
View file @
293b7e87
...
...
@@ -114,9 +114,9 @@ int MORSE_zplgsy( MORSE_Complex64_t bump, int N,
/* Call the tile interface */
MORSE_zplgsy_Tile_Async
(
bump
,
&
descA
,
seed
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
status
=
sequence
->
status
;
...
...
@@ -178,7 +178,7 @@ int MORSE_zplgsy_Tile( MORSE_Complex64_t bump, MORSE_desc_t *A,
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zplgsy_Tile_Async
(
bump
,
A
,
seed
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);
return
status
;
...
...
compute/zplrnt.c
View file @
293b7e87
...
...
@@ -116,9 +116,9 @@ int MORSE_zplrnt( int M, int N,
/* Call the tile interface */
MORSE_zplrnt_Tile_Async
(
&
descA
,
seed
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_zooptile2lap
(
descA
,
A
,
NB
,
NB
,
LDA
,
N
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
morse_desc_mat_free
(
&
descA
);
status
=
sequence
->
status
;
...
...
@@ -176,7 +176,7 @@ int MORSE_zplrnt_Tile( MORSE_desc_t *A,
}
morse_sequence_create
(
morse
,
&
sequence
);
MORSE_zplrnt_Tile_Async
(
A
,
seed
,
sequence
,
&
request
);
RUNTIME_barrier
(
mors
e
);
morse_sequence_wait
(
morse
,
sequenc
e
);
status
=
sequence
->
status
;
morse_sequence_destroy
(
morse
,
sequence
);