1
2
3
4
5
6
7
8
9
10
11
12 #include "oshmem_config.h"
13 #include "oshmem/shmem/fortran/bindings.h"
14 #include "oshmem/include/shmem.h"
15 #include "oshmem/constants.h"
16 #include "oshmem/mca/scoll/scoll.h"
17 #include "oshmem/proc/proc.h"
18 #include "oshmem/op/op.h"
19
20 #if OSHMEM_PROFILING
21 #include "oshmem/shmem/fortran/profile/pbindings.h"
22 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_INT2_SUM_TO_ALL, shmem_int2_sum_to_all)
23 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_INT4_SUM_TO_ALL, shmem_int4_sum_to_all)
24 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_INT8_SUM_TO_ALL, shmem_int8_sum_to_all)
25 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_COMP4_SUM_TO_ALL, shmem_comp4_sum_to_all)
26 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_COMP8_SUM_TO_ALL, shmem_comp8_sum_to_all)
27 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_REAL4_SUM_TO_ALL, shmem_real4_sum_to_all)
28 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_REAL8_SUM_TO_ALL, shmem_real8_sum_to_all)
29 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_REAL16_SUM_TO_ALL, shmem_real16_sum_to_all)
30 #include "oshmem/shmem/fortran/profile/defines.h"
31 #endif
32
33 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
34 SHMEM_INT2_SUM_TO_ALL,
35 shmem_int2_sum_to_all_,
36 shmem_int2_sum_to_all__,
37 shmem_int2_sum_to_all_f,
38 (FORTRAN_POINTER_T target, FORTRAN_POINTER_T source, MPI_Fint *nreduce, MPI_Fint *PE_start, MPI_Fint * logPE_stride, MPI_Fint *PE_size, FORTRAN_POINTER_T *pWrk, FORTRAN_POINTER_T pSync),
39 (target,source,nreduce,PE_start,logPE_stride,PE_size,pWrk,pSync) )
40
41 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
42 SHMEM_INT4_SUM_TO_ALL,
43 shmem_int4_sum_to_all_,
44 shmem_int4_sum_to_all__,
45 shmem_int4_sum_to_all_f,
46 (FORTRAN_POINTER_T target, FORTRAN_POINTER_T source, MPI_Fint *nreduce, MPI_Fint *PE_start, MPI_Fint * logPE_stride, MPI_Fint *PE_size, FORTRAN_POINTER_T *pWrk, FORTRAN_POINTER_T pSync),
47 (target,source,nreduce,PE_start,logPE_stride,PE_size,pWrk,pSync) )
48
49 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
50 SHMEM_INT8_SUM_TO_ALL,
51 shmem_int8_sum_to_all_,
52 shmem_int8_sum_to_all__,
53 shmem_int8_sum_to_all_f,
54 (FORTRAN_POINTER_T target, FORTRAN_POINTER_T source, MPI_Fint *nreduce, MPI_Fint *PE_start, MPI_Fint * logPE_stride, MPI_Fint *PE_size, FORTRAN_POINTER_T *pWrk, FORTRAN_POINTER_T pSync),
55 (target,source,nreduce,PE_start,logPE_stride,PE_size,pWrk,pSync) )
56
57 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
58 SHMEM_COMP4_SUM_TO_ALL,
59 shmem_comp4_sum_to_all_,
60 shmem_comp4_sum_to_all__,
61 shmem_comp4_sum_to_all_f,
62 (FORTRAN_POINTER_T target, FORTRAN_POINTER_T source, MPI_Fint *nreduce, MPI_Fint *PE_start, MPI_Fint * logPE_stride, MPI_Fint *PE_size, FORTRAN_POINTER_T *pWrk, FORTRAN_POINTER_T pSync),
63 (target,source,nreduce,PE_start,logPE_stride,PE_size,pWrk,pSync) )
64
65 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
66 SHMEM_COMP8_SUM_TO_ALL,
67 shmem_comp8_sum_to_all_,
68 shmem_comp8_sum_to_all__,
69 shmem_comp8_sum_to_all_f,
70 (FORTRAN_POINTER_T target, FORTRAN_POINTER_T source, MPI_Fint *nreduce, MPI_Fint *PE_start, MPI_Fint * logPE_stride, MPI_Fint *PE_size, FORTRAN_POINTER_T *pWrk, FORTRAN_POINTER_T pSync),
71 (target,source,nreduce,PE_start,logPE_stride,PE_size,pWrk,pSync) )
72
73 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
74 SHMEM_REAL4_SUM_TO_ALL,
75 shmem_real4_sum_to_all_,
76 shmem_real4_sum_to_all__,
77 shmem_real4_sum_to_all_f,
78 (FORTRAN_POINTER_T target, FORTRAN_POINTER_T source, MPI_Fint *nreduce, MPI_Fint *PE_start, MPI_Fint * logPE_stride, MPI_Fint *PE_size, FORTRAN_POINTER_T *pWrk, FORTRAN_POINTER_T pSync),
79 (target,source,nreduce,PE_start,logPE_stride,PE_size,pWrk,pSync) )
80
81 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
82 SHMEM_REAL8_SUM_TO_ALL,
83 shmem_real8_sum_to_all_,
84 shmem_real8_sum_to_all__,
85 shmem_real8_sum_to_all_f,
86 (FORTRAN_POINTER_T target, FORTRAN_POINTER_T source, MPI_Fint *nreduce, MPI_Fint *PE_start, MPI_Fint * logPE_stride, MPI_Fint *PE_size, FORTRAN_POINTER_T *pWrk, FORTRAN_POINTER_T pSync),
87 (target,source,nreduce,PE_start,logPE_stride,PE_size,pWrk,pSync) )
88
89 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
90 SHMEM_REAL16_SUM_TO_ALL,
91 shmem_real16_sum_to_all_,
92 shmem_real16_sum_to_all__,
93 shmem_real16_sum_to_all_f,
94 (FORTRAN_POINTER_T target, FORTRAN_POINTER_T source, MPI_Fint *nreduce, MPI_Fint *PE_start, MPI_Fint * logPE_stride, MPI_Fint *PE_size, FORTRAN_POINTER_T *pWrk, FORTRAN_POINTER_T pSync),
95 (target,source,nreduce,PE_start,logPE_stride,PE_size,pWrk,pSync) )
96
97 #define SHMEM_SUM_TO_ALL(F_NAME, T_NAME) void F_NAME(FORTRAN_POINTER_T target, \
98 FORTRAN_POINTER_T source, \
99 MPI_Fint *nreduce,\
100 MPI_Fint *PE_start,\
101 MPI_Fint * logPE_stride,\
102 MPI_Fint *PE_size,\
103 FORTRAN_POINTER_T *pWrk,\
104 FORTRAN_POINTER_T pSync)\
105 {\
106 int rc;\
107 oshmem_group_t *group;\
108 \
109 group = oshmem_proc_group_create_nofail(OMPI_FINT_2_INT(*PE_start),\
110 (1 << OMPI_FINT_2_INT(*logPE_stride)),\
111 OMPI_FINT_2_INT(*PE_size));\
112 oshmem_op_t* op = T_NAME;\
113 size_t size = OMPI_FINT_2_INT(*nreduce) * op->dt_size;\
114 \
115 rc = group->g_scoll.scoll_reduce( group,\
116 op,\
117 FPTR_2_VOID_PTR(target),\
118 FPTR_2_VOID_PTR(source),\
119 size,\
120 FPTR_2_VOID_PTR(pSync),\
121 FPTR_2_VOID_PTR(*pWrk), SCOLL_DEFAULT_ALG);\
122 oshmem_proc_group_destroy(group);\
123 RUNTIME_CHECK_RC(rc);\
124 }
125
126 SHMEM_SUM_TO_ALL(shmem_int2_sum_to_all_f, oshmem_op_sum_fint2)
127 SHMEM_SUM_TO_ALL(shmem_int4_sum_to_all_f, oshmem_op_sum_fint4)
128 SHMEM_SUM_TO_ALL(shmem_int8_sum_to_all_f, oshmem_op_sum_fint8)
129 SHMEM_SUM_TO_ALL(shmem_comp4_sum_to_all_f, oshmem_op_sum_complexf)
130 SHMEM_SUM_TO_ALL(shmem_comp8_sum_to_all_f, oshmem_op_sum_complexd)
131 SHMEM_SUM_TO_ALL(shmem_real4_sum_to_all_f, oshmem_op_sum_freal4)
132 SHMEM_SUM_TO_ALL(shmem_real8_sum_to_all_f, oshmem_op_sum_freal8)
133 SHMEM_SUM_TO_ALL(shmem_real16_sum_to_all_f, oshmem_op_sum_freal16)