mpierr             17 orte/test/mpi/crisscross.c  int            mpierr;               /* MPI function return code            */
mpierr             66 orte/test/mpi/crisscross.c  mpierr = MPI_Init(&argc, &argv);
mpierr             67 orte/test/mpi/crisscross.c  if (mpierr != MPI_SUCCESS)
mpierr             69 orte/test/mpi/crisscross.c     fprintf(stderr, "MPI Error %d (MPI_Init)\n",mpierr);
mpierr             76 orte/test/mpi/crisscross.c  mpierr = MPI_Comm_rank(MPI_COMM_WORLD, &rank);
mpierr             77 orte/test/mpi/crisscross.c  if (mpierr != MPI_SUCCESS || rank < 0)
mpierr             79 orte/test/mpi/crisscross.c     fprintf(stderr, "MPI Error %d (MPI_Comm_rank)\n",mpierr);
mpierr             91 orte/test/mpi/crisscross.c  mpierr = MPI_Comm_size(MPI_COMM_WORLD, &nproc);
mpierr             92 orte/test/mpi/crisscross.c  if (mpierr != MPI_SUCCESS || nproc < 1 || nproc <= rank)
mpierr             94 orte/test/mpi/crisscross.c     fprintf(stderr, "MPI Error %d (MPI_Comm_size) [%d]\n",mpierr, rank);
mpierr             99 orte/test/mpi/crisscross.c  mpierr = MPI_Get_processor_name(process_name, &count);
mpierr            100 orte/test/mpi/crisscross.c  if (mpierr != MPI_SUCCESS)
mpierr            102 orte/test/mpi/crisscross.c     fprintf(stderr,"MPI Error %d (MPI_Get_processor_name) [%d]\n", mpierr, rank);
mpierr            113 orte/test/mpi/crisscross.c     mpierr = MPI_Barrier(MPI_COMM_WORLD);
mpierr            114 orte/test/mpi/crisscross.c     if (mpierr != MPI_SUCCESS)
mpierr            116 orte/test/mpi/crisscross.c        fprintf(stderr, "MPI Error %d (MPI_Barrier) [%d]\n", mpierr, rank);
mpierr            126 orte/test/mpi/crisscross.c              mpierr = MPI_Sendrecv(process_name, MPI_MAX_PROCESSOR_NAME + 1, MPI_CHAR, i, tag0,
mpierr            128 orte/test/mpi/crisscross.c              if (mpierr != MPI_SUCCESS)
mpierr            130 orte/test/mpi/crisscross.c                 fprintf(stderr,"MPI Error %d (MPI_Sendrecv) %s [%d,%d]\n",mpierr,process_name,rank,i);
mpierr            141 orte/test/mpi/crisscross.c              mpierr = MPI_Sendrecv(process_name, MPI_MAX_PROCESSOR_NAME + 1, MPI_CHAR, j, tag0,
mpierr            143 orte/test/mpi/crisscross.c              if (mpierr != MPI_SUCCESS)
mpierr            145 orte/test/mpi/crisscross.c                 fprintf(stderr,"MPI Error %d (MPI_Sendrecv) %s [%d,%d]\n",mpierr,process_name,i,j);
mpierr            155 orte/test/mpi/crisscross.c                 mpierr = MPI_Send(send_buff, n_bytes, MPI_BYTE, j, tag1, MPI_COMM_WORLD);
mpierr            156 orte/test/mpi/crisscross.c                 if (mpierr != MPI_SUCCESS)
mpierr            158 orte/test/mpi/crisscross.c                    fprintf(stderr,"MPI Error %d (MPI_Send) %s [4%d] --> %s [4%d]\n",mpierr,process_name,i,partner_name,j);
mpierr            165 orte/test/mpi/crisscross.c                 mpierr = MPI_Recv(recv_buff, n_bytes, MPI_BYTE, i, tag1, MPI_COMM_WORLD, &status);
mpierr            166 orte/test/mpi/crisscross.c                 if (mpierr != MPI_SUCCESS)
mpierr            168 orte/test/mpi/crisscross.c                    fprintf(stderr,"MPI Error %d (MPI_Recv) %s [4%d] <-- %s [4%d]\n",mpierr,process_name,j,partner_name,i);
mpierr            177 orte/test/mpi/crisscross.c              mpierr = MPI_Send(&et1, 1, MPI_DOUBLE, j, tag1, MPI_COMM_WORLD);
mpierr            178 orte/test/mpi/crisscross.c              if (mpierr != MPI_SUCCESS)
mpierr            180 orte/test/mpi/crisscross.c                 fprintf(stderr,"MPI Error %d (MPI_Send) %s [4%d] --> %s [4%d]\n",mpierr,process_name,i,partner_name,j);
mpierr            187 orte/test/mpi/crisscross.c              mpierr = MPI_Recv(&et1, 1, MPI_DOUBLE, i, tag1, MPI_COMM_WORLD, &status);
mpierr            188 orte/test/mpi/crisscross.c              if (mpierr != MPI_SUCCESS)
mpierr            190 orte/test/mpi/crisscross.c                 fprintf(stderr,"MPI Error %d (MPI_Recv) %s [4%d] <-- %s [4%d]\n",mpierr,process_name,j,partner_name,i);
mpierr            221 orte/test/mpi/crisscross.c  mpierr = MPI_Reduce(&xfers, &sum_xfers, 1, MPI_INT, MPI_SUM, 0, MPI_COMM_WORLD);
mpierr            222 orte/test/mpi/crisscross.c  if (mpierr != MPI_SUCCESS)
mpierr            224 orte/test/mpi/crisscross.c     fprintf(stderr,"MPI Error %d (MPI_Reduce) %s [%d]\n",mpierr,process_name,rank);
mpierr            229 orte/test/mpi/crisscross.c  mpierr = MPI_Reduce(&avg_mbs, &sum_avg_mbs, 1, MPI_DOUBLE, MPI_SUM, 0, MPI_COMM_WORLD);
mpierr            230 orte/test/mpi/crisscross.c  if (mpierr != MPI_SUCCESS)
mpierr            232 orte/test/mpi/crisscross.c     fprintf(stderr,"MPI Error %d (MPI_Reduce) %s [%d]\n",mpierr,process_name,rank);
mpierr            237 orte/test/mpi/crisscross.c  mpierr = MPI_Reduce(&min_mbs, &r_min_mbs, 1, MPI_DOUBLE, MPI_MIN, 0, MPI_COMM_WORLD);
mpierr            238 orte/test/mpi/crisscross.c  if (mpierr != MPI_SUCCESS)
mpierr            240 orte/test/mpi/crisscross.c     fprintf(stderr,"MPI Error %d (MPI_Reduce) %s [%d]\n",mpierr,process_name,rank);
mpierr            245 orte/test/mpi/crisscross.c  mpierr = MPI_Reduce(&max_mbs, &r_max_mbs, 1, MPI_DOUBLE, MPI_MAX, 0, MPI_COMM_WORLD);
mpierr            246 orte/test/mpi/crisscross.c  if (mpierr != MPI_SUCCESS)
mpierr            248 orte/test/mpi/crisscross.c     fprintf(stderr,"MPI Error %d (MPI_Reduce) %s [%d]\n",mpierr,process_name,rank);
mpierr            253 orte/test/mpi/crisscross.c  mpierr = MPI_Finalize();
mpierr            254 orte/test/mpi/crisscross.c  if (mpierr != MPI_SUCCESS)
mpierr            256 orte/test/mpi/crisscross.c     fprintf(stderr,"MPI Error %d (MPI_Finalize) %s [%d]\n",mpierr,process_name,rank);
mpierr             16 orte/test/mpi/sendrecv_blaster.c     int            mpierr;               /* MPI function return code            */
mpierr             51 orte/test/mpi/sendrecv_blaster.c     mpierr = MPI_Init(&argc, &argv);
mpierr             52 orte/test/mpi/sendrecv_blaster.c     if (mpierr != MPI_SUCCESS)
mpierr             54 orte/test/mpi/sendrecv_blaster.c         fprintf(stderr, "MPI Error %d (MPI_Init)\n",mpierr);
mpierr             61 orte/test/mpi/sendrecv_blaster.c     mpierr = MPI_Comm_rank(MPI_COMM_WORLD, &rank);
mpierr             62 orte/test/mpi/sendrecv_blaster.c     if (mpierr != MPI_SUCCESS || rank < 0)
mpierr             64 orte/test/mpi/sendrecv_blaster.c         fprintf(stderr, "MPI Error %d (MPI_Comm_rank)\n",mpierr);
mpierr             69 orte/test/mpi/sendrecv_blaster.c     mpierr = MPI_Comm_size(MPI_COMM_WORLD, &size);
mpierr             70 orte/test/mpi/sendrecv_blaster.c     if (mpierr != MPI_SUCCESS || size < 0)
mpierr             72 orte/test/mpi/sendrecv_blaster.c         fprintf(stderr, "MPI Error %d (MPI_Comm_size)\n",mpierr);
mpierr            161 orte/test/mpi/sendrecv_blaster.c         mpierr = MPI_Sendrecv(send_buff, count, MPI_CHAR, dest, tag0,
mpierr            163 orte/test/mpi/sendrecv_blaster.c         if (mpierr != MPI_SUCCESS)
mpierr            165 orte/test/mpi/sendrecv_blaster.c             fprintf(stderr,"MPI Error %d (MPI_Sendrecv) [%d,%d] at iteration %d\n",mpierr,src,dest,i);
mpierr            174 orte/test/mpi/sendrecv_blaster.c             mpierr = MPI_Sendrecv(send_buff, count, MPI_CHAR, rank, tag0,
mpierr            176 orte/test/mpi/sendrecv_blaster.c             if (mpierr != MPI_SUCCESS)
mpierr            178 orte/test/mpi/sendrecv_blaster.c                 fprintf(stderr,"MPI Error %d (MPI_Sendrecv) [%d,%d] at iteration %d\n",mpierr,rank,rank,i);