Commit 17f86991 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Release/test

parent 43572e70
...@@ -46,8 +46,9 @@ void chameleon_pzgelqf( int genD, CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D ...@@ -46,8 +46,9 @@ void chameleon_pzgelqf( int genD, CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D
int ib, minMNT; int ib, minMNT;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB; ib = CHAMELEON_IB;
......
...@@ -46,8 +46,9 @@ void chameleon_pzgelqf_param( int genD, const libhqr_tree_t *qrtree, CHAM_desc_t ...@@ -46,8 +46,9 @@ void chameleon_pzgelqf_param( int genD, const libhqr_tree_t *qrtree, CHAM_desc_t
int ib, node, nbtiles, *tiles; int ib, node, nbtiles, *tiles;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB; ib = CHAMELEON_IB;
......
...@@ -49,8 +49,9 @@ void chameleon_pzgelqfrh( int genD, int BS, CHAM_desc_t *A, CHAM_desc_t *T, CHAM ...@@ -49,8 +49,9 @@ void chameleon_pzgelqfrh( int genD, int BS, CHAM_desc_t *A, CHAM_desc_t *T, CHAM
int ib, node; int ib, node;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB; ib = CHAMELEON_IB;
......
...@@ -45,8 +45,9 @@ void chameleon_pzgemm(cham_trans_t transA, cham_trans_t transB, ...@@ -45,8 +45,9 @@ void chameleon_pzgemm(cham_trans_t transA, cham_trans_t transB,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0; CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
for (m = 0; m < C->mt; m++) { for (m = 0; m < C->mt; m++) {
......
...@@ -47,8 +47,9 @@ void chameleon_pzgeqrf( int genD, CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D ...@@ -47,8 +47,9 @@ void chameleon_pzgeqrf( int genD, CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D
int minMNT = chameleon_min(A->mt, A->nt); int minMNT = chameleon_min(A->mt, A->nt);
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB; ib = CHAMELEON_IB;
......
...@@ -51,8 +51,9 @@ void chameleon_pzgeqrf_param( int genD, int K, ...@@ -51,8 +51,9 @@ void chameleon_pzgeqrf_param( int genD, int K,
int ib, node, nbtiles, *tiles; int ib, node, nbtiles, *tiles;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB; ib = CHAMELEON_IB;
......
...@@ -49,8 +49,9 @@ void chameleon_pzgeqrfrh( int genD, int BS, CHAM_desc_t *A, CHAM_desc_t *T, CHAM ...@@ -49,8 +49,9 @@ void chameleon_pzgeqrfrh( int genD, int BS, CHAM_desc_t *A, CHAM_desc_t *T, CHAM
int ib, node; int ib, node;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB; ib = CHAMELEON_IB;
......
...@@ -55,8 +55,9 @@ void chameleon_pzgetrf_incpiv( CHAM_desc_t *A, CHAM_desc_t *L, CHAM_desc_t *D, i ...@@ -55,8 +55,9 @@ void chameleon_pzgetrf_incpiv( CHAM_desc_t *A, CHAM_desc_t *L, CHAM_desc_t *D, i
int minMNT = chameleon_min(A->mt, A->nt); int minMNT = chameleon_min(A->mt, A->nt);
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB; ib = CHAMELEON_IB;
......
...@@ -42,8 +42,9 @@ void chameleon_pzgetrf_nopiv(CHAM_desc_t *A, ...@@ -42,8 +42,9 @@ void chameleon_pzgetrf_nopiv(CHAM_desc_t *A,
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0; CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB; ib = CHAMELEON_IB;
......
...@@ -45,8 +45,9 @@ void chameleon_pzhemm(cham_side_t side, cham_uplo_t uplo, ...@@ -45,8 +45,9 @@ void chameleon_pzhemm(cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0; CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
for(m = 0; m < C->mt; m++) { for(m = 0; m < C->mt; m++) {
......
...@@ -47,8 +47,9 @@ void chameleon_pzher2k(cham_uplo_t uplo, cham_trans_t trans, ...@@ -47,8 +47,9 @@ void chameleon_pzher2k(cham_uplo_t uplo, cham_trans_t trans,
double dbeta; double dbeta;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
for (n = 0; n < C->nt; n++) { for (n = 0; n < C->nt; n++) {
......
...@@ -46,8 +46,9 @@ void chameleon_pzherk(cham_uplo_t uplo, cham_trans_t trans, ...@@ -46,8 +46,9 @@ void chameleon_pzherk(cham_uplo_t uplo, cham_trans_t trans,
double dbeta; double dbeta;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
for (n = 0; n < C->nt; n++) { for (n = 0; n < C->nt; n++) {
......
...@@ -53,8 +53,9 @@ void chameleon_pzhetrd_he2hb(cham_uplo_t uplo, ...@@ -53,8 +53,9 @@ void chameleon_pzhetrd_he2hb(cham_uplo_t uplo,
int ib; int ib;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB; ib = CHAMELEON_IB;
......
...@@ -42,8 +42,9 @@ void chameleon_pzlacpy(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, ...@@ -42,8 +42,9 @@ void chameleon_pzlacpy(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
int ldam, ldbm; int ldam, ldbm;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
switch (uplo) { switch (uplo) {
......
...@@ -44,8 +44,9 @@ void chameleon_pclag2z(CHAM_desc_t *SA, CHAM_desc_t *B, ...@@ -44,8 +44,9 @@ void chameleon_pclag2z(CHAM_desc_t *SA, CHAM_desc_t *B,
int ldam, ldbm; int ldam, ldbm;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
for(m = 0; m < SA->mt; m++) { for(m = 0; m < SA->mt; m++) {
......
...@@ -387,8 +387,9 @@ void chameleon_pzlange_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_dia ...@@ -387,8 +387,9 @@ void chameleon_pzlange_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_dia
int m, n; int m, n;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if ( sequence->status != CHAMELEON_SUCCESS ) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
*result = 0.0; *result = 0.0;
......
...@@ -320,8 +320,9 @@ void chameleon_pzlansy_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_tra ...@@ -320,8 +320,9 @@ void chameleon_pzlansy_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_tra
int m, n; int m, n;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if ( sequence->status != CHAMELEON_SUCCESS ) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
*result = 0.0; *result = 0.0;
......
...@@ -35,8 +35,9 @@ void chameleon_pzlascal(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc ...@@ -35,8 +35,9 @@ void chameleon_pzlascal(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc
int minmnt = chameleon_min(A->mt, A->nt); int minmnt = chameleon_min(A->mt, A->nt);
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
......
...@@ -44,8 +44,9 @@ void chameleon_pzlaset(cham_uplo_t uplo, ...@@ -44,8 +44,9 @@ void chameleon_pzlaset(cham_uplo_t uplo,
int minmn = chameleon_min(A->mt, A->nt); int minmn = chameleon_min(A->mt, A->nt);
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
......
...@@ -43,8 +43,9 @@ void chameleon_pzlaset2(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, ...@@ -43,8 +43,9 @@ void chameleon_pzlaset2(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha,
int minmn = chameleon_min(A->mt, A->nt); int minmn = chameleon_min(A->mt, A->nt);
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
......
...@@ -40,8 +40,9 @@ void chameleon_pzlauum(cham_uplo_t uplo, CHAM_desc_t *A, ...@@ -40,8 +40,9 @@ void chameleon_pzlauum(cham_uplo_t uplo, CHAM_desc_t *A,
int tempkm, tempkn; int tempkm, tempkn;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
/* /*
* ChamLower * ChamLower
......
...@@ -42,8 +42,9 @@ void chameleon_pzplghe( double bump, cham_uplo_t uplo, CHAM_desc_t *A, ...@@ -42,8 +42,9 @@ void chameleon_pzplghe( double bump, cham_uplo_t uplo, CHAM_desc_t *A,
int tempmm, tempnn; int tempmm, tempnn;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
for (m = 0; m < A->mt; m++) { for (m = 0; m < A->mt; m++) {
......
...@@ -42,8 +42,9 @@ void chameleon_pzplgsy( CHAMELEON_Complex64_t bump, cham_uplo_t uplo, CHAM_desc_ ...@@ -42,8 +42,9 @@ void chameleon_pzplgsy( CHAMELEON_Complex64_t bump, cham_uplo_t uplo, CHAM_desc_
int tempmm, tempnn; int tempmm, tempnn;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
for (m = 0; m < A->mt; m++) { for (m = 0; m < A->mt; m++) {
......
...@@ -38,8 +38,9 @@ void chameleon_pzplrnt( CHAM_desc_t *A, unsigned long long int seed, ...@@ -38,8 +38,9 @@ void chameleon_pzplrnt( CHAM_desc_t *A, unsigned long long int seed,
int tempmm, tempnn; int tempmm, tempnn;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
for (m = 0; m < A->mt; m++) { for (m = 0; m < A->mt; m++) {
......
...@@ -45,8 +45,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A, ...@@ -45,8 +45,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0; CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
RUNTIME_options_ws_alloc( &options, 0, ws_host ); RUNTIME_options_ws_alloc( &options, 0, ws_host );
......
...@@ -48,8 +48,9 @@ void chameleon_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_ ...@@ -48,8 +48,9 @@ void chameleon_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
/* /*
......
...@@ -45,8 +45,9 @@ void chameleon_pzsymm(cham_side_t side, cham_uplo_t uplo, ...@@ -45,8 +45,9 @@ void chameleon_pzsymm(cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0; CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
/* /*
......
...@@ -46,8 +46,9 @@ void chameleon_pzsyr2k(cham_uplo_t uplo, cham_trans_t trans, ...@@ -46,8 +46,9 @@ void chameleon_pzsyr2k(cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t zbeta; CHAMELEON_Complex64_t zbeta;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
for (n = 0; n < C->nt; n++) { for (n = 0; n < C->nt; n++) {
......
...@@ -45,8 +45,9 @@ void chameleon_pzsyrk(cham_uplo_t uplo, cham_trans_t trans, ...@@ -45,8 +45,9 @@ void chameleon_pzsyrk(cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0; CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
for (n = 0; n < C->nt; n++) { for (n = 0; n < C->nt; n++) {
......
...@@ -44,8 +44,9 @@ void chameleon_pzsytrf(cham_uplo_t uplo, CHAM_desc_t *A, ...@@ -44,8 +44,9 @@ void chameleon_pzsytrf(cham_uplo_t uplo, CHAM_desc_t *A,
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0; CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
RUNTIME_options_ws_alloc( &options, 0, ws_host ); RUNTIME_options_ws_alloc( &options, 0, ws_host );
......
...@@ -39,8 +39,9 @@ void chameleon_pztile2band(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, ...@@ -39,8 +39,9 @@ void chameleon_pztile2band(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
int minmnt = chameleon_min(A->mt, A->nt); int minmnt = chameleon_min(A->mt, A->nt);
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
ldx = B->mb-1; ldx = B->mb-1;
......
...@@ -40,8 +40,7 @@ void chameleon_pztpgqrt( int KT, int L, ...@@ -40,8 +40,7 @@ void chameleon_pztpgqrt( int KT, int L,
size_t ws_host = 0; size_t ws_host = 0;
int k, m, n; int k, m, n;
int ldvk, ldvm, lddk; int ldvm, ldqk, ldqm;
int ldqk, ldqm;
int tempkn, tempnn, tempmm, templm; int tempkn, tempnn, tempmm, templm;
int ib; int ib;
...@@ -51,8 +50,9 @@ void chameleon_pztpgqrt( int KT, int L, ...@@ -51,8 +50,9 @@ void chameleon_pztpgqrt( int KT, int L,
int maxmtk; int maxmtk;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB; ib = CHAMELEON_IB;
......
...@@ -41,8 +41,9 @@ void chameleon_pztradd(cham_uplo_t uplo, cham_trans_t trans, ...@@ -41,8 +41,9 @@ void chameleon_pztradd(cham_uplo_t uplo, cham_trans_t trans,
int ldam, ldan, ldbm, ldbn; int ldam, ldan, ldbm, ldbn;
chamctxt = chameleon_context_self(); chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS) if (sequence->status != CHAMELEON_SUCCESS) {
return; return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request); RUNTIME_options_init(&options, chamctxt, sequence, request);
switch(uplo){ switch(uplo){
......
...@@ -46,8 +46,9 @@ void chameleon_pztrmm(cham_side_t side, cham_uplo_t uplo, ...@@ -46,8 +46,9 @@ void chameleon_pztrmm(cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0; CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.<