root/oshmem/shmem/fortran/shmem_cache_f.c

DEFINITIONS

1. SHMEM_GENERATE_WEAK_BINDINGS
2. shmem_set_cache_line_inv_f
3. shmem_clear_cache_inv_f
4. shmem_clear_cache_line_inv_f
5. shmem_udcflush_f
6. shmem_udcflush_line_f

   1 /*
   2  * Copyright (c) 2013      Mellanox Technologies, Inc.
   3  *                         All rights reserved.
   4  * Copyright (c) 2013 Cisco Systems, Inc.  All rights reserved.
   5  * $COPYRIGHT$
   6  *
   7  * Additional copyrights may follow
   8  *
   9  * $HEADER$
  10  */
  11 
  12 #include "oshmem_config.h"
  13 #include "oshmem/shmem/fortran/bindings.h"
  14 #include "oshmem/include/shmem.h"
  15 #include "oshmem/shmem/shmem_api_logger.h"
  16 #include "ompi/datatype/ompi_datatype.h"
  17 
  18 #if OSHMEM_PROFILING
  19 #include "oshmem/shmem/fortran/profile/pbindings.h"
  20 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_SET_CACHE_INV, shmem_set_cache_inv)
  21 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_SET_CACHE_LINE_INV, shmem_set_cache_line_inv)
  22 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_CLEAR_CACHE_INV, shmem_clear_cache_inv)
  23 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_CLEAR_CACHE_LINE_INV, shmem_clear_cache_line_inv)
  24 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_UDCFLUSH, shmem_udcflush)
  25 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_UDCFLUSH_LINE, shmem_udcflush_line)
  26 #include "oshmem/shmem/fortran/profile/defines.h"
  27 #endif
  28 
  29 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
  30         SHMEM_SET_CACHE_INV,
  31         shmem_set_cache_inv_,
  32         shmem_set_cache_inv__,
  33         shmem_set_cache_inv_f,
  34         (void),
  35         ())
  36 
  37 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
  38         SHMEM_SET_CACHE_LINE_INV,
  39         shmem_set_cache_line_inv_,
  40         shmem_set_cache_line_inv__,
  41         shmem_set_cache_line_inv_f,
  42         (FORTRAN_POINTER_T target),
  43         (target))
  44 
  45 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
  46         SHMEM_CLEAR_CACHE_INV,
  47         shmem_clear_cache_inv_,
  48         shmem_clear_cache_inv__,
  49         shmem_clear_cache_inv_f,
  50         (void),
  51         ())
  52 
  53 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
  54         SHMEM_CLEAR_CACHE_LINE_INV,
  55         shmem_clear_cache_line_inv_,
  56         shmem_clear_cache_line_inv__,
  57         shmem_clear_cache_line_inv_f,
  58         (FORTRAN_POINTER_T target),
  59         (target))
  60 
  61 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
  62         SHMEM_UDCFLUSH,
  63         shmem_udcflush_,
  64         shmem_udcflush__,
  65         shmem_udcflush_f,
  66         (void),
  67         ())
  68 
  69 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
  70         SHMEM_UDCFLUSH_LINE,
  71         shmem_udcflush_line_,
  72         shmem_udcflush_line__,
  73         shmem_udcflush_line_f,
  74         (FORTRAN_POINTER_T target),
  75         (target))
  76 
  77 void shmem_set_cache_inv_f(void)
  78 {
  79     shmem_set_cache_inv();
  80 }
  81 
  82 void shmem_set_cache_line_inv_f(FORTRAN_POINTER_T target)
  83 {
  84     shmem_set_cache_line_inv(FPTR_2_VOID_PTR(target));
  85 }
  86 
  87 void shmem_clear_cache_inv_f(void)
  88 {
  89     shmem_clear_cache_inv();
  90 }
  91 
  92 void shmem_clear_cache_line_inv_f(FORTRAN_POINTER_T target)
  93 {
  94     shmem_clear_cache_line_inv(FPTR_2_VOID_PTR(target));
  95 }
  96 
  97 void shmem_udcflush_f(void)
  98 {
  99     shmem_udcflush();
 100 }
 101 
 102 void shmem_udcflush_line_f(FORTRAN_POINTER_T target)
 103 {
 104     shmem_udcflush_line(FPTR_2_VOID_PTR(target));
 105 }