Commit ecbee0df authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Add descriptor declarations

parent 579dc09e
......@@ -91,7 +91,7 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -98,8 +98,8 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
int NB;
int Am, An;
int status;
MORSE_desc_t descA;
MORSE_desc_t descB;
MORSE_desc_t descAl, descAt;
MORSE_desc_t descBl, descBt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
......
......@@ -84,7 +84,7 @@ int MORSE_zgelqf(int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -81,7 +81,7 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -91,8 +91,8 @@ int MORSE_zgelqs(int M, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descB;
MORSE_desc_t descAl, descAt;
MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -93,8 +93,8 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descB;
MORSE_desc_t descAl, descAt;
MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -118,8 +118,8 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descB;
MORSE_desc_t descAl, descAt;
MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -120,8 +120,8 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descB;
MORSE_desc_t descAl, descAt;
MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -138,9 +138,9 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
int NB;
int Am, An, Bm, Bn;
int status;
MORSE_desc_t descA;
MORSE_desc_t descB;
MORSE_desc_t descC;
MORSE_desc_t descAl, descAt;
MORSE_desc_t descBl, descBt;
MORSE_desc_t descCl, descCt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
......
......@@ -83,7 +83,7 @@ int MORSE_zgeqrf(int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -86,7 +86,7 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -91,8 +91,8 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descB;
MORSE_desc_t descAl, descAt;
MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -86,8 +86,8 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descB;
MORSE_desc_t descAl, descAt;
MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -96,8 +96,8 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descB;
MORSE_desc_t descAl, descAt;
MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -95,8 +95,8 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descB;
MORSE_desc_t descAl, descAt;
MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -160,7 +160,7 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
......@@ -400,11 +400,11 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
MORSE_Complex64_t *VT, int LDVT,
MORSE_sequence_t *sequence, MORSE_request_t *request)
{
MORSE_desc_t descA;
MORSE_desc_t descT;
MORSE_desc_t descU;
MORSE_desc_t descVT;
MORSE_desc_t descAB;
MORSE_desc_t descAl, descAt;
MORSE_desc_t descTl, descTt;
MORSE_desc_t descUl, descUt;
MORSE_desc_t descVTl, descVTt;
MORSE_desc_t descABl, descABt;
MORSE_desc_t D, *Dptr = NULL;
MORSE_desc_t *subA, *subT, *subUVT;
double *E;
......
......@@ -87,7 +87,7 @@ int MORSE_zgetrf_incpiv(int M, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -77,7 +77,7 @@ int MORSE_zgetrf_nopiv(int M, int N,
{
int NB;
int status;
MORSE_desc_t descA ;
MORSE_desc_t descAl, descAt;
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
......
......@@ -98,8 +98,8 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descB;
MORSE_desc_t descAl, descAt;
MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
......
......@@ -92,8 +92,8 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA;
MORSE_desc_t descB;
MORSE_desc_t descAl, descAt;
MORSE_desc_t descBl, descBt;
morse = morse_context_self();
if (morse == NULL) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment