From 429f28747b37729bf5d641522bc122c77f26298c Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Mon, 11 Oct 2021 21:46:03 +0200
Subject: [PATCH] gcc/openmp: silent compilation warnings
---
runtime/openmp/codelets/codelet_dlag2z.c | 2 ++
runtime/openmp/codelets/codelet_dzasum.c | 4 ++--
runtime/openmp/codelets/codelet_map.c | 1 +
runtime/openmp/codelets/codelet_zaxpy.c | 3 ++-
runtime/openmp/codelets/codelet_zbuild.c | 24 ++++++++++---------
runtime/openmp/codelets/codelet_zcesca.c | 4 +++-
runtime/openmp/codelets/codelet_zgeadd.c | 3 +++
runtime/openmp/codelets/codelet_zgelqt.c | 3 +++
runtime/openmp/codelets/codelet_zgemm.c | 3 +++
runtime/openmp/codelets/codelet_zgemv.c | 2 ++
runtime/openmp/codelets/codelet_zgeqrt.c | 3 +++
runtime/openmp/codelets/codelet_zgessm.c | 7 ++++++
runtime/openmp/codelets/codelet_zgessq.c | 2 ++
runtime/openmp/codelets/codelet_zgesum.c | 2 ++
runtime/openmp/codelets/codelet_zgetrf.c | 6 +++++
.../openmp/codelets/codelet_zgetrf_incpiv.c | 8 +++++++
.../openmp/codelets/codelet_zgetrf_nopiv.c | 4 ++++
runtime/openmp/codelets/codelet_zgram.c | 2 ++
runtime/openmp/codelets/codelet_zhe2ge.c | 11 +++++----
runtime/openmp/codelets/codelet_zhemm.c | 3 +++
runtime/openmp/codelets/codelet_zher2k.c | 3 +++
runtime/openmp/codelets/codelet_zherfb.c | 3 +++
runtime/openmp/codelets/codelet_zherk.c | 3 +++
runtime/openmp/codelets/codelet_zlacpy.c | 3 +++
runtime/openmp/codelets/codelet_zlag2c.c | 6 +++++
runtime/openmp/codelets/codelet_zlange.c | 15 ++++++++----
runtime/openmp/codelets/codelet_zlanhe.c | 9 ++++---
runtime/openmp/codelets/codelet_zlansy.c | 9 ++++---
runtime/openmp/codelets/codelet_zlantr.c | 9 ++++---
runtime/openmp/codelets/codelet_zlascal.c | 3 +++
runtime/openmp/codelets/codelet_zlaset.c | 8 ++++---
runtime/openmp/codelets/codelet_zlaset2.c | 8 ++++---
runtime/openmp/codelets/codelet_zlatro.c | 5 +++-
runtime/openmp/codelets/codelet_zlauum.c | 7 ++++--
runtime/openmp/codelets/codelet_zplghe.c | 2 ++
runtime/openmp/codelets/codelet_zplgsy.c | 2 ++
runtime/openmp/codelets/codelet_zplrnt.c | 2 ++
runtime/openmp/codelets/codelet_zplssq.c | 5 +++-
runtime/openmp/codelets/codelet_zpotrf.c | 5 +++-
runtime/openmp/codelets/codelet_zssssm.c | 3 +++
runtime/openmp/codelets/codelet_zsymm.c | 3 +++
runtime/openmp/codelets/codelet_zsyr2k.c | 4 +++-
runtime/openmp/codelets/codelet_zsyrk.c | 4 +++-
runtime/openmp/codelets/codelet_zsyssq.c | 2 ++
.../openmp/codelets/codelet_zsytrf_nopiv.c | 4 ++++
runtime/openmp/codelets/codelet_ztplqt.c | 3 +++
runtime/openmp/codelets/codelet_ztpmlqt.c | 3 +++
runtime/openmp/codelets/codelet_ztpmqrt.c | 3 +++
runtime/openmp/codelets/codelet_ztpqrt.c | 3 +++
runtime/openmp/codelets/codelet_ztradd.c | 3 +++
runtime/openmp/codelets/codelet_ztrasm.c | 12 ++++++----
runtime/openmp/codelets/codelet_ztrmm.c | 11 +++++----
runtime/openmp/codelets/codelet_ztrsm.c | 11 +++++----
runtime/openmp/codelets/codelet_ztrssq.c | 2 ++
runtime/openmp/codelets/codelet_ztrtri.c | 3 +++
.../openmp/codelets/codelet_ztsmlq_hetra1.c | 3 +++
.../openmp/codelets/codelet_ztsmqr_hetra1.c | 3 +++
runtime/openmp/codelets/codelet_ztstrf.c | 5 ++++
runtime/openmp/codelets/codelet_zunmlq.c | 3 +++
runtime/openmp/codelets/codelet_zunmqr.c | 3 +++
runtime/openmp/control/runtime_async.c | 3 +--
runtime/openmp/control/runtime_context.c | 3 ++-
runtime/openmp/control/runtime_control.c | 1 -
runtime/openmp/control/runtime_descriptor.c | 1 -
runtime/openmp/control/runtime_options.c | 4 ++--
runtime/openmp/include/chameleon_openmp.h | 2 +-
66 files changed, 242 insertions(+), 67 deletions(-)
diff --git a/runtime/openmp/codelets/codelet_dlag2z.c b/runtime/openmp/codelets/codelet_dlag2z.c
index 5a5eae603..aa5c6a30d 100644
--- a/runtime/openmp/codelets/codelet_dlag2z.c
+++ b/runtime/openmp/codelets/codelet_dlag2z.c
@@ -31,4 +31,6 @@ void INSERT_TASK_dlag2z( const RUNTIME_option_t *options,
#pragma omp task firstprivate( uplo, m, n, tileA, tileB ) depend( in:tileA[0] ) depend( out:tileB[0] )
TCORE_dlag2z( uplo, m, n, tileA, tileB );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_dzasum.c b/runtime/openmp/codelets/codelet_dzasum.c
index 77679feda..38b052c0c 100644
--- a/runtime/openmp/codelets/codelet_dzasum.c
+++ b/runtime/openmp/codelets/codelet_dzasum.c
@@ -30,6 +30,6 @@ void INSERT_TASK_dzasum( const RUNTIME_option_t *options,
#pragma omp task firstprivate( storev, uplo, M, N, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
TCORE_dzasum( storev, uplo, M, N, tileA, tileB->mat );
-}
-
+ (void)options;
+}
diff --git a/runtime/openmp/codelets/codelet_map.c b/runtime/openmp/codelets/codelet_map.c
index 3e83e8b26..b58575ece 100644
--- a/runtime/openmp/codelets/codelet_map.c
+++ b/runtime/openmp/codelets/codelet_map.c
@@ -28,4 +28,5 @@ void INSERT_TASK_map( const RUNTIME_option_t *options,
op_fct( A, uplo, Am, An, tileA, op_args );
}
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zaxpy.c b/runtime/openmp/codelets/codelet_zaxpy.c
index e338591c3..8edbc3a15 100644
--- a/runtime/openmp/codelets/codelet_zaxpy.c
+++ b/runtime/openmp/codelets/codelet_zaxpy.c
@@ -29,5 +29,6 @@ void INSERT_TASK_zaxpy( const RUNTIME_option_t *options,
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
#pragma omp task firstprivate( M, alpha, incA, incB, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
TCORE_zaxpy( M, alpha, tileA, incA, tileB, incB );
-}
+ (void)options;
+}
diff --git a/runtime/openmp/codelets/codelet_zbuild.c b/runtime/openmp/codelets/codelet_zbuild.c
index 1e816497a..fc343e183 100644
--- a/runtime/openmp/codelets/codelet_zbuild.c
+++ b/runtime/openmp/codelets/codelet_zbuild.c
@@ -21,18 +21,20 @@
#include "coreblas/coreblas_ztile.h"
void INSERT_TASK_zbuild( const RUNTIME_option_t *options,
- const CHAM_desc_t *A, int Am, int An,
- void *user_data, void* user_build_callback )
+ const CHAM_desc_t *A, int Am, int An,
+ void *user_data, void* user_build_callback )
{
- int row_min, row_max, col_min, col_max;
- row_min = Am*A->mb ;
- row_max = Am == A->mt-1 ? A->m-1 : row_min+A->mb-1 ;
- col_min = An*A->nb ;
- col_max = An == A->nt-1 ? A->n-1 : col_min+A->nb-1 ;
- CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
- void ( *callback )( int row_min, int row_max, int col_min, int col_max, void *buffer, int ld, void *user_data ) ;
- callback = user_build_callback;
+ int row_min, row_max, col_min, col_max;
+ row_min = Am*A->mb ;
+ row_max = Am == A->mt-1 ? A->m-1 : row_min+A->mb-1 ;
+ col_min = An*A->nb ;
+ col_max = An == A->nt-1 ? A->n-1 : col_min+A->nb-1 ;
+ CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
+ void ( *callback )( int row_min, int row_max, int col_min, int col_max, void *buffer, int ld, void *user_data ) ;
+ callback = user_build_callback;
#pragma omp task firstprivate( row_min, row_max, col_min, col_max, tileA, user_data ) depend( inout:tileA[0] )
- callback( row_min, row_max, col_min, col_max, tileA->mat, tileA->ld, user_data );
+ callback( row_min, row_max, col_min, col_max, tileA->mat, tileA->ld, user_data );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zcesca.c b/runtime/openmp/codelets/codelet_zcesca.c
index e7724e52b..dc92f33d0 100644
--- a/runtime/openmp/codelets/codelet_zcesca.c
+++ b/runtime/openmp/codelets/codelet_zcesca.c
@@ -27,7 +27,7 @@ void INSERT_TASK_zcesca( const RUNTIME_option_t *options,
const CHAM_desc_t *G, int Gm, int Gn,
const CHAM_desc_t *Di, int Dim, int Din,
const CHAM_desc_t *Dj, int Djm, int Djn,
- CHAM_desc_t *A, int Am, int An )
+ CHAM_desc_t *A, int Am, int An )
{
CHAM_tile_t *tileGi = Gi->get_blktile( Gi, Gim, Gin );
CHAM_tile_t *tileGj = Gj->get_blktile( Gj, Gjm, Gjn );
@@ -39,4 +39,6 @@ void INSERT_TASK_zcesca( const RUNTIME_option_t *options,
#pragma omp task firstprivate( center, scale, axis, m, n, mt, nt, tileGi, tileGj, tileG, tileDi, tileDj, tileA ) depend( in:tileGi[0], tileGj[0], tileG[0], tileDi[0], tileDj[0] ) depend( inout:tileA[0] )
TCORE_zcesca( center, scale, axis, m, n, mt, nt,
tileGi, tileGj, tileG, tileDi, tileDj, tileA );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zgeadd.c b/runtime/openmp/codelets/codelet_zgeadd.c
index 2de3ceffd..253cce2a4 100644
--- a/runtime/openmp/codelets/codelet_zgeadd.c
+++ b/runtime/openmp/codelets/codelet_zgeadd.c
@@ -29,4 +29,7 @@ void INSERT_TASK_zgeadd( const RUNTIME_option_t *options,
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
#pragma omp task firstprivate( trans, m, n, alpha, beta, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
TCORE_zgeadd( trans, m, n, alpha, tileA, beta, tileB );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zgelqt.c b/runtime/openmp/codelets/codelet_zgelqt.c
index 5d83a1842..6a2993ef5 100644
--- a/runtime/openmp/codelets/codelet_zgelqt.c
+++ b/runtime/openmp/codelets/codelet_zgelqt.c
@@ -37,4 +37,7 @@ void INSERT_TASK_zgelqt( const RUNTIME_option_t *options,
TCORE_zlaset( ChamUpperLower, ib, m, 0., 0., tileT );
TCORE_zgelqt( m, n, ib, tileA, tileT, TAU, work );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zgemm.c b/runtime/openmp/codelets/codelet_zgemm.c
index 00b7979b1..5706c82d6 100644
--- a/runtime/openmp/codelets/codelet_zgemm.c
+++ b/runtime/openmp/codelets/codelet_zgemm.c
@@ -38,4 +38,7 @@ INSERT_TASK_zgemm( const RUNTIME_option_t *options,
alpha, tileA,
tileB,
beta, tileC );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zgemv.c b/runtime/openmp/codelets/codelet_zgemv.c
index afbab5721..8f87a1673 100644
--- a/runtime/openmp/codelets/codelet_zgemv.c
+++ b/runtime/openmp/codelets/codelet_zgemv.c
@@ -34,4 +34,6 @@ INSERT_TASK_zgemv( const RUNTIME_option_t *options,
TCORE_zgemv( trans, m, n,
alpha, tileA, tileX, incX,
beta, tileY, incY );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zgeqrt.c b/runtime/openmp/codelets/codelet_zgeqrt.c
index 8049e3a67..8bd38548a 100644
--- a/runtime/openmp/codelets/codelet_zgeqrt.c
+++ b/runtime/openmp/codelets/codelet_zgeqrt.c
@@ -37,4 +37,7 @@ void INSERT_TASK_zgeqrt( const RUNTIME_option_t *options,
TCORE_zlaset( ChamUpperLower, ib, n, 0., 0., tileT );
TCORE_zgeqrt( m, n, ib, tileA, tileT, TAU, work );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zgessm.c b/runtime/openmp/codelets/codelet_zgessm.c
index 20094e506..10d876a6e 100644
--- a/runtime/openmp/codelets/codelet_zgessm.c
+++ b/runtime/openmp/codelets/codelet_zgessm.c
@@ -29,6 +29,13 @@ void INSERT_TASK_zgessm( const RUNTIME_option_t *options,
{
CHAM_tile_t *tileD = D->get_blktile( D, Dm, Dn );
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
+
#pragma omp task firstprivate( m, n, k, ib, IPIV, tileD, tileA ) depend( in:tileD[0] ) depend( inout:tileA[0] )
TCORE_zgessm( m, n, k, ib, IPIV, tileD, tileA );
+
+ (void)options;
+ (void)nb;
+ (void)L;
+ (void)Lm;
+ (void)Ln;
}
diff --git a/runtime/openmp/codelets/codelet_zgessq.c b/runtime/openmp/codelets/codelet_zgessq.c
index 90e848576..132b3a9e9 100644
--- a/runtime/openmp/codelets/codelet_zgessq.c
+++ b/runtime/openmp/codelets/codelet_zgessq.c
@@ -30,4 +30,6 @@ void INSERT_TASK_zgessq( const RUNTIME_option_t *options,
CHAM_tile_t *tileScaleSum = SCALESUMSQ->get_blktile( SCALESUMSQ, SCALESUMSQm, SCALESUMSQn );
#pragma omp task firstprivate( storev, m, n, tileA, tileScaleSum ) depend( in:tileA[0] ) depend( inout:tileScaleSum[0] )
TCORE_zgessq( storev, m, n, tileA, tileScaleSum );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zgesum.c b/runtime/openmp/codelets/codelet_zgesum.c
index 86b7bfd08..f52f4bec5 100644
--- a/runtime/openmp/codelets/codelet_zgesum.c
+++ b/runtime/openmp/codelets/codelet_zgesum.c
@@ -28,4 +28,6 @@ void INSERT_TASK_zgesum( const RUNTIME_option_t *options,
CHAM_tile_t *tileScaleSum = SUMS->get_blktile( SUMS, SUMSm, SUMSn );
#pragma omp task firstprivate( storev, m, n, tileA, tileScaleSum ) depend( in:tileA[0] ) depend( inout:tileScaleSum[0] )
TCORE_zgesum( storev, m, n, tileA, tileScaleSum );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zgetrf.c b/runtime/openmp/codelets/codelet_zgetrf.c
index 87b9472cd..1f92b7a3d 100644
--- a/runtime/openmp/codelets/codelet_zgetrf.c
+++ b/runtime/openmp/codelets/codelet_zgetrf.c
@@ -28,6 +28,12 @@ void INSERT_TASK_zgetrf( const RUNTIME_option_t *options,
{
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
int info = 0;
+
#pragma omp task firstprivate( m, n, tileA, IPIV, info ) depend( out:IPIV[0] ) depend( inout:tileA[0] )
TCORE_zgetrf( m, n, tileA, IPIV, &info );
+
+ (void)options;
+ (void)nb;
+ (void)check_info;
+ (void)iinfo;
}
diff --git a/runtime/openmp/codelets/codelet_zgetrf_incpiv.c b/runtime/openmp/codelets/codelet_zgetrf_incpiv.c
index 456c247a9..1b8dad545 100644
--- a/runtime/openmp/codelets/codelet_zgetrf_incpiv.c
+++ b/runtime/openmp/codelets/codelet_zgetrf_incpiv.c
@@ -31,4 +31,12 @@ void INSERT_TASK_zgetrf_incpiv( const RUNTIME_option_t *options,
int info = 0;
#pragma omp task firstprivate( m, n, ib, tileA, IPIV, info ) depend( out:IPIV[0] ) depend( inout:tileA[0] )
TCORE_zgetrf_incpiv( m, n, ib, tileA, IPIV, &info );
+
+ (void)options;
+ (void)nb;
+ (void)L;
+ (void)Lm;
+ (void)Ln;
+ (void)check_info;
+ (void)iinfo;
}
diff --git a/runtime/openmp/codelets/codelet_zgetrf_nopiv.c b/runtime/openmp/codelets/codelet_zgetrf_nopiv.c
index 2e108a717..63a6a07ed 100644
--- a/runtime/openmp/codelets/codelet_zgetrf_nopiv.c
+++ b/runtime/openmp/codelets/codelet_zgetrf_nopiv.c
@@ -29,4 +29,8 @@ void INSERT_TASK_zgetrf_nopiv( const RUNTIME_option_t *options,
int info = 0;
#pragma omp task firstprivate( m, n, ib, tileA, info ) depend( inout:tileA[0] )
TCORE_zgetrf_nopiv( m, n, ib, tileA, &info );
+
+ (void)options;
+ (void)nb;
+ (void)iinfo;
}
diff --git a/runtime/openmp/codelets/codelet_zgram.c b/runtime/openmp/codelets/codelet_zgram.c
index d0356618c..b8805f0da 100644
--- a/runtime/openmp/codelets/codelet_zgram.c
+++ b/runtime/openmp/codelets/codelet_zgram.c
@@ -37,4 +37,6 @@ void INSERT_TASK_zgram( const RUNTIME_option_t *options,
#pragma omp task firstprivate( uplo, m, n, mt, nt, tileDi, tileDj, tileD, tileA ) depend( in:tileDi[0], tileDj[0], tileD[0] ) depend( inout:tileA[0] )
TCORE_zgram( uplo, m, n, mt, nt,
tileDi, tileDj, tileD, tileA );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zhe2ge.c b/runtime/openmp/codelets/codelet_zhe2ge.c
index 7830f55b1..61265d7b0 100644
--- a/runtime/openmp/codelets/codelet_zhe2ge.c
+++ b/runtime/openmp/codelets/codelet_zhe2ge.c
@@ -22,13 +22,16 @@
#include "coreblas/coreblas_ztile.h"
void INSERT_TASK_zhe2ge( const RUNTIME_option_t *options,
- cham_uplo_t uplo,
- int m, int n, int mb,
- const CHAM_desc_t *A, int Am, int An,
- const CHAM_desc_t *B, int Bm, int Bn )
+ cham_uplo_t uplo,
+ int m, int n, int nb,
+ const CHAM_desc_t *A, int Am, int An,
+ const CHAM_desc_t *B, int Bm, int Bn )
{
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
#pragma omp task firstprivate( uplo, m, n, tileA, tileB ) depend( in: tileA[0] ) depend( inout:tileB[0] )
TCORE_zhe2ge( uplo, m, n, tileA, tileB );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zhemm.c b/runtime/openmp/codelets/codelet_zhemm.c
index 820e2dd61..9be2378ae 100644
--- a/runtime/openmp/codelets/codelet_zhemm.c
+++ b/runtime/openmp/codelets/codelet_zhemm.c
@@ -36,4 +36,7 @@ void INSERT_TASK_zhemm( const RUNTIME_option_t *options,
alpha, tileA,
tileB,
beta, tileC );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zher2k.c b/runtime/openmp/codelets/codelet_zher2k.c
index 3f6dc7ed6..85c1471f5 100644
--- a/runtime/openmp/codelets/codelet_zher2k.c
+++ b/runtime/openmp/codelets/codelet_zher2k.c
@@ -33,4 +33,7 @@ void INSERT_TASK_zher2k( const RUNTIME_option_t *options,
#pragma omp task firstprivate( uplo, trans, n, k, alpha, tileA, tileB, beta, tileC ) depend( in:tileA[0], tileB[0] ) depend( inout:tileC[0] )
TCORE_zher2k( uplo, trans,
n, k, alpha, tileA, tileB, beta, tileC );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zherfb.c b/runtime/openmp/codelets/codelet_zherfb.c
index 249b5aef7..0be021135 100644
--- a/runtime/openmp/codelets/codelet_zherfb.c
+++ b/runtime/openmp/codelets/codelet_zherfb.c
@@ -37,4 +37,7 @@ void INSERT_TASK_zherfb( const RUNTIME_option_t *options,
CHAMELEON_Complex64_t work[ws_size];
TCORE_zherfb( uplo, n, k, ib, nb, tileA, tileT, tileC, work, nb );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zherk.c b/runtime/openmp/codelets/codelet_zherk.c
index 55a1540b7..d3187185e 100644
--- a/runtime/openmp/codelets/codelet_zherk.c
+++ b/runtime/openmp/codelets/codelet_zherk.c
@@ -33,4 +33,7 @@ void INSERT_TASK_zherk( const RUNTIME_option_t *options,
n, k,
alpha, tileA,
beta, tileC );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zlacpy.c b/runtime/openmp/codelets/codelet_zlacpy.c
index 0cd94f33a..3728f844d 100644
--- a/runtime/openmp/codelets/codelet_zlacpy.c
+++ b/runtime/openmp/codelets/codelet_zlacpy.c
@@ -38,6 +38,9 @@ void INSERT_TASK_zlacpyx( const RUNTIME_option_t *options,
CORE_zlacpy( uplo, m, n, A + displA, tileA->ld, B + displB, tileB->ld );
}
+
+ (void)options;
+ (void)nb;
}
void INSERT_TASK_zlacpy( const RUNTIME_option_t *options,
diff --git a/runtime/openmp/codelets/codelet_zlag2c.c b/runtime/openmp/codelets/codelet_zlag2c.c
index 45e6d921b..b8ef54827 100644
--- a/runtime/openmp/codelets/codelet_zlag2c.c
+++ b/runtime/openmp/codelets/codelet_zlag2c.c
@@ -29,6 +29,9 @@ void INSERT_TASK_zlag2c( const RUNTIME_option_t *options,
CHAMELEON_Complex32_t *tileB = B->get_blktile( B, Bm, Bn );
#pragma omp task firstprivate( m, n, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
TCORE_zlag2c( m, n, tileA, tileB );
+
+ (void)options;
+ (void)nb;
}
void INSERT_TASK_clag2z( const RUNTIME_option_t *options,
@@ -40,4 +43,7 @@ void INSERT_TASK_clag2z( const RUNTIME_option_t *options,
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
#pragma omp task firstprivate( m, n, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
TCORE_clag2z( m, n, tileA, tileB );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zlange.c b/runtime/openmp/codelets/codelet_zlange.c
index 3c4a46a0b..80a04cdf4 100644
--- a/runtime/openmp/codelets/codelet_zlange.c
+++ b/runtime/openmp/codelets/codelet_zlange.c
@@ -21,23 +21,26 @@
#include "coreblas/coreblas_ztile.h"
void INSERT_TASK_zlange( const RUNTIME_option_t *options,
- cham_normtype_t norm, int M, int N, int NB,
+ cham_normtype_t norm, int m, int n, int nb,
const CHAM_desc_t *A, int Am, int An,
const CHAM_desc_t *B, int Bm, int Bn )
{
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
int ws_size = options->ws_wsize;
-#pragma omp task firstprivate( ws_size, M, N, tileA, tileB, options ) depend( in:tileA[0] ) depend( inout:tileB[0] )
+#pragma omp task firstprivate( ws_size, m, n, tileA, tileB, options ) depend( in:tileA[0] ) depend( inout:tileB[0] )
{
double work[ws_size];
- TCORE_zlange( norm, M, N, tileA, work, tileB->mat );
+ TCORE_zlange( norm, m, n, tileA, work, tileB->mat );
}
+
+ (void)options;
+ (void)nb;
}
void INSERT_TASK_zlange_max( const RUNTIME_option_t *options,
- const CHAM_desc_t *A, int Am, int An,
- const CHAM_desc_t *B, int Bm, int Bn )
+ const CHAM_desc_t *A, int Am, int An,
+ const CHAM_desc_t *B, int Bm, int Bn )
{
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
@@ -53,4 +56,6 @@ void INSERT_TASK_zlange_max( const RUNTIME_option_t *options,
B[0] = A[0];
}
}
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zlanhe.c b/runtime/openmp/codelets/codelet_zlanhe.c
index 3b033ffb6..dd73a7ba5 100644
--- a/runtime/openmp/codelets/codelet_zlanhe.c
+++ b/runtime/openmp/codelets/codelet_zlanhe.c
@@ -21,7 +21,7 @@
#include "coreblas/coreblas_ztile.h"
void INSERT_TASK_zlanhe( const RUNTIME_option_t *options,
- cham_normtype_t norm, cham_uplo_t uplo, int N, int NB,
+ cham_normtype_t norm, cham_uplo_t uplo, int n, int nb,
const CHAM_desc_t *A, int Am, int An,
const CHAM_desc_t *B, int Bm, int Bn )
{
@@ -29,9 +29,12 @@ void INSERT_TASK_zlanhe( const RUNTIME_option_t *options,
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
int ws_size = options->ws_wsize;
-#pragma omp task firstprivate( ws_size, norm, uplo, N, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
+#pragma omp task firstprivate( ws_size, norm, uplo, n, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
{
double work[ws_size];
- TCORE_zlanhe( norm, uplo, N, tileA, work, tileB->mat );
+ TCORE_zlanhe( norm, uplo, n, tileA, work, tileB->mat );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zlansy.c b/runtime/openmp/codelets/codelet_zlansy.c
index 68e386014..505e9be55 100644
--- a/runtime/openmp/codelets/codelet_zlansy.c
+++ b/runtime/openmp/codelets/codelet_zlansy.c
@@ -21,7 +21,7 @@
#include "coreblas/coreblas_ztile.h"
void INSERT_TASK_zlansy( const RUNTIME_option_t *options,
- cham_normtype_t norm, cham_uplo_t uplo, int N, int NB,
+ cham_normtype_t norm, cham_uplo_t uplo, int n, int nb,
const CHAM_desc_t *A, int Am, int An,
const CHAM_desc_t *B, int Bm, int Bn )
{
@@ -29,9 +29,12 @@ void INSERT_TASK_zlansy( const RUNTIME_option_t *options,
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
int ws_size = options->ws_wsize;
-#pragma omp task firstprivate( ws_size, norm, uplo, N, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
+#pragma omp task firstprivate( ws_size, norm, uplo, n, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
{
double work[ws_size];
- TCORE_zlansy( norm, uplo, N, tileA, work, tileB->mat );
+ TCORE_zlansy( norm, uplo, n, tileA, work, tileB->mat );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zlantr.c b/runtime/openmp/codelets/codelet_zlantr.c
index 196b2a6a3..e667cd1a7 100644
--- a/runtime/openmp/codelets/codelet_zlantr.c
+++ b/runtime/openmp/codelets/codelet_zlantr.c
@@ -22,16 +22,19 @@
void INSERT_TASK_zlantr( const RUNTIME_option_t *options,
cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag,
- int M, int N, int NB,
+ int m, int n, int nb,
const CHAM_desc_t *A, int Am, int An,
const CHAM_desc_t *B, int Bm, int Bn )
{
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
int ws_wsize = options->ws_wsize;
-#pragma omp task firstprivate( ws_wsize, norm, uplo, diag, M, N, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
+#pragma omp task firstprivate( ws_wsize, norm, uplo, diag, m, n, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
{
double work[ws_wsize];
- TCORE_zlantr( norm, uplo, diag, M, N, tileA, work, tileB->mat );
+ TCORE_zlantr( norm, uplo, diag, m, n, tileA, work, tileB->mat );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zlascal.c b/runtime/openmp/codelets/codelet_zlascal.c
index 12f8943f6..5b4757837 100644
--- a/runtime/openmp/codelets/codelet_zlascal.c
+++ b/runtime/openmp/codelets/codelet_zlascal.c
@@ -29,4 +29,7 @@ void INSERT_TASK_zlascal( const RUNTIME_option_t *options,
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
#pragma omp task firstprivate( uplo, m, n, alpha, tileA ) depend( inout:tileA[0] )
TCORE_zlascal( uplo, m, n, alpha, tileA );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zlaset.c b/runtime/openmp/codelets/codelet_zlaset.c
index d186893da..512038621 100644
--- a/runtime/openmp/codelets/codelet_zlaset.c
+++ b/runtime/openmp/codelets/codelet_zlaset.c
@@ -21,11 +21,13 @@
#include "coreblas/coreblas_ztile.h"
void INSERT_TASK_zlaset( const RUNTIME_option_t *options,
- cham_uplo_t uplo, int M, int N,
+ cham_uplo_t uplo, int m, int n,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t beta,
const CHAM_desc_t *A, int Am, int An )
{
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
-#pragma omp task firstprivate( uplo, M, N, alpha, beta, tileA ) depend( inout:tileA[0] )
- TCORE_zlaset( uplo, M, N, alpha, beta, tileA );
+#pragma omp task firstprivate( uplo, m, n, alpha, beta, tileA ) depend( inout:tileA[0] )
+ TCORE_zlaset( uplo, m, n, alpha, beta, tileA );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zlaset2.c b/runtime/openmp/codelets/codelet_zlaset2.c
index 53e783094..957a2dce8 100644
--- a/runtime/openmp/codelets/codelet_zlaset2.c
+++ b/runtime/openmp/codelets/codelet_zlaset2.c
@@ -21,11 +21,13 @@
#include "coreblas/coreblas_ztile.h"
void INSERT_TASK_zlaset2( const RUNTIME_option_t *options,
- cham_uplo_t uplo, int M, int N,
+ cham_uplo_t uplo, int m, int n,
CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An )
{
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
-#pragma omp task firstprivate( uplo, M, N, alpha, tileA ) depend( inout:tileA[0] )
- TCORE_zlaset2( uplo, M, N, alpha, tileA );
+#pragma omp task firstprivate( uplo, m, n, alpha, tileA ) depend( inout:tileA[0] )
+ TCORE_zlaset2( uplo, m, n, alpha, tileA );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zlatro.c b/runtime/openmp/codelets/codelet_zlatro.c
index 9949e1ba6..fc5f6ed18 100644
--- a/runtime/openmp/codelets/codelet_zlatro.c
+++ b/runtime/openmp/codelets/codelet_zlatro.c
@@ -22,7 +22,7 @@
void INSERT_TASK_zlatro( const RUNTIME_option_t *options,
cham_uplo_t uplo, cham_trans_t trans,
- int m, int n, int mb,
+ int m, int n, int nb,
const CHAM_desc_t *A, int Am, int An,
const CHAM_desc_t *B, int Bm, int Bn )
{
@@ -30,4 +30,7 @@ void INSERT_TASK_zlatro( const RUNTIME_option_t *options,
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
#pragma omp task firstprivate( uplo, trans, m, n, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
TCORE_zlatro( uplo, trans, m, n, tileA, tileB );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zlauum.c b/runtime/openmp/codelets/codelet_zlauum.c
index 8fd2e83b0..173685b40 100644
--- a/runtime/openmp/codelets/codelet_zlauum.c
+++ b/runtime/openmp/codelets/codelet_zlauum.c
@@ -21,10 +21,13 @@
#include "coreblas/coreblas_ztile.h"
void INSERT_TASK_zlauum( const RUNTIME_option_t *options,
- cham_uplo_t uplo, int n, int nb,
- const CHAM_desc_t *A, int Am, int An )
+ cham_uplo_t uplo, int n, int nb,
+ const CHAM_desc_t *A, int Am, int An )
{
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
#pragma omp task firstprivate( uplo, n, tileA ) depend( inout:tileA[0] )
TCORE_zlauum( uplo, n, tileA );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zplghe.c b/runtime/openmp/codelets/codelet_zplghe.c
index 7101990da..733fd0a3f 100644
--- a/runtime/openmp/codelets/codelet_zplghe.c
+++ b/runtime/openmp/codelets/codelet_zplghe.c
@@ -27,4 +27,6 @@ void INSERT_TASK_zplghe( const RUNTIME_option_t *options,
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
#pragma omp task firstprivate( bump, m, n, tileA, bigM, m0, n0, seed ) depend( inout:tileA[0] )
TCORE_zplghe( bump, m, n, tileA, bigM, m0, n0, seed );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zplgsy.c b/runtime/openmp/codelets/codelet_zplgsy.c
index ad0118c80..76a7bc4e8 100644
--- a/runtime/openmp/codelets/codelet_zplgsy.c
+++ b/runtime/openmp/codelets/codelet_zplgsy.c
@@ -27,4 +27,6 @@ void INSERT_TASK_zplgsy( const RUNTIME_option_t *options,
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
#pragma omp task firstprivate( bump, m, n, tileA, bigM, m0, n0, seed ) depend( inout:tileA[0] )
TCORE_zplgsy( bump, m, n, tileA, bigM, m0, n0, seed );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zplrnt.c b/runtime/openmp/codelets/codelet_zplrnt.c
index a51f306b3..1c58d5a5e 100644
--- a/runtime/openmp/codelets/codelet_zplrnt.c
+++ b/runtime/openmp/codelets/codelet_zplrnt.c
@@ -27,4 +27,6 @@ void INSERT_TASK_zplrnt( const RUNTIME_option_t *options,
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
#pragma omp task firstprivate( m, n, tileA, bigM, m0, n0, seed ) depend( inout:tileA[0] )
TCORE_zplrnt( m, n, tileA, bigM, m0, n0, seed );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zplssq.c b/runtime/openmp/codelets/codelet_zplssq.c
index 5ef57d098..26c42c0da 100644
--- a/runtime/openmp/codelets/codelet_zplssq.c
+++ b/runtime/openmp/codelets/codelet_zplssq.c
@@ -17,7 +17,6 @@
* @precisions normal z -> c d s
*
*/
-#include <math.h>
#include "chameleon_openmp.h"
#include "chameleon/tasks_z.h"
#include "coreblas/coreblas_ztile.h"
@@ -35,6 +34,8 @@ void INSERT_TASK_zplssq( const RUNTIME_option_t *options,
#pragma omp task firstprivate( storev, M, N ) depend( in: tileIN[0] ) depend( inout: tileOUT[0] )
CORE_zplssq( storev, M, N, tileIN->mat, tileOUT->mat );
+
+ (void)options;
}
void INSERT_TASK_zplssq2( const RUNTIME_option_t *options, int N,
@@ -46,4 +47,6 @@ void INSERT_TASK_zplssq2( const RUNTIME_option_t *options, int N,
#pragma omp task firstprivate( N ) depend( inout: tileRESULT[0] )
CORE_zplssq2( N, tileRESULT->mat );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zpotrf.c b/runtime/openmp/codelets/codelet_zpotrf.c
index 239344a86..7bfca86e9 100644
--- a/runtime/openmp/codelets/codelet_zpotrf.c
+++ b/runtime/openmp/codelets/codelet_zpotrf.c
@@ -26,9 +26,12 @@ void INSERT_TASK_zpotrf( const RUNTIME_option_t *options,
const CHAM_desc_t *A, int Am, int An,
int iinfo )
{
- ( void )nb;
int info = 0;
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
#pragma omp task firstprivate( uplo, n, info, tileA ) depend( inout:tileA[0] )
TCORE_zpotrf( uplo, n, tileA, &info );
+
+ (void)options;
+ (void)nb;
+ (void)iinfo;
}
diff --git a/runtime/openmp/codelets/codelet_zssssm.c b/runtime/openmp/codelets/codelet_zssssm.c
index cb7cad2b4..fd498f71f 100644
--- a/runtime/openmp/codelets/codelet_zssssm.c
+++ b/runtime/openmp/codelets/codelet_zssssm.c
@@ -36,4 +36,7 @@ void INSERT_TASK_zssssm( const RUNTIME_option_t *options,
#pragma omp task firstprivate( m1, n1, m2, n2, k, ib, tileA1, tileA2, tileL1, tileL2, IPIV ) \
depend( inout:tileA1[0], tileA2[0] ) depend( in:tileL1[0], tileL2[0] )
TCORE_zssssm( m1, n1, m2, n2, k, ib, tileA1, tileA2, tileL1, tileL2, IPIV );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zsymm.c b/runtime/openmp/codelets/codelet_zsymm.c
index 9e200c98d..a87d3da6b 100644
--- a/runtime/openmp/codelets/codelet_zsymm.c
+++ b/runtime/openmp/codelets/codelet_zsymm.c
@@ -36,4 +36,7 @@ void INSERT_TASK_zsymm( const RUNTIME_option_t *options,
alpha, tileA,
tileB,
beta, tileC );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zsyr2k.c b/runtime/openmp/codelets/codelet_zsyr2k.c
index 28e8d2406..d5380de40 100644
--- a/runtime/openmp/codelets/codelet_zsyr2k.c
+++ b/runtime/openmp/codelets/codelet_zsyr2k.c
@@ -27,11 +27,13 @@ void INSERT_TASK_zsyr2k( const RUNTIME_option_t *options,
const CHAM_desc_t *B, int Bm, int Bn,
CHAMELEON_Complex64_t beta, const CHAM_desc_t *C, int Cm, int Cn )
{
- ( void )nb;
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
CHAM_tile_t *tileC = C->get_blktile( C, Cm, Cn );
#pragma omp task firstprivate( uplo, trans, n, k, alpha, tileA, tileB, beta, tileC ) depend( in:tileA[0], tileB[0] ) depend( inout:tileC[0] )
TCORE_zsyr2k( uplo, trans,
n, k, alpha, tileA, tileB, beta, tileC );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zsyrk.c b/runtime/openmp/codelets/codelet_zsyrk.c
index 78e0757bb..098adc94e 100644
--- a/runtime/openmp/codelets/codelet_zsyrk.c
+++ b/runtime/openmp/codelets/codelet_zsyrk.c
@@ -26,7 +26,6 @@ void INSERT_TASK_zsyrk( const RUNTIME_option_t *options,
CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An,
CHAMELEON_Complex64_t beta, const CHAM_desc_t *C, int Cm, int Cn )
{
- ( void )nb;
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
CHAM_tile_t *tileC = C->get_blktile( C, Cm, Cn );
#pragma omp task firstprivate( uplo, trans, n, k, alpha, tileA, beta, tileC ) depend( in:tileA[0] ) depend( inout:tileC[0] )
@@ -34,4 +33,7 @@ void INSERT_TASK_zsyrk( const RUNTIME_option_t *options,
n, k,
alpha, tileA,
beta, tileC );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zsyssq.c b/runtime/openmp/codelets/codelet_zsyssq.c
index aeac8a474..fa3d1799c 100644
--- a/runtime/openmp/codelets/codelet_zsyssq.c
+++ b/runtime/openmp/codelets/codelet_zsyssq.c
@@ -30,4 +30,6 @@ void INSERT_TASK_zsyssq( const RUNTIME_option_t *options,
CHAM_tile_t *tileSCALESUMSQ = SCALESUMSQ->get_blktile( SCALESUMSQ, SCALESUMSQm, SCALESUMSQn );
#pragma omp task firstprivate( storev, uplo, n, tileA, tileSCALESUMSQ ) depend( in:tileA[0] ) depend( inout:tileSCALESUMSQ[0] )
TCORE_zsyssq( storev, uplo, n, tileA, tileSCALESUMSQ );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_zsytrf_nopiv.c b/runtime/openmp/codelets/codelet_zsytrf_nopiv.c
index 8b081daf8..6219d3019 100644
--- a/runtime/openmp/codelets/codelet_zsytrf_nopiv.c
+++ b/runtime/openmp/codelets/codelet_zsytrf_nopiv.c
@@ -28,4 +28,8 @@ void INSERT_TASK_zsytrf_nopiv( const RUNTIME_option_t *options,
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
#pragma omp task firstprivate( uplo, n, tileA ) depend( inout:tileA[0] )
TCORE_zsytf2_nopiv( uplo, n, tileA );
+
+ (void)options;
+ (void)nb;
+ (void)iinfo;
}
diff --git a/runtime/openmp/codelets/codelet_ztplqt.c b/runtime/openmp/codelets/codelet_ztplqt.c
index 32014ff54..f158c4e26 100644
--- a/runtime/openmp/codelets/codelet_ztplqt.c
+++ b/runtime/openmp/codelets/codelet_ztplqt.c
@@ -39,4 +39,7 @@ void INSERT_TASK_ztplqt( const RUNTIME_option_t *options,
TCORE_ztplqt( M, N, L, ib,
tileA, tileB, tileT, work );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_ztpmlqt.c b/runtime/openmp/codelets/codelet_ztpmlqt.c
index c0eb2ebfb..abad44da2 100644
--- a/runtime/openmp/codelets/codelet_ztpmlqt.c
+++ b/runtime/openmp/codelets/codelet_ztpmlqt.c
@@ -38,4 +38,7 @@ void INSERT_TASK_ztpmlqt( const RUNTIME_option_t *options,
TCORE_ztpmlqt( side, trans, M, N, K, L, ib,
tileV, tileT, tileA, tileB, work );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_ztpmqrt.c b/runtime/openmp/codelets/codelet_ztpmqrt.c
index d8cd06e69..a264b0117 100644
--- a/runtime/openmp/codelets/codelet_ztpmqrt.c
+++ b/runtime/openmp/codelets/codelet_ztpmqrt.c
@@ -38,4 +38,7 @@ void INSERT_TASK_ztpmqrt( const RUNTIME_option_t *options,
TCORE_ztpmqrt( side, trans, M, N, K, L, ib,
tileV, tileT, tileA, tileB, tmp );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_ztpqrt.c b/runtime/openmp/codelets/codelet_ztpqrt.c
index 95a166f46..5bbfa7f4e 100644
--- a/runtime/openmp/codelets/codelet_ztpqrt.c
+++ b/runtime/openmp/codelets/codelet_ztpqrt.c
@@ -39,4 +39,7 @@ void INSERT_TASK_ztpqrt( const RUNTIME_option_t *options,
TCORE_ztpqrt( M, N, L, ib,
tileA, tileB, tileT, tmp );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_ztradd.c b/runtime/openmp/codelets/codelet_ztradd.c
index f057ef56e..662d830f8 100644
--- a/runtime/openmp/codelets/codelet_ztradd.c
+++ b/runtime/openmp/codelets/codelet_ztradd.c
@@ -30,4 +30,7 @@ void INSERT_TASK_ztradd( const RUNTIME_option_t *options,
#pragma omp task firstprivate( uplo, trans, m, n, alpha, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
TCORE_ztradd( uplo, trans, m, n, alpha, tileA, beta, tileB );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_ztrasm.c b/runtime/openmp/codelets/codelet_ztrasm.c
index edd3f5ab7..dc201b02c 100644
--- a/runtime/openmp/codelets/codelet_ztrasm.c
+++ b/runtime/openmp/codelets/codelet_ztrasm.c
@@ -21,12 +21,14 @@
#include "coreblas/coreblas_ztile.h"
void INSERT_TASK_ztrasm( const RUNTIME_option_t *options,
- cham_store_t storev, cham_uplo_t uplo, cham_diag_t diag, int M, int N,
- const CHAM_desc_t *A, int Am, int An,
- const CHAM_desc_t *B, int Bm, int Bn )
+ cham_store_t storev, cham_uplo_t uplo, cham_diag_t diag, int m, int n,
+ const CHAM_desc_t *A, int Am, int An,
+ const CHAM_desc_t *B, int Bm, int Bn )
{
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
-#pragma omp task firstprivate( storev, uplo, diag, M, N, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
- TCORE_ztrasm( storev, uplo, diag, M, N, tileA, tileB->mat );
+#pragma omp task firstprivate( storev, uplo, diag, m, n, tileA, tileB ) depend( in:tileA[0] ) depend( inout:tileB[0] )
+ TCORE_ztrasm( storev, uplo, diag, m, n, tileA, tileB->mat );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_ztrmm.c b/runtime/openmp/codelets/codelet_ztrmm.c
index 8b65e6fcf..fc8e2b3ff 100644
--- a/runtime/openmp/codelets/codelet_ztrmm.c
+++ b/runtime/openmp/codelets/codelet_ztrmm.c
@@ -21,10 +21,10 @@
#include "coreblas/coreblas_ztile.h"
void INSERT_TASK_ztrmm( const RUNTIME_option_t *options,
- cham_side_t side, cham_uplo_t uplo, cham_trans_t transA, cham_diag_t diag,
- int m, int n, int nb,
- CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An,
- const CHAM_desc_t *B, int Bm, int Bn )
+ cham_side_t side, cham_uplo_t uplo, cham_trans_t transA, cham_diag_t diag,
+ int m, int n, int nb,
+ CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An,
+ const CHAM_desc_t *B, int Bm, int Bn )
{
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
@@ -34,4 +34,7 @@ void INSERT_TASK_ztrmm( const RUNTIME_option_t *options,
m, n,
alpha, tileA,
tileB );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_ztrsm.c b/runtime/openmp/codelets/codelet_ztrsm.c
index b4ac19be4..741afef27 100644
--- a/runtime/openmp/codelets/codelet_ztrsm.c
+++ b/runtime/openmp/codelets/codelet_ztrsm.c
@@ -21,10 +21,10 @@
#include "coreblas/coreblas_ztile.h"
void INSERT_TASK_ztrsm( const RUNTIME_option_t *options,
- cham_side_t side, cham_uplo_t uplo, cham_trans_t transA, cham_diag_t diag,
- int m, int n, int nb,
- CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An,
- const CHAM_desc_t *B, int Bm, int Bn )
+ cham_side_t side, cham_uplo_t uplo, cham_trans_t transA, cham_diag_t diag,
+ int m, int n, int nb,
+ CHAMELEON_Complex64_t alpha, const CHAM_desc_t *A, int Am, int An,
+ const CHAM_desc_t *B, int Bm, int Bn )
{
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
CHAM_tile_t *tileB = B->get_blktile( B, Bm, Bn );
@@ -34,4 +34,7 @@ void INSERT_TASK_ztrsm( const RUNTIME_option_t *options,
m, n,
alpha, tileA,
tileB );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_ztrssq.c b/runtime/openmp/codelets/codelet_ztrssq.c
index 933594990..a7f275654 100644
--- a/runtime/openmp/codelets/codelet_ztrssq.c
+++ b/runtime/openmp/codelets/codelet_ztrssq.c
@@ -30,4 +30,6 @@ void INSERT_TASK_ztrssq( const RUNTIME_option_t *options,
CHAM_tile_t *tileW = W->get_blktile( W, Wm, Wn );
#pragma omp task firstprivate( uplo, diag, m, n, tileA, tileW ) depend( in:tileA[0] ) depend( inout:tileW[0] )
TCORE_ztrssq( uplo, diag, m, n, tileA, tileW );
+
+ (void)options;
}
diff --git a/runtime/openmp/codelets/codelet_ztrtri.c b/runtime/openmp/codelets/codelet_ztrtri.c
index 6d86f196f..18491ba08 100644
--- a/runtime/openmp/codelets/codelet_ztrtri.c
+++ b/runtime/openmp/codelets/codelet_ztrtri.c
@@ -29,4 +29,7 @@ void INSERT_TASK_ztrtri( const RUNTIME_option_t *options,
CHAM_tile_t *tileA = A->get_blktile( A, Am, An );
#pragma omp task firstprivate( uplo, diag, n, tileA, iinfo ) depend( inout:tileA[0] )
TCORE_ztrtri( uplo, diag, n, tileA, &iinfo );
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_ztsmlq_hetra1.c b/runtime/openmp/codelets/codelet_ztsmlq_hetra1.c
index 68835ee23..f6ab02011 100644
--- a/runtime/openmp/codelets/codelet_ztsmlq_hetra1.c
+++ b/runtime/openmp/codelets/codelet_ztsmlq_hetra1.c
@@ -42,4 +42,7 @@ void INSERT_TASK_ztsmlq_hetra1( const RUNTIME_option_t *options,
TCORE_ztsmlq_hetra1( side, trans, m1, n1, m2, n2, k,
ib, tileA1, tileA2, tileV, tileT, work, ldwork );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_ztsmqr_hetra1.c b/runtime/openmp/codelets/codelet_ztsmqr_hetra1.c
index 4bd4921eb..1a32871fc 100644
--- a/runtime/openmp/codelets/codelet_ztsmqr_hetra1.c
+++ b/runtime/openmp/codelets/codelet_ztsmqr_hetra1.c
@@ -42,4 +42,7 @@ void INSERT_TASK_ztsmqr_hetra1( const RUNTIME_option_t *options,
TCORE_ztsmqr_hetra1( side, trans, m1, n1, m2, n2, k,
ib, tileA1, tileA2, tileV, tileT, work, ldwork );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_ztstrf.c b/runtime/openmp/codelets/codelet_ztstrf.c
index e86b34e62..9ef66b00f 100644
--- a/runtime/openmp/codelets/codelet_ztstrf.c
+++ b/runtime/openmp/codelets/codelet_ztstrf.c
@@ -37,4 +37,9 @@ void INSERT_TASK_ztstrf( const RUNTIME_option_t *options,
CHAMELEON_Complex64_t work[ws_size];
TCORE_ztstrf( m, n, ib, nb, tileU, tileA, tileL, IPIV, work, nb, &iinfo );
}
+
+ (void)options;
+ (void)nb;
+ (void)check_info;
+ (void)iinfo;
}
diff --git a/runtime/openmp/codelets/codelet_zunmlq.c b/runtime/openmp/codelets/codelet_zunmlq.c
index 8ff6ab309..134a7b493 100644
--- a/runtime/openmp/codelets/codelet_zunmlq.c
+++ b/runtime/openmp/codelets/codelet_zunmlq.c
@@ -37,4 +37,7 @@ void INSERT_TASK_zunmlq( const RUNTIME_option_t *options,
TCORE_zunmlq( side, trans, m, n, k, ib,
tileA, tileT, tileC, work, nb );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/codelets/codelet_zunmqr.c b/runtime/openmp/codelets/codelet_zunmqr.c
index 26a47ad6f..251a27a67 100644
--- a/runtime/openmp/codelets/codelet_zunmqr.c
+++ b/runtime/openmp/codelets/codelet_zunmqr.c
@@ -37,4 +37,7 @@ void INSERT_TASK_zunmqr( const RUNTIME_option_t *options,
TCORE_zunmqr( side, trans, m, n, k, ib,
tileA, tileT, tileC, tmp, nb );
}
+
+ (void)options;
+ (void)nb;
}
diff --git a/runtime/openmp/control/runtime_async.c b/runtime/openmp/control/runtime_async.c
index fb921cf35..d14a19791 100644
--- a/runtime/openmp/control/runtime_async.c
+++ b/runtime/openmp/control/runtime_async.c
@@ -19,7 +19,6 @@
* @date 2020-04-22
*
*/
-#include <stdlib.h>
#include "chameleon_openmp.h"
/**
@@ -107,4 +106,4 @@ int RUNTIME_request_set( CHAM_context_t *chamctxt,
(void)param;
(void)value;
return CHAMELEON_SUCCESS;
-}
\ No newline at end of file
+}
diff --git a/runtime/openmp/control/runtime_context.c b/runtime/openmp/control/runtime_context.c
index bd99804d3..b83faded2 100644
--- a/runtime/openmp/control/runtime_context.c
+++ b/runtime/openmp/control/runtime_context.c
@@ -19,7 +19,6 @@
* @date 2020-03-03
*
*/
-#include <stdlib.h>
#include "chameleon_openmp.h"
/**
@@ -59,6 +58,7 @@ void RUNTIME_enable( void *runtime_ctxt, int lever )
default:
return;
}
+ (void)runtime_ctxt;
return;
}
@@ -81,5 +81,6 @@ void RUNTIME_disable( void *runtime_ctxt, int lever )
default:
return;
}
+ (void)runtime_ctxt;
return;
}
diff --git a/runtime/openmp/control/runtime_control.c b/runtime/openmp/control/runtime_control.c
index dd4491153..6ab7dc0e7 100644
--- a/runtime/openmp/control/runtime_control.c
+++ b/runtime/openmp/control/runtime_control.c
@@ -20,7 +20,6 @@
* @date 2020-04-22
*
*/
-#include <stdlib.h>
#include "chameleon_openmp.h"
/**
diff --git a/runtime/openmp/control/runtime_descriptor.c b/runtime/openmp/control/runtime_descriptor.c
index 1f4a9d3e1..87c46728d 100644
--- a/runtime/openmp/control/runtime_descriptor.c
+++ b/runtime/openmp/control/runtime_descriptor.c
@@ -19,7 +19,6 @@
* @date 2020-03-03
*
*/
-#include <stdlib.h>
#include "chameleon_openmp.h"
void RUNTIME_comm_set_tag_sizes( int user_tag_width,
diff --git a/runtime/openmp/control/runtime_options.c b/runtime/openmp/control/runtime_options.c
index 5e5a2e528..04aaca357 100644
--- a/runtime/openmp/control/runtime_options.c
+++ b/runtime/openmp/control/runtime_options.c
@@ -19,7 +19,6 @@
* @date 2020-03-03
*
*/
-#include <stdlib.h>
#include "chameleon_openmp.h"
void RUNTIME_options_init( RUNTIME_option_t *option, CHAM_context_t *chamctxt,
@@ -46,7 +45,7 @@ void RUNTIME_options_finalize( RUNTIME_option_t *option, CHAM_context_t *chamctx
int RUNTIME_options_ws_alloc( RUNTIME_option_t *options, size_t worker_size, size_t host_size )
{
- if (worker_size > 0) {
+ if ( worker_size > 0 ) {
/*
* NOTE: we set the size, but instead of doing a malloc shared by multiple workers,
* we just create a VLA in the relevant codelets, within the task's body.
@@ -54,6 +53,7 @@ int RUNTIME_options_ws_alloc( RUNTIME_option_t *options, size_t worker_size, siz
*/
options->ws_wsize = worker_size;
}
+ (void)host_size;
return CHAMELEON_SUCCESS;
}
diff --git a/runtime/openmp/include/chameleon_openmp.h b/runtime/openmp/include/chameleon_openmp.h
index fbc244943..a44a63db6 100644
--- a/runtime/openmp/include/chameleon_openmp.h
+++ b/runtime/openmp/include/chameleon_openmp.h
@@ -21,8 +21,8 @@
#ifndef _chameleon_openmp_h_
#define _chameleon_openmp_h_
-#include "coreblas.h"
#include "control/common.h"
+#include "coreblas.h"
#include <omp.h>
#endif /* _chameleon_openmp_h_ */
--
GitLab