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_PROD_TO_ALL, shmem_int2_prod_to_all)
23 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_INT4_PROD_TO_ALL, shmem_int4_prod_to_all)
24 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_INT8_PROD_TO_ALL, shmem_int8_prod_to_all)
25 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_COMP4_PROD_TO_ALL, shmem_comp4_prod_to_all)
26 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_COMP8_PROD_TO_ALL, shmem_comp8_prod_to_all)
27 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_REAL4_PROD_TO_ALL, shmem_real4_prod_to_all)
28 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_REAL8_PROD_TO_ALL, shmem_real8_prod_to_all)
29 SHMEM_GENERATE_WEAK_BINDINGS(SHMEM_REAL16_PROD_TO_ALL, shmem_real16_prod_to_all)
30 #include "oshmem/shmem/fortran/profile/defines.h"
31 #endif
32
33 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
34 SHMEM_INT2_PROD_TO_ALL,
35 shmem_int2_prod_to_all_,
36 shmem_int2_prod_to_all__,
37 shmem_int2_prod_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_PROD_TO_ALL,
43 shmem_int4_prod_to_all_,
44 shmem_int4_prod_to_all__,
45 shmem_int4_prod_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_PROD_TO_ALL,
51 shmem_int8_prod_to_all_,
52 shmem_int8_prod_to_all__,
53 shmem_int8_prod_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_PROD_TO_ALL,
59 shmem_comp4_prod_to_all_,
60 shmem_comp4_prod_to_all__,
61 shmem_comp4_prod_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_PROD_TO_ALL,
67 shmem_comp8_prod_to_all_,
68 shmem_comp8_prod_to_all__,
69 shmem_comp8_prod_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
74 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
75 SHMEM_REAL4_PROD_TO_ALL,
76 shmem_real4_prod_to_all_,
77 shmem_real4_prod_to_all__,
78 shmem_real4_prod_to_all_f,
79 (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),
80 (target,source,nreduce,PE_start,logPE_stride,PE_size,pWrk,pSync) )
81
82 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
83 SHMEM_REAL8_PROD_TO_ALL,
84 shmem_real8_prod_to_all_,
85 shmem_real8_prod_to_all__,
86 shmem_real8_prod_to_all_f,
87 (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),
88 (target,source,nreduce,PE_start,logPE_stride,PE_size,pWrk,pSync) )
89
90 SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
91 SHMEM_REAL16_PROD_TO_ALL,
92 shmem_real16_prod_to_all_,
93 shmem_real16_prod_to_all__,
94 shmem_real16_prod_to_all_f,
95 (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),
96 (target,source,nreduce,PE_start,logPE_stride,PE_size,pWrk,pSync) )
97
98 #define SHMEM_PROD_TO_ALL(F_NAME, T_NAME) void F_NAME(FORTRAN_POINTER_T target, \
99 FORTRAN_POINTER_T source, \
100 MPI_Fint *nreduce,\
101 MPI_Fint *PE_start,\
102 MPI_Fint * logPE_stride,\
103 MPI_Fint *PE_size,\
104 FORTRAN_POINTER_T *pWrk,\
105 FORTRAN_POINTER_T pSync)\
106 {\
107 int rc;\
108 oshmem_group_t *group;\
109 \
110 group = oshmem_proc_group_create_nofail(OMPI_FINT_2_INT(*PE_start),\
111 (1 << OMPI_FINT_2_INT(*logPE_stride)),\
112 OMPI_FINT_2_INT(*PE_size));\
113 oshmem_op_t* op = T_NAME;\
114 size_t size = OMPI_FINT_2_INT(*nreduce) * op->dt_size;\
115 \
116 rc = group->g_scoll.scoll_reduce( group,\
117 op,\
118 FPTR_2_VOID_PTR(target),\
119 FPTR_2_VOID_PTR(source),\
120 size,\
121 FPTR_2_VOID_PTR(pSync),\
122 FPTR_2_VOID_PTR(*pWrk), SCOLL_DEFAULT_ALG);\
123 oshmem_proc_group_destroy(group);\
124 RUNTIME_CHECK_RC(rc);\
125 }
126
127 SHMEM_PROD_TO_ALL(shmem_int2_prod_to_all_f, oshmem_op_prod_fint2)
128 SHMEM_PROD_TO_ALL(shmem_int4_prod_to_all_f, oshmem_op_prod_fint4)
129 SHMEM_PROD_TO_ALL(shmem_int8_prod_to_all_f, oshmem_op_prod_fint8)
130 SHMEM_PROD_TO_ALL(shmem_comp4_prod_to_all_f, oshmem_op_prod_complexf)
131 SHMEM_PROD_TO_ALL(shmem_comp8_prod_to_all_f, oshmem_op_prod_complexd)
132 SHMEM_PROD_TO_ALL(shmem_real4_prod_to_all_f, oshmem_op_prod_freal4)
133 SHMEM_PROD_TO_ALL(shmem_real8_prod_to_all_f, oshmem_op_prod_freal8)
134 SHMEM_PROD_TO_ALL(shmem_real16_prod_to_all_f, oshmem_op_prod_freal16)