op_f 40 ompi/mpi/c/op_f2c.c MPI_Op MPI_Op_f2c(MPI_Fint op_f) op_f 42 ompi/mpi/c/op_f2c.c int op_index = OMPI_FINT_2_INT(op_f);