/dports/science/conduit/conduit-0.8.0/src/tests/docs/ |
H A D | t_conduit_docs_tutorial_python_relay_mpi_examples.py | 51 if comm_rank == 0: 58 if comm_rank == 0: 61 if comm_rank == 0: 67 if comm_rank == 1: 95 if comm_rank == 0: 102 if comm_rank == 0: 105 if comm_rank == 0: 111 if comm_rank == 1: 137 if comm_rank == 0: 144 if comm_rank == 0: [all …]
|
/dports/science/cgnslib/CGNS-4.1.2/src/ptests/ |
H A D | pcgns_ctest.c | 20 int comm_size, comm_rank; in main() local 34 MPI_Comm_rank(comm, &comm_rank); in main() 36 if (comm_rank == 0) in main() 43 if (comm_rank == 0) in main() 56 start = comm_rank * n_per_proc + 1; in main() 60 y[n] = comm_rank + 1; in main() 72 if (comm_rank == 0) { in main() 161 if (comm_rank == 0) { in main() 171 DEBUG_PRINT(("[%d]cgp_close\n",comm_rank)) in main() 242 if (comm_rank == 0) { in main() [all …]
|
H A D | cexample.c | 17 int comm_size, comm_rank; in main() local 28 MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank); in main() 40 if (comm_rank == 0) { in main() 48 DEBUG_PRINT(("[%d]cgp_open\n",comm_rank)) in main() 65 start = nnodes * comm_rank + 1; in main() 66 end = nnodes * (comm_rank + 1); in main() 100 start = nelems * comm_rank + 1; in main() 101 end = nelems * (comm_rank + 1); in main() 156 DEBUG_PRINT(("[%d]cg_goto\n",comm_rank)) in main() 160 DEBUG_PRINT(("[%d]cg_gorel\n",comm_rank)) in main() [all …]
|
H A D | benchmark.c | 34 int comm_rank; variable 58 MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank); in initialize() 79 z[i*N+j] = (double) (comm_rank); in initialize() 83 min[2] = comm_rank + 1; in initialize() 86 max[2] = comm_rank + 1; in initialize() 156 DEBUG_PRINT(("[%d]cgp_open\n",comm_rank)) in main() 164 DEBUG_PRINT(("[%d]cg_base_write\n",comm_rank)) in main() 172 DEBUG_PRINT(("[%d]cg_zone_write\n",comm_rank)) in main() 180 DEBUG_PRINT(("[%d]cgp_coord_write X\n",comm_rank)) in main() 202 DEBUG_PRINT(("[%d]cgp_coord_write Y\n",comm_rank)) in main() [all …]
|
H A D | benchmark_hdf5_f90.F90 | 207 min = count*comm_rank+1 208 max = count*(comm_rank+1) 286 emin = count*comm_rank+1 287 emax = count*(comm_rank+1) 398 min = count*comm_rank+1 399 max = count*(comm_rank+1) 551 min = count*comm_rank+1 552 max = count*(comm_rank+1) 607 emin = count*comm_rank+1 709 min = count*comm_rank+1 [all …]
|
H A D | test_unstruc_quad.c | 41 int comm_rank; in main() local 61 err = MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank); in main() 83 min = 6*comm_rank+1; in main() 111 printf("%d:%d\n",comm_rank,nelem); in main() 112 emin = comm_rank*3+1; in main() 140 emin = comm_rank*3+start; in main() 142 printf("%d:%d %d\n",comm_rank,(int)emin,(int)emax); in main() 148 elements[2*k+0] = 2*(comm_rank*3+k)+1; in main() 149 elements[2*k+1] = 2*(comm_rank*3+k)+3; in main() 160 if (comm_rank == 0) { in main() [all …]
|
H A D | benchmark_hdf5.c | 72 int comm_rank; variable 85 int comm_rank; variable 137 if(comm_rank==0) { in read_inputs() 267 min = count*comm_rank+1; in main() 268 max = count*(comm_rank+1); in main() 343 emin = count*comm_rank+1; in main() 453 min = count*comm_rank+1; in main() 606 min = count*comm_rank+1; in main() 661 emin = count*comm_rank+1; in main() 762 min = count*comm_rank+1; in main() [all …]
|
H A D | test_unstructured.c | 24 int comm_rank; in main() local 47 err = MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank); in main() 62 min = count*comm_rank+1; in main() 63 max = count*(comm_rank+1); in main() 86 nelems = (comm_rank!=comm_size-1)?9/comm_size:9-(9/comm_size)*(comm_size-1); in main() 87 printf("%d:%d\n",comm_rank,nelems); in main() 88 emin = (9/comm_size)*comm_rank+1; in main() 89 emax = (comm_rank!=comm_size-1)?(9/comm_size)*(comm_rank+1):9; in main() 96 printf("%d:%d %d %d\n",comm_rank,nelems,(int)emin,(int)emax); in main()
|
H A D | test_general_readwrite.c | 137 if (comm_rank == 0) { in main() 146 if (comm_rank == 0) { in main() 173 if (comm_rank == 0) { in main() 177 if (comm_rank == 1) { in main() 232 if (comm_rank == 0) { in main() 243 if (comm_rank == 0) { in main() 289 if (comm_rank == 0) { in main() 309 if (comm_rank == 0) { in main() 329 if (comm_rank == 0) { in main() 371 if (comm_rank == 0) { in main() [all …]
|
H A D | open_close.c | 24 int comm_rank; in main() local 32 err = MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank); in main() 37 if(comm_rank == 0) { in main() 62 if(comm_rank == 0) { in main() 73 printf("[%d]cgp_open\n",comm_rank); in main() 77 printf("[%d]cgp_close\n",comm_rank); in main()
|
H A D | thesis_benchmark.c | 22 int comm_rank; variable 50 if(comm_rank==0) { in read_inputs() 226 if(comm_rank==0) { in main() 245 if(comm_rank==0) { in main() 264 if(comm_rank==0) { in main() 281 if(comm_rank==0) { in main() 289 if(comm_rank==0) { in main() 324 if(comm_rank==0) { in main() 343 if(comm_rank==0) { in main() 362 if(comm_rank==0) { in main() [all …]
|
H A D | benchmark_hdf5_wf.c | 27 int comm_rank; variable 38 int comm_rank; variable 93 MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank); in initialize() 173 min = count*comm_rank+1; in main() 174 max = count*(comm_rank+1); in main() 192 Data_Fx[k] = comm_rank*count+k + 1.01; in main() 193 Data_Fy[k] = comm_rank*count+k + 1.02; in main() 194 Data_Fz[k] = comm_rank*count+k + 1.03; in main() 262 if(comm_rank==0) { in main()
|
/dports/science/conduit/conduit-0.8.0/src/tests/relay/python/ |
H A D | t_python_relay_mpi.py | 131 if comm_rank == 0: 141 if comm_rank == 0: 151 if comm_rank == 0: 161 if comm_rank == 0: 228 n["values/a"] = comm_rank+1; 234 if comm_rank == 0: 283 if comm_rank == 0: 330 if comm_rank == root: 342 if comm_rank == root: 362 if comm_rank == root: [all …]
|
/dports/net/mpich2/mpich2-1.5/test/mpi/coll/ |
H A D | allgatherv4.c | 76 if (!comm_rank) { in main() 83 if (!comm_rank) { in main() 91 if (!comm_rank) { in main() 102 if (!comm_rank) { in main() 133 if (!comm_rank) { in comm_tests() 139 if (!comm_rank) { in comm_tests() 145 if (!comm_rank) { in comm_tests() 151 if (!comm_rank) { in comm_tests() 157 if (!comm_rank) { in comm_tests() 163 if (!comm_rank) { in comm_tests() [all …]
|
/dports/net/mpich/mpich-3.4.3/test/mpi/coll/ |
H A D | allgatherv4.c | 83 if (!comm_rank) { in main() 90 if (!comm_rank) { in main() 98 if (!comm_rank) { in main() 109 if (!comm_rank) { in main() 139 if (!comm_rank) { in comm_tests() 145 if (!comm_rank) { in comm_tests() 151 if (!comm_rank) { in comm_tests() 157 if (!comm_rank) { in comm_tests() 163 if (!comm_rank) { in comm_tests() 169 if (!comm_rank) { in comm_tests() [all …]
|
/dports/science/axom/axom-0.6.1/src/cmake/blt/tests/smoke/ |
H A D | blt_fruit_mpi_smoke.f90 | 23 integer :: comm_size, comm_rank local 28 call mpi_comm_rank(comm, comm_rank, mpi_err_stat) 30 call assert_true(comm_rank .ge. first_rank, & 32 call assert_true(comm_rank .lt. comm_size, & 50 integer :: comm_size, comm_rank variable 55 call mpi_comm_rank(comm, comm_rank, mpi_err_stat) 63 call fruit_summary_mpi(comm_size, comm_rank) 67 call fruit_finalize_mpi(comm_size, comm_rank)
|
/dports/net/mpich2/mpich2-1.5/src/mpe2/src/wrappers/test/ |
H A D | comm1_isr.c | 11 int comm_rank, comm_size, comm_neighbor; in main() local 51 MPI_Comm_rank( *comm_ptr, &comm_rank ); in main() 53 if ( comm_rank == comm_size - 1 ) in main() 56 comm_neighbor = comm_rank + 1; in main() 60 MPI_Send( &comm_rank, 1, MPI_INT, comm_neighbor, 999, *comm_ptr ); in main() 71 if ( comm_rank == 0 ) { in main() 74 MPI_Send( &comm_rank, 1, MPI_INT, 0, 9999, inter_comm ); in main()
|
H A D | fcomm1_isr.f | 12 integer comm_rank, comm_size, comm_neighbor variable 54 call MPI_Comm_rank( comm, comm_rank, ierr ) 56 if ( comm_rank .eq. comm_size - 1 ) then 59 comm_neighbor = comm_rank + 1 64 call MPI_Send( comm_rank, 1, MPI_INTEGER, comm_neighbor, 77 if ( comm_rank .eq. 0 ) then 80 call MPI_Send( comm_rank, 1, MPI_INTEGER, 0,
|
H A D | comm1_isr_loop.c | 19 int comm_rank, comm_size, comm_neighbor; in main() local 60 MPI_Comm_rank( *comm_ptr, &comm_rank ); in main() 62 if ( comm_rank == comm_size - 1 ) in main() 65 comm_neighbor = comm_rank + 1; in main() 71 MPI_Send( &comm_rank, 1, MPI_INT, comm_neighbor, in main() 85 if ( comm_rank == 0 ) { in main() 90 MPI_Send( &comm_rank, 1, MPI_INT, 0, 9999, inter_comm ); in main()
|
/dports/science/cgnslib/CGNS-4.1.2/src/Test_UserGuideCode/C_code_parallel/ |
H A D | read_grid_str_paroverzone.c | 21 int n, comm_size, comm_rank; in main() local 27 MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank); in main() 50 if (comm_rank < numUnevenZone) in main() 53 idxGlobalZoneBeg = comm_rank*numLocalZone; in main() 58 idxGlobalZoneBeg += (comm_rank - numUnevenZone)*numLocalZone; in main() 118 if (n == comm_rank) in main() 123 "grid_poz_c.cgns\n", comm_rank); in main() 143 if (comm_rank == 0) in main()
|
H A D | read_flowcentrind_str_paroverzone.c | 27 int n, comm_size, comm_rank; in main() local 33 MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank); in main() 58 if (comm_rank < numUnevenZone) in main() 61 idxGlobalZoneBeg = comm_rank*numLocalZone; in main() 66 idxGlobalZoneBeg += (comm_rank - numUnevenZone)*numLocalZone; in main() 126 if (n == comm_rank) in main() 132 "zone %d in file grid_poz_c.cgns\n", comm_rank, in main() 155 if (comm_rank == 0) in main()
|
H A D | read_grid_str_parinzone.c | 22 int n, comm_size, comm_rank; in main() local 28 MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank); in main() 49 if (comm_rank < numUnevenkIdx) in main() 52 kIdxBeg = comm_rank*numLocalkIdx; in main() 57 kIdxBeg += (comm_rank - numUnevenkIdx)*numLocalkIdx; in main() 112 "%f, %f, %f\n", comm_rank, in main() 124 if (comm_rank == 0) in main()
|
H A D | read_flowcentrind_str_parinzone.c | 28 int n, comm_size, comm_rank; in main() local 34 MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank); in main() 60 if (comm_rank < numUnevenkIdx) in main() 63 kIdxBeg = comm_rank*numLocalkIdx; in main() 68 kIdxBeg += (comm_rank - numUnevenkIdx)*numLocalkIdx; in main() 137 if (comm_rank == 0) in main()
|
/dports/net/mpich2/mpich2-1.5/examples/developers/ |
H A D | threads.c | 17 int comm_rank, comm_size, thread_level_provided, num_msgs = 50; variable 33 MPI_Comm_rank(MPI_COMM_WORLD,&comm_rank); in main() 85 printf("comm_rank=%d mythrdrank=%d\n",comm_rank,mythrdrank); in thrdsub() 94 if (comm_rank == 0) in thrdsub() 106 printf("comm_rank=%d mythrdrank=%d bad recv\n",comm_rank,mythrdrank); in thrdsub() 126 printf("comm_rank=%d mythrdrank=%d bad recv\n",comm_rank,mythrdrank); in thrdsub()
|
/dports/net/mpich/mpich-3.4.3/examples/developers/ |
H A D | threads.c | 16 int comm_rank, comm_size, thread_level_provided, num_msgs = 50; variable 31 MPI_Comm_rank(MPI_COMM_WORLD, &comm_rank); in main() 78 printf("comm_rank=%d mythrdrank=%d\n", comm_rank, mythrdrank); in thrdsub() 84 if (comm_rank == 0) { in thrdsub() 93 printf("comm_rank=%d mythrdrank=%d bad recv\n", comm_rank, mythrdrank); in thrdsub() 108 printf("comm_rank=%d mythrdrank=%d bad recv\n", comm_rank, mythrdrank); in thrdsub()
|