4 size_t phio_ar_sizet(size_t val, int op) {  in phio_ar_sizet()  argument
6   int err = MPI_Allreduce(&val,&res,1,MPI_UNSIGNED_LONG,op,MPI_COMM_WORLD);  in phio_ar_sizet()
10 double phio_ar_dbl(double val, int op) {  in phio_ar_dbl()  argument
12   int err = MPI_Allreduce(&val,&res,1,MPI_DOUBLE,op,MPI_COMM_WORLD);  in phio_ar_dbl()
16 size_t phio_min_sizet(size_t val) {  in phio_min_sizet()  argument
17   return phio_ar_sizet(val,MPI_MIN);  in phio_min_sizet()
19 size_t phio_max_sizet(size_t val) {  in phio_max_sizet()  argument
20   return phio_ar_sizet(val,MPI_MAX);  in phio_max_sizet()
22 size_t phio_add_sizet(size_t val) {  in phio_add_sizet()  argument
23   return phio_ar_sizet(val,MPI_SUM);  in phio_add_sizet()
25 double phio_min_double(double val) {  in phio_min_double()  argument
26   return phio_ar_dbl(val,MPI_MIN);  in phio_min_double()
28 double phio_max_double(double val) {  in phio_max_double()  argument
29   return phio_ar_dbl(val,MPI_MAX);  in phio_max_double()
31 double phio_add_double(double val) {  in phio_add_double()  argument
32   return phio_ar_dbl(val,MPI_SUM);  in phio_add_double()