Commit ecbee0df authored by Mathieu Faverge's avatar Mathieu Faverge

Add descriptor declarations

parent 579dc09e
...@@ -91,7 +91,7 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N, ...@@ -91,7 +91,7 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -98,8 +98,8 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N, ...@@ -98,8 +98,8 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
int NB; int NB;
int Am, An; int Am, An;
int status; int status;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
......
...@@ -84,7 +84,7 @@ int MORSE_zgelqf(int M, int N, ...@@ -84,7 +84,7 @@ int MORSE_zgelqf(int M, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -81,7 +81,7 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N, ...@@ -81,7 +81,7 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -91,8 +91,8 @@ int MORSE_zgelqs(int M, int N, int NRHS, ...@@ -91,8 +91,8 @@ int MORSE_zgelqs(int M, int N, int NRHS,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -93,8 +93,8 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS, ...@@ -93,8 +93,8 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -118,8 +118,8 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS, ...@@ -118,8 +118,8 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -120,8 +120,8 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int ...@@ -120,8 +120,8 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -138,9 +138,9 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K, ...@@ -138,9 +138,9 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
int NB; int NB;
int Am, An, Bm, Bn; int Am, An, Bm, Bn;
int status; int status;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
MORSE_desc_t descC; MORSE_desc_t descCl, descCt;
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
......
...@@ -83,7 +83,7 @@ int MORSE_zgeqrf(int M, int N, ...@@ -83,7 +83,7 @@ int MORSE_zgeqrf(int M, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -86,7 +86,7 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N, ...@@ -86,7 +86,7 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -91,8 +91,8 @@ int MORSE_zgeqrs(int M, int N, int NRHS, ...@@ -91,8 +91,8 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -86,8 +86,8 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS, ...@@ -86,8 +86,8 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -96,8 +96,8 @@ int MORSE_zgesv_incpiv(int N, int NRHS, ...@@ -96,8 +96,8 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -95,8 +95,8 @@ int MORSE_zgesv_nopiv(int N, int NRHS, ...@@ -95,8 +95,8 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -160,7 +160,7 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt, ...@@ -160,7 +160,7 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
...@@ -400,11 +400,11 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt, ...@@ -400,11 +400,11 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
MORSE_Complex64_t *VT, int LDVT, MORSE_Complex64_t *VT, int LDVT,
MORSE_sequence_t *sequence, MORSE_request_t *request) MORSE_sequence_t *sequence, MORSE_request_t *request)
{ {
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descT; MORSE_desc_t descTl, descTt;
MORSE_desc_t descU; MORSE_desc_t descUl, descUt;
MORSE_desc_t descVT; MORSE_desc_t descVTl, descVTt;
MORSE_desc_t descAB; MORSE_desc_t descABl, descABt;
MORSE_desc_t D, *Dptr = NULL; MORSE_desc_t D, *Dptr = NULL;
MORSE_desc_t *subA, *subT, *subUVT; MORSE_desc_t *subA, *subT, *subUVT;
double *E; double *E;
......
...@@ -87,7 +87,7 @@ int MORSE_zgetrf_incpiv(int M, int N, ...@@ -87,7 +87,7 @@ int MORSE_zgetrf_incpiv(int M, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -77,7 +77,7 @@ int MORSE_zgetrf_nopiv(int M, int N, ...@@ -77,7 +77,7 @@ int MORSE_zgetrf_nopiv(int M, int N,
{ {
int NB; int NB;
int status; int status;
MORSE_desc_t descA ; MORSE_desc_t descAl, descAt;
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
......
...@@ -98,8 +98,8 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS, ...@@ -98,8 +98,8 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -92,8 +92,8 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS, ...@@ -92,8 +92,8 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -336,15 +336,15 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo, ...@@ -336,15 +336,15 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
MORSE_sequence_t *sequence, MORSE_request_t *request) MORSE_sequence_t *sequence, MORSE_request_t *request)
{ {
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descT; MORSE_desc_t descTl, descTt;
MORSE_desc_t D, *Dptr = NULL; MORSE_desc_t D, *Dptr = NULL;
MORSE_Complex64_t *Q2; MORSE_Complex64_t *Q2;
int N, NB, status; int N, NB, status;
double *E; double *E;
MORSE_Complex64_t *V; MORSE_Complex64_t *V;
MORSE_desc_t descQ2; MORSE_desc_t descQ2l, descQ2t;
MORSE_desc_t descV; MORSE_desc_t descVl, descVt;
MORSE_desc_t *subA, *subQ, *subT; MORSE_desc_t *subA, *subQ, *subT;
morse = morse_context_self(); morse = morse_context_self();
......
...@@ -114,9 +114,9 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N, ...@@ -114,9 +114,9 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
int NB; int NB;
int Am; int Am;
int status; int status;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
MORSE_desc_t descC; MORSE_desc_t descCl, descCt;
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
......
...@@ -115,9 +115,9 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K, ...@@ -115,9 +115,9 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
int NB; int NB;
int Am, An; int Am, An;
int status; int status;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
MORSE_desc_t descC; MORSE_desc_t descCl, descCt;
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
......
...@@ -105,8 +105,8 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K, ...@@ -105,8 +105,8 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
int NB; int NB;
int Am, An; int Am, An;
int status; int status;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descC; MORSE_desc_t descCl, descCt;
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
......
...@@ -125,7 +125,7 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N, ...@@ -125,7 +125,7 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
...@@ -333,8 +333,8 @@ int MORSE_zhetrd_Tile_Async(MORSE_enum jobz, ...@@ -333,8 +333,8 @@ int MORSE_zhetrd_Tile_Async(MORSE_enum jobz,
MORSE_sequence_t *sequence, MORSE_request_t *request) MORSE_sequence_t *sequence, MORSE_request_t *request)
{ {
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descAB; MORSE_desc_t descABl, descABt;
int N, NB, LDAB; int N, NB, LDAB;
int status; int status;
MORSE_desc_t D, *Dptr = NULL; MORSE_desc_t D, *Dptr = NULL;
......
...@@ -83,8 +83,8 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N, ...@@ -83,8 +83,8 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_desc_t descB; MORSE_desc_t descBl, descBt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -92,7 +92,7 @@ double MORSE_zlange(MORSE_enum norm, int M, int N, ...@@ -92,7 +92,7 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -92,7 +92,7 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N, ...@@ -92,7 +92,7 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -92,7 +92,7 @@ double MORSE_zlansy(MORSE_enum norm, MORSE_enum uplo, int N, ...@@ -92,7 +92,7 @@ double MORSE_zlansy(MORSE_enum norm, MORSE_enum uplo, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -104,7 +104,7 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag, ...@@ -104,7 +104,7 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -67,7 +67,7 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N, ...@@ -67,7 +67,7 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N,
{ {
int NB; int NB;
int status; int status;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
...@@ -227,7 +227,7 @@ int MORSE_zlascal_Tile_Async(MORSE_enum uplo, ...@@ -227,7 +227,7 @@ int MORSE_zlascal_Tile_Async(MORSE_enum uplo,
MORSE_sequence_t *sequence, MORSE_request_t *request) MORSE_sequence_t *sequence, MORSE_request_t *request)
{ {
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -84,7 +84,7 @@ int MORSE_zlaset(MORSE_enum uplo, int M, int N, ...@@ -84,7 +84,7 @@ int MORSE_zlaset(MORSE_enum uplo, int M, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -85,7 +85,7 @@ int MORSE_zlauum(MORSE_enum uplo, int N, ...@@ -85,7 +85,7 @@ int MORSE_zlauum(MORSE_enum uplo, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -84,7 +84,7 @@ int MORSE_zplghe( double bump, MORSE_enum uplo, int N, ...@@ -84,7 +84,7 @@ int MORSE_zplghe( double bump, MORSE_enum uplo, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -84,7 +84,7 @@ int MORSE_zplgsy( MORSE_Complex64_t bump, MORSE_enum uplo, int N, ...@@ -84,7 +84,7 @@ int MORSE_zplgsy( MORSE_Complex64_t bump, MORSE_enum uplo, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -78,7 +78,7 @@ int MORSE_zplrnt( int M, int N, ...@@ -78,7 +78,7 @@ int MORSE_zplrnt( int M, int N,
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL; MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER; MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
MORSE_desc_t descA; MORSE_desc_t descAl, descAt;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
......
...@@ -104,8 +104,8 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS, ...@@ -104,8 +104,8 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS,
MORSE_context_t *morse;