codelet_map.c 685 Bytes
Newer Older
Philippe Virouleau's avatar
Fix CI  
Philippe Virouleau committed
1 2
/**
 *
Philippe Virouleau's avatar
Philippe Virouleau committed
3
 * @file openmp/codelet_map.c
Philippe Virouleau's avatar
Fix CI  
Philippe Virouleau committed
4 5 6 7 8 9
 *
 * @copyright 2018-2018 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
 *                      Univ. Bordeaux. All rights reserved.
 *
 ***
 *
Philippe Virouleau's avatar
Philippe Virouleau committed
10
 * @brief Chameleon map OpenMP codelet
Philippe Virouleau's avatar
Fix CI  
Philippe Virouleau committed
11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
 *
 * @version 1.0.0
 * @author Mathieu Faverge
 * @date 2018-09-24
 *
 */
#include "chameleon_openmp.h"

void INSERT_TASK_map( const RUNTIME_option_t *options,
                      cham_uplo_t uplo, const CHAM_desc_t *A, int Am, int An,
                      cham_unary_operator_t operator, void *op_args )
{
    char *ptrA = RTBLKADDR( A, char, Am, An );

#pragma omp task depend(inout: ptrA[0])
    {
        operator( A, uplo, Am, An, ptrA, op_args );
    }

}