diff --git a/runtime/openmp/codelets/codelet_dlag2z.c b/runtime/openmp/codelets/codelet_dlag2z.c index 5a5eae60332210c767854e48ccfc71ecc27efb6b..aa5c6a30dfffbadeb77fa7e5a9eed425023b491f 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 77679fedaaffcc24ee775b784b379c5b5b7f4963..38b052c0c90db0cd9bd0e5b155586d6cc9f47a7f 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 3e83e8b2682c714d51420ab48e612815a85e7dee..b58575eceef31f720f9eb686f1cddd542fccfb41 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 e338591c38919872cd3c8b403d828464dcf42996..8edbc3a1561e9611bbf6e914320545a8a6a5c06c 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 1e816497a538bf0e4965437f9eb749001f3937bb..fc343e183a05dc4f5d8b046815d30f7c819efa08 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 e7724e52bc33f09aa956f1e9dd42fda4a55d2d38..dc92f33d06ccf76a48a4b69e5b16df71e5116abd 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 2de3ceffded50c33eecef07180d136c8119c79f7..253cce2a41b672ab4d3bc4c5ef05810f945c16a7 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 5d83a18427182c7954062931349623633efdc8c4..6a2993ef51dca51405511d971632977877f79eea 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 00b7979b10d608feb236776d19c5d1b574223f07..5706c82d6ac1a5c5e71abec2b6d30cdafcb31e31 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 afbab572186a9ede03ee1499271ae2c41b87c979..8f87a167383f5b6ab5c0ccae766aaa184296a770 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 8049e3a675f7bed5abcec1b3b80c7e7f668c4a2e..8bd38548aaaf685e2993d6b5188499d555b747b7 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 20094e5060ccca3f318917387055e57bc8bffabf..10d876a6e67390cfd54c88831534b6f313181b0d 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 90e8485767494480a9e00089652d21ace873b5dd..132b3a9e9c10b03c65a60ce0b8ae891c3928654a 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 86b7bfd084fadee98c6218384e396597137e189f..f52f4bec5170be457c96dfc78d5550f4d4dcf6bb 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 87b9472cddb2617bb0a10d689e82a7dba576015b..1f92b7a3d69b21b8f7f6a418604a8afbd9664653 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 456c247a9827efc12d4f92fd6644a02b521a575f..1b8dad5450111457b54170a807652a55cc8c6885 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 2e108a71731ba11035f6cc86240f57a51679334e..63a6a07ed449fda7700263ce8f27e29ba734ddd8 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 d0356618c7d170caf2ce73349900afd7b2fc4905..b8805f0da0ac5fd85223dbccca33f22dbbd4394b 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 7830f55b1cf3c50ff3837b4c49eaf4992b06a05b..61265d7b04aec45a62fe9213bea8212fa32728fd 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 820e2dd61e052f1c7947b1a42cdbc5d8d4e3e8b3..9be2378aefaf8625733409ba9e15b8580118115f 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 3f6dc7ed6f9c03aa0ff527be7150164c42b6c1ac..85c1471f533728168d7ac7efac4f82f77182a4eb 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 249b5aef76d5d9252294baf330e73be38e585f4a..0be0211353d40fcbf0bf2c11b71416006859f0d1 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 55a1540b717e7f3250b54461a797be9200a4ea6a..d3187185e201ae5018675ebc684935ee45aaeb75 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 0cd94f33af483d5e5dd57afe7171744c20852225..3728f844d48502c578c7e287b20cee52f5368b3c 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 45e6d921b2218c896b9ad9e299f8a5f246c893c0..b8ef54827db901d0f214d99c1089f44f1b020fe9 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 3c4a46a0bba5084a892e890425a4731a6a15f34d..80a04cdf4a71eea4a817930c5e29eeb4fe666d9e 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 3b033ffb6b14c5a8ed4152821415ef7e9b098bb2..dd73a7ba5863d8428010a7ee07f7b3d2798c6acd 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 68e38601408e99f600e3f116384241fe3f88f2bc..505e9be55cba513f5b4dd3ce3d73851dc5284534 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 196b2a6a31a8e70c7258cc8b6b0277ce8c1aaea6..e667cd1a7a6ff7c8f942dafb19d3246a994e1686 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 12f8943f6045dfd90a260e6340d515266df4383a..5b4757837de146dbaaaaaed420603f95afeeb025 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 d186893da18f9a7fd8e4cc6d14d16e3d98c06574..51203862154a27693ed00e3c411d915e39137986 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 53e78309400b3728e6af0f840a4a518e536ab226..957a2dce86c1723334b7b1acacf14fa275f595e2 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 9949e1ba6651e907a7c43bfa4bbff6e5fd943a03..fc5f6ed188a4ad06f7f3f82297f9e9aaba9fec96 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 8fd2e83b06919b7eb1579cfc03984315a83b29b8..173685b4062dc390091216a2704957609d8430f4 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 7101990da59efcb0a8ab115884041974f550ef7b..733fd0a3f09e53c935f09defbf0b81cd63206e9b 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 ad0118c80438eef55f1356d1d24feb6385a920f0..76a7bc4e84d67c88e9e6b520b775ad4f5c553136 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 a51f306b3d72661694c8e450521853d75032d6b5..1c58d5a5e11498abd0e4efece4d22e7fc87f9dab 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 5ef57d0986e054482daaad497d8d6afc276443cd..26c42c0da4a84c240a938b5bd5aaf3c5e722d8b0 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 239344a86f3cdab2df22e30415d8ae2a342e9765..7bfca86e982c45430936c782248d1223166cd336 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 cb7cad2b44a1f05ca2168a86dbada0d0b79e329c..fd498f71fc7eb1216900fe12d1b562d96ef9826b 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 9e200c98d90ccc1bcac6a739c02db794d9ba3236..a87d3da6b925b795c640ecb171c22d4c33548c04 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 28e8d2406f4af5ede04df2131fc736892e3eb64f..d5380de40e259f08ba64b8152879df0b0154eb0b 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 78e0757bb94d46319a42960648cc78eb8e184d30..098adc94efbfcb63d5ebd6128d57cfce95cc8406 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 aeac8a47413d5214a427d36ac8a137d181261fc4..fa3d1799c5503ace8a85853c7c596511a04cff76 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 8b081daf87db4a893fbbfb510ab1d2980039e46e..6219d3019f0e85f518c53000820d3fc059137793 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 32014ff5453f741f6864157ccabc0cf31ce2d8a0..f158c4e2699949a9d3f1b3683271b74dd2a7bdbd 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 c0eb2ebfb91bff927ad859602d9fa2aff797a089..abad44da2e77c0ddd53e2f83241f7dbc46b8c7bf 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 d8cd06e692b027f9ede28ecfffe5e1908cf7f077..a264b0117771fc0373a01abb722755e4d9d2c0d5 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 95a166f46c510abb14b1362e1fca5cb92e662dc0..5bbfa7f4e20d9311e5f70273d055d4ae1ddfdd06 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 f057ef56eca3374ac3e66e1f261784678070fc99..662d830f87ddff79a5579992c859fee4af4945a5 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 edd3f5ab79ab787c6b0b1892fd9bd33039e20a41..dc201b02cf64796e2ae77de9655b80f099a14f54 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 8b65e6fcfbe77fc4ee14b0500445303f66a2131e..fc8e2b3ff96d40e869ec726058431c003c2ada22 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 b4ac19be4ffe116d75a6a03ad80b35c1331ff428..741afef278034e7af981885eba7aa4206e85ff11 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 933594990cb61ab303ad9cdc3152932622dcea42..a7f27565458950861ea3772e166d00696b92494d 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 6d86f196f04140814c58bf3fb0b69276ba5100cd..18491ba0861a96494f199c9f56cd1afd3338bb9c 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 68835ee2344afdea221e98192b305bf0e17f27d9..f6ab02011ae3284b254e9fbef6d01fd0a6a5718c 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 4bd4921eb41c112c94a3ee8fe569eb0ac94aef48..1a32871fcbcf95b2ff9a4eb17237726defecee9e 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 e86b34e62d3ed0ea790e4cc7a04a93056f823f3e..9ef66b00f5af3e7bb44a7697e36b91685e5aa744 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 8ff6ab309cb7626d463302387c3987173c865a9e..134a7b493604bf8a52115be9913e4907040a57dd 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 26a47ad6f81b366ef4a0d079b96d34a02f54faf7..251a27a6797cd0e498d571a71f6d386636d0b338 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 fb921cf35b7dfaf8fcf46524ce45acc083c8981d..d14a19791d5edd11b49f3f5a74f2f7c0b58eacfc 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 bd99804d315d17ecf10dcd41f51aad195fcedf84..b83faded2abcc0f0514e5b5027c9104450c28f5e 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 dd44911534f28b355d386777422a842010441b35..6ab7dc0e79652a98758abb20b733e4e35d6d1862 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 1f4a9d3e11eaba6363140400c95f343332ba5aa4..87c46728da5a616e1be1138631e6be99d51f5ae3 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 5e5a2e5289825fde459a212e2ef54357eda94a85..04aaca357baaa13977a9f35d29cb07be78fa9d87 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 fbc24494309bd57b26adfad9b83e41c44fbe9a90..a44a63db65efceaa514090138d3628446332f943 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_ */