void
shmem_longlong_prod_to_all(long long *target, long long *source, int nreduce,
int PE_start, int logPE_stride, int PE_size,
long long *pWrk, long *pSync)
{
SHMEM_ERR_CHECK_INITIALIZED();
shmem_internal_op_to_all(target, source, nreduce, sizeof(long long),
PE_start, logPE_stride, PE_size,
pWrk, pSync, SHM_INTERNAL_PROD, DTYPE_LONG);
}
void
shmem_complexd_prod_to_all(double complex *target, double complex *source, int nreduce,
int PE_start, int logPE_stride, int PE_size,
double complex *pWrk, long *pSync)
{
SHMEM_ERR_CHECK_INITIALIZED();
shmem_internal_op_to_all(target, source, nreduce, sizeof(double complex),
PE_start, logPE_stride, PE_size,
pWrk, pSync, SHM_INTERNAL_PROD, SHM_INTERNAL_DOUBLE_COMPLEX);
}
void
shmem_short_prod_to_all(short *target, short *source, int nreduce,
int PE_start, int logPE_stride, int PE_size,
short *pWrk, long *pSync)
{
SHMEM_ERR_CHECK_INITIALIZED();
shmem_internal_op_to_all(target, source, nreduce, sizeof(short),
PE_start, logPE_stride, PE_size,
pWrk, pSync, SHM_INTERNAL_PROD, DTYPE_SHORT);
}
void
shmem_float_prod_to_all(float *target, float *source, int nreduce,
int PE_start, int logPE_stride, int PE_size,
float *pWrk, long *pSync)
{
SHMEM_ERR_CHECK_INITIALIZED();
shmem_internal_op_to_all(target, source, nreduce, sizeof(float),
PE_start, logPE_stride, PE_size,
pWrk, pSync, SHM_INTERNAL_PROD, SHM_INTERNAL_FLOAT);
}
void
shmem_int_sum_to_all(int *target, int *source, int nreduce,
int PE_start, int logPE_stride, int PE_size,
int *pWrk, long *pSync)
{
SHMEM_ERR_CHECK_INITIALIZED();
shmem_internal_op_to_all(target, source, nreduce, sizeof(int),
PE_start, logPE_stride, PE_size,
pWrk, pSync, SHM_INTERNAL_SUM, DTYPE_INT);
}
void
shmem_complexf_sum_to_all(float complex *target, float complex *source, int nreduce,
int PE_start, int logPE_stride, int PE_size,
float complex *pWrk, long *pSync)
{
SHMEM_ERR_CHECK_INITIALIZED();
shmem_internal_op_to_all(target, source, nreduce, sizeof(float complex),
PE_start, logPE_stride, PE_size,
pWrk, pSync, SHM_INTERNAL_SUM, SHM_INTERNAL_FLOAT_COMPLEX);
}
void
shmem_longdouble_sum_to_all(long double *target, long double *source, int nreduce,
int PE_start, int logPE_stride, int PE_size,
long double *pWrk, long *pSync)
{
SHMEM_ERR_CHECK_INITIALIZED();
shmem_internal_op_to_all(target, source, nreduce, sizeof(long double),
PE_start, logPE_stride, PE_size,
pWrk, pSync, SHM_INTERNAL_SUM, SHM_INTERNAL_LONG_DOUBLE);
}
void
shmem_double_max_to_all(double *target, double *source, int nreduce,
int PE_start, int logPE_stride, int PE_size,
double *pWrk, long *pSync)
{
SHMEM_ERR_CHECK_INITIALIZED();
shmem_internal_op_to_all(target, source, nreduce, sizeof(double),
PE_start, logPE_stride, PE_size,
pWrk, pSync, SHM_INTERNAL_MAX, SHM_INTERNAL_DOUBLE);
}
void
shmem_int_prod_to_all(int *target, const int *source, int nreduce,
int PE_start, int logPE_stride, int PE_size,
int *pWrk, long *pSync)
{
SHMEM_ERR_CHECK_INITIALIZED();
SHMEM_ERR_CHECK_ACTIVE_SET(PE_start, logPE_stride, PE_size);
shmem_internal_op_to_all(target, source, nreduce, sizeof(int),
PE_start, logPE_stride, PE_size,
pWrk, pSync, SHM_INTERNAL_PROD, SHM_INTERNAL_INT);
}
void
shmem_longlong_sum_to_all(long long *target, const long long *source,
int nreduce, int PE_start, int logPE_stride,
int PE_size, long long *pWrk, long *pSync)
{
SHMEM_ERR_CHECK_INITIALIZED();
SHMEM_ERR_CHECK_ACTIVE_SET(PE_start, logPE_stride, PE_size);
shmem_internal_op_to_all(target, source, nreduce, sizeof(long long),
PE_start, logPE_stride, PE_size,
pWrk, pSync, SHM_INTERNAL_SUM, SHM_INTERNAL_LONG);
}
void
shmem_short_sum_to_all(short *target, const short *source, int nreduce,
int PE_start, int logPE_stride, int PE_size,
short *pWrk, long *pSync)
{
SHMEM_ERR_CHECK_INITIALIZED();
SHMEM_ERR_CHECK_ACTIVE_SET(PE_start, logPE_stride, PE_size);
shmem_internal_op_to_all(target, source, nreduce, sizeof(short),
PE_start, logPE_stride, PE_size,
pWrk, pSync, SHM_INTERNAL_SUM, SHM_INTERNAL_SHORT);
}
void
shmem_double_sum_to_all(double *target, const double *source, int nreduce,
int PE_start, int logPE_stride, int PE_size,
double *pWrk, long *pSync)
{
SHMEM_ERR_CHECK_INITIALIZED();
SHMEM_ERR_CHECK_ACTIVE_SET(PE_start, logPE_stride, PE_size);
shmem_internal_op_to_all(target, source, nreduce, sizeof(double),
PE_start, logPE_stride, PE_size,
pWrk, pSync, SHM_INTERNAL_SUM, SHM_INTERNAL_DOUBLE);
}
void
shmem_float_max_to_all(float *target, const float *source, int nreduce,
int PE_start, int logPE_stride, int PE_size,
float *pWrk, long *pSync)
{
SHMEM_ERR_CHECK_INITIALIZED();
SHMEM_ERR_CHECK_ACTIVE_SET(PE_start, logPE_stride, PE_size);
shmem_internal_op_to_all(target, source, nreduce, sizeof(float),
PE_start, logPE_stride, PE_size,
pWrk, pSync, SHM_INTERNAL_MAX, SHM_INTERNAL_FLOAT);
}
