4 int ph_ar_int(int val, int op) {  in ph_ar_int()  argument
6   int err = MPI_Allreduce(&val,&res,1,MPI_INT,op,MPI_COMM_WORLD);  in ph_ar_int()
10 double ph_ar_dbl(double val, int op) {  in ph_ar_dbl()  argument
12   int err = MPI_Allreduce(&val,&res,1,MPI_DOUBLE,op,MPI_COMM_WORLD);  in ph_ar_dbl()
16 long ph_ar_long(long val, int op) {  in ph_ar_long()  argument
18   int err = MPI_Allreduce(&val,&res,1,MPI_LONG,op,MPI_COMM_WORLD);  in ph_ar_long()
22 int ph_min_int(int val) {  in ph_min_int()  argument
23   return ph_ar_int(val,MPI_MIN);  in ph_min_int()
25 int ph_max_int(int val) {  in ph_max_int()  argument
26   return ph_ar_int(val,MPI_MAX);  in ph_max_int()
28 long ph_add_long(long val) {  in ph_add_long()  argument
29   return ph_ar_long(val,MPI_SUM);  in ph_add_long()
31 double ph_min_double(double val) {  in ph_min_double()  argument
32   return ph_ar_dbl(val,MPI_MIN);  in ph_min_double()
34 double ph_max_double(double val) {  in ph_max_double()  argument
35   return ph_ar_dbl(val,MPI_MAX);  in ph_max_double()
37 double ph_add_double(double val) {  in ph_add_double()  argument
38   return ph_ar_dbl(val,MPI_SUM);  in ph_add_double()