Commit e0381aff authored by Mathieu Faverge's avatar Mathieu Faverge

Merge branch 'release/test' into 'master'

Release/test

See merge request solverstack/chameleon!123
parents 43572e70 17f86991
......@@ -46,8 +46,9 @@ void chameleon_pzgelqf( int genD, CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D
int ib, minMNT;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -46,8 +46,9 @@ void chameleon_pzgelqf_param( int genD, const libhqr_tree_t *qrtree, CHAM_desc_t
int ib, node, nbtiles, *tiles;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -49,8 +49,9 @@ void chameleon_pzgelqfrh( int genD, int BS, CHAM_desc_t *A, CHAM_desc_t *T, CHAM
int ib, node;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -45,8 +45,9 @@ void chameleon_pzgemm(cham_trans_t transA, cham_trans_t transB,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
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
int minMNT = chameleon_min(A->mt, A->nt);
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -51,8 +51,9 @@ void chameleon_pzgeqrf_param( int genD, int K,
int ib, node, nbtiles, *tiles;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -49,8 +49,9 @@ void chameleon_pzgeqrfrh( int genD, int BS, CHAM_desc_t *A, CHAM_desc_t *T, CHAM
int ib, node;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -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);
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -42,8 +42,9 @@ void chameleon_pzgetrf_nopiv(CHAM_desc_t *A,
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -45,8 +45,9 @@ void chameleon_pzhemm(cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
for(m = 0; m < C->mt; m++) {
......
......@@ -47,8 +47,9 @@ void chameleon_pzher2k(cham_uplo_t uplo, cham_trans_t trans,
double dbeta;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
for (n = 0; n < C->nt; n++) {
......
......@@ -46,8 +46,9 @@ void chameleon_pzherk(cham_uplo_t uplo, cham_trans_t trans,
double dbeta;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
for (n = 0; n < C->nt; n++) {
......
......@@ -53,8 +53,9 @@ void chameleon_pzhetrd_he2hb(cham_uplo_t uplo,
int ib;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -42,8 +42,9 @@ void chameleon_pzlacpy(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
int ldam, ldbm;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
switch (uplo) {
......
......@@ -44,8 +44,9 @@ void chameleon_pclag2z(CHAM_desc_t *SA, CHAM_desc_t *B,
int ldam, ldbm;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
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
int m, n;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if ( sequence->status != CHAMELEON_SUCCESS ) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
*result = 0.0;
......
......@@ -320,8 +320,9 @@ void chameleon_pzlansy_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_tra
int m, n;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if ( sequence->status != CHAMELEON_SUCCESS ) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
*result = 0.0;
......
......@@ -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);
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
......
......@@ -44,8 +44,9 @@ void chameleon_pzlaset(cham_uplo_t uplo,
int minmn = chameleon_min(A->mt, A->nt);
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
......
......@@ -43,8 +43,9 @@ void chameleon_pzlaset2(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha,
int minmn = chameleon_min(A->mt, A->nt);
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
......
......@@ -40,8 +40,9 @@ void chameleon_pzlauum(cham_uplo_t uplo, CHAM_desc_t *A,
int tempkm, tempkn;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
/*
* ChamLower
......
......@@ -42,8 +42,9 @@ void chameleon_pzplghe( double bump, cham_uplo_t uplo, CHAM_desc_t *A,
int tempmm, tempnn;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
for (m = 0; m < A->mt; m++) {
......
......@@ -42,8 +42,9 @@ void chameleon_pzplgsy( CHAMELEON_Complex64_t bump, cham_uplo_t uplo, CHAM_desc_
int tempmm, tempnn;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
for (m = 0; m < A->mt; m++) {
......
......@@ -38,8 +38,9 @@ void chameleon_pzplrnt( CHAM_desc_t *A, unsigned long long int seed,
int tempmm, tempnn;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
for (m = 0; m < A->mt; m++) {
......
......@@ -45,8 +45,9 @@ void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
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_
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
/*
......
......@@ -45,8 +45,9 @@ void chameleon_pzsymm(cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
/*
......
......@@ -46,8 +46,9 @@ void chameleon_pzsyr2k(cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t zbeta;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
for (n = 0; n < C->nt; n++) {
......
......@@ -45,8 +45,9 @@ void chameleon_pzsyrk(cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
for (n = 0; n < C->nt; n++) {
......
......@@ -44,8 +44,9 @@ void chameleon_pzsytrf(cham_uplo_t uplo, CHAM_desc_t *A,
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
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,
int minmnt = chameleon_min(A->mt, A->nt);
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ldx = B->mb-1;
......
......@@ -40,8 +40,7 @@ void chameleon_pztpgqrt( int KT, int L,
size_t ws_host = 0;
int k, m, n;
int ldvk, ldvm, lddk;
int ldqk, ldqm;
int ldvm, ldqk, ldqm;
int tempkn, tempnn, tempmm, templm;
int ib;
......@@ -51,8 +50,9 @@ void chameleon_pztpgqrt( int KT, int L,
int maxmtk;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -41,8 +41,9 @@ void chameleon_pztradd(cham_uplo_t uplo, cham_trans_t trans,
int ldam, ldan, ldbm, ldbn;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
switch(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;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
/*
* ChamLeft / ChamUpper / ChamNoTrans
......
......@@ -47,8 +47,9 @@ void chameleon_pztrsm(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans, ch
CHAMELEON_Complex64_t lalpha;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
/*
* ChamLeft / ChamUpper / ChamNoTrans
......
......@@ -44,8 +44,9 @@ void chameleon_pztrsmpl( CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *L, int *IP
int ib;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -43,8 +43,9 @@ void chameleon_pztrtri(cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A,
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
/*
* ChamLower
......
......@@ -48,8 +48,9 @@ void chameleon_pzunglq( int genD, CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T
int ib, minMT;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -46,8 +46,9 @@ void chameleon_pzunglq_param( int genD, const libhqr_tree_t *qrtree, CHAM_desc_t
int ib, node, nbtiles, *tiles;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -51,8 +51,9 @@ void chameleon_pzunglqrh( int genD, int BS,
int ib, node;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -49,8 +49,9 @@ void chameleon_pzungqr( int genD, CHAM_desc_t *A, CHAM_desc_t *Q,
int ib, minMT;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -47,8 +47,9 @@ void chameleon_pzungqr_param( int genD, int K,
int ib, nbgeqrt, node, nbtiles, *tiles;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -54,8 +54,9 @@ void chameleon_pzungqrrh( int genD, int BS,
int ib, node;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -49,8 +49,9 @@ void chameleon_pzunmlq( int genD, cham_side_t side, cham_trans_t trans,
int ib, minMT, minM;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -48,8 +48,9 @@ void chameleon_pzunmlq_param( int genD, const libhqr_tree_t *qrtree,
int node, nbtiles, *tiles;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -52,8 +52,9 @@ void chameleon_pzunmlqrh( int genD, int BS, cham_side_t side, cham_trans_t trans
int ib, node;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -49,8 +49,9 @@ void chameleon_pzunmqr( int genD, cham_side_t side, cham_trans_t trans,
int ib, minMT, minM;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -48,8 +48,9 @@ void chameleon_pzunmqr_param( int genD, const libhqr_tree_t *qrtree,
int node, nbtiles, *tiles;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -53,8 +53,9 @@ void chameleon_pzunmqrrh( int genD, int BS, cham_side_t side, cham_trans_t trans
int ib, node;
chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
if (sequence->status != CHAMELEON_SUCCESS) {
return;
}
RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
......
......@@ -91,8 +91,8 @@
*
*/
int CHAMELEON_zposv( cham_uplo_t uplo, int N, int NRHS,
CHAMELEON_Complex64_t *A, int LDA,
CHAMELEON_Complex64_t *B, int LDB )
CHAMELEON_Complex64_t *A, int LDA,
CHAMELEON_Complex64_t *B, int LDB )
{
int NB;
int status;
......@@ -147,18 +147,18 @@ int CHAMELEON_zposv( cham_uplo_t uplo, int N, int NRHS,
/* Submit the matrix conversion */
chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
A, NB, NB, LDA, N, N, N, sequence, &request );
chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_zposv_Tile_Async( uplo, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, uplo, sequence, &request );
ChamDescInout, uplo, sequence, &request );
chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
ChamDescInout, ChamUpperLower, sequence, &request );
chameleon_sequence_wait( chamctxt, sequence );
......@@ -275,7 +275,7 @@ int CHAMELEON_zposv_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B )
*
*/
int CHAMELEON_zposv_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
CHAM_context_t *chamctxt;
......
......@@ -27,6 +27,7 @@
#include "control/auxiliary.h"
#include "control/context.h"
#include "chameleon/runtime.h"
#include <stdlib.h>
#if !defined(CHAMELEON_SIMULATION)
#include "coreblas.h"
......
......@@ -2,10 +2,10 @@
# Check testing/
#
set(TEST_CMD_shm testing 4 0)
set(TEST_CMD_shmgpu testing 4 1)
# set(TEST_CMD_mpi testing 4 0)
# set(TEST_CMD_mpigpu testing 4 1)
set(TEST_CMD_shm testing 4 0 19 7 )
set(TEST_CMD_shmgpu testing 4 1 19 7 )
# set(TEST_CMD_mpi testing 4 0 19 7 )
# set(TEST_CMD_mpigpu testing 4 1 19 7 )
set( TEST_CATEGORIES shm )
if (CHAMELEON_USE_CUDA AND CUDA_FOUND)
......@@ -18,37 +18,38 @@ foreach(cat ${TEST_CATEGORIES})
string(TOUPPER ${prec} PREC)
if (CHAMELEON_PREC_${PREC})
add_test(test_${cat}_${prec}lange ./${prec}${TEST_CMD_${cat}} LANGE 600 500 600)
add_test(test_${cat}_${prec}gemm ./${prec}${TEST_CMD_${cat}} GEMM 1.0 -2.0 600 500 550 650 625 700)
add_test(test_${cat}_${prec}trsm ./${prec}${TEST_CMD_${cat}} TRSM -2.0 600 500 650 625)
add_test(test_${cat}_${prec}trmm ./${prec}${TEST_CMD_${cat}} TRMM -2.0 600 500 650 625)
add_test(test_${cat}_${prec}symm ./${prec}${TEST_CMD_${cat}} SYMM 1.0 -2.0 600 500 650 625 700)
add_test(test_${cat}_${prec}syrk ./${prec}${TEST_CMD_${cat}} SYRK 1.0 -2.0 600 500 650 625)
add_test(test_${cat}_${prec}syr2k ./${prec}${TEST_CMD_${cat}} SYR2K 1.0 -2.0 600 500 650 625 700)
add_test(test_${cat}_${prec}lange ./${prec}${TEST_CMD_${cat}} LANGE 117 213 232 )
add_test(test_${cat}_${prec}gemm ./${prec}${TEST_CMD_${cat}} GEADD 1.7 -2.3 117 213 215 220 )
add_test(test_${cat}_${prec}gemm ./${prec}${TEST_CMD_${cat}} GEMM 1.7 -2.3 117 213 97 215 220 232)
add_test(test_${cat}_${prec}trsm ./${prec}${TEST_CMD_${cat}} TRSM -2.3 117 213 215 220 )
add_test(test_${cat}_${prec}trmm ./${prec}${TEST_CMD_${cat}} TRMM -2.3 117 213 215 220 )
add_test(test_${cat}_${prec}symm ./${prec}${TEST_CMD_${cat}} SYMM 1.7 -2.3 117 213 215 220 232)
add_test(test_${cat}_${prec}syrk ./${prec}${TEST_CMD_${cat}} SYRK 1.7 -2.3 117 213 215 220 )
add_test(test_${cat}_${prec}syr2k ./${prec}${TEST_CMD_${cat}} SYR2K 1.7 -2.3 117 213 215 220 232)
if ( ${prec} STREQUAL c OR ${prec} STREQUAL z )
add_test(test_${cat}_${prec}hemm ./${prec}${TEST_CMD_${cat}} HEMM 1.0 -2.0 600 500 650 625 600)
add_test(test_${cat}_${prec}herk ./${prec}${TEST_CMD_${cat}} HERK 1.0 -2.0 600 500 650 625)
add_test(test_${cat}_${prec}her2k ./${prec}${TEST_CMD_${cat}} HER2K 1.0 -2.0 600 500 650 625 700)
add_test(test_${cat}_${prec}hemm ./${prec}${TEST_CMD_${cat}} HEMM 1.7 -2.3 117 213 215 220 232)
add_test(test_${cat}_${prec}herk ./${prec}${TEST_CMD_${cat}} HERK 1.7 -2.3 117 213 215 220 )
add_test(test_${cat}_${prec}her2k ./${prec}${TEST_CMD_${cat}} HER2K 1.7 -2.3 117 213 215 220 232)
endif()
add_test(test_${cat}_${prec}posv ./${prec}${TEST_CMD_${cat}} POSV 500 600 25 700)
add_test(test_${cat}_${prec}potri ./${prec}${TEST_CMD_${cat}} POTRI 500 600)
add_test(test_${cat}_${prec}gels_qr ./${prec}${TEST_CMD_${cat}} GELS 0 800 400 825 25 810)
add_test(test_${cat}_${prec}gels_hqr ./${prec}${TEST_CMD_${cat}} GELS 1 800 400 825 25 810 4)
add_test(test_${cat}_${prec}gels_lq ./${prec}${TEST_CMD_${cat}} GELS 0 400 800 825 25 810)
add_test(test_${cat}_${prec}gels_hlq ./${prec}${TEST_CMD_${cat}} GELS 1 400 800 825 25 810 4)
add_test(test_${cat}_${prec}gesv_incpiv ./${prec}${TEST_CMD_${cat}} GESV_INCPIV 800 825 25 810)
add_test(test_${cat}_${prec}posv ./${prec}${TEST_CMD_${cat}} POSV 117 155 25 143)
add_test(test_${cat}_${prec}potri ./${prec}${TEST_CMD_${cat}} POTRI 117 155 )
add_test(test_${cat}_${prec}gels_qr ./${prec}${TEST_CMD_${cat}} GELS 0 233 117 255 25 242 )
add_test(test_${cat}_${prec}gels_hqr ./${prec}${TEST_CMD_${cat}} GELS 1 233 117 255 25 242 3)
add_test(test_${cat}_${prec}gels_lq ./${prec}${TEST_CMD_${cat}} GELS 0 117 233 155 25 242 )
add_test(test_${cat}_${prec}gels_hlq ./${prec}${TEST_CMD_${cat}} GELS 1 117 233 155 25 242 3)
add_test(test_${cat}_${prec}gesv_incpiv ./${prec}${TEST_CMD_${cat}} GESV_INCPIV 117 155 25 242)
add_test(test_${cat}_${prec}gels_hqr_greedy ./${prec}${TEST_CMD_${cat}} GELS_HQR 1000 600 1000 10 1000 4 -1 1 -1 0)
add_test(test_${cat}_${prec}gels_hqr_fibonacci ./${prec}${TEST_CMD_${cat}} GELS_HQR 1000 600 1000 10 1000 4 -1 2 -1 0)
add_test(test_${cat}_${prec}gels_hqr_binary ./${prec}${TEST_CMD_${cat}} GELS_HQR 1000 600 1000 10 1000 4 -1 3 -1 0)
add_test(test_${cat}_${prec}gels_hlq_greedy ./${prec}${TEST_CMD_${cat}} GELS_HQR 600 1000 1000 10 1000 4 -1 1 -1 0)
add_test(test_${cat}_${prec}gels_hlq_fibonacci ./${prec}${TEST_CMD_${cat}} GELS_HQR 600 1000 1000 10 1000 4 -1 2 -1 0)
add_test(test_${cat}_${prec}gels_hlq_binary ./${prec}${TEST_CMD_${cat}} GELS_HQR 600 1000 1000 10 1000 4 -1 3 -1 0)
add_test(test_${cat}_${prec}gels_hqr_greedy ./${prec}${TEST_CMD_${cat}} GELS_HQR 233 117 255 25 242 2 -1 1 -1 0)
add_test(test_${cat}_${prec}gels_hqr_fibonacci ./${prec}${TEST_CMD_${cat}} GELS_HQR 233 117 255 25 242 2 -1 2 -1 0)
add_test(test_${cat}_${prec}gels_hqr_binary ./${prec}${TEST_CMD_${cat}} GELS_HQR 233 117 255 25 242 2 -1 3 -1 0)
add_test(test_${cat}_${prec}gels_hlq_greedy ./${prec}${TEST_CMD_${cat}} GELS_HQR 117 233 255 25 242 2 -1 1 -1 0)
add_test(test_${cat}_${prec}gels_hlq_fibonacci ./${prec}${TEST_CMD_${cat}} GELS_HQR 117 233 255 25 242 2 -1 2 -1 0)
add_test(test_${cat}_${prec}gels_hlq_binary ./${prec}${TEST_CMD_${cat}} GELS_HQR 117 233 255 25 242 2 -1 3 -1 0)