Home
last modified time | relevance | path

Searched refs:mpi_rank (Results 26 – 50 of 373) sorted by relevance

12345678910>>...15

/dports/science/hdf5/hdf5-1.10.6/testpar/
H A Dt_prop.c32 if(mpi_rank == 0) { in test_encode_decode()
51 if(mpi_rank == recv_proc) { in test_encode_decode()
72 if(0 == mpi_rank) in test_encode_decode()
98 int mpi_size, mpi_rank, recv_proc; in test_plist_ed() local
148 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in test_plist_ed()
181 ret = test_encode_decode(dcpl, mpi_rank, recv_proc); in test_plist_ed()
195 ret = test_encode_decode(dapl, mpi_rank, recv_proc); in test_plist_ed()
215 ret = test_encode_decode(ocpl, mpi_rank, recv_proc); in test_plist_ed()
253 ret = test_encode_decode(dxpl, mpi_rank, recv_proc); in test_plist_ed()
280 ret = test_encode_decode(gcpl, mpi_rank, recv_proc); in test_plist_ed()
[all …]
H A Dt_pread.c134 if ( mpi_rank == 0 ) { in generate_test_file()
446 if ( mpi_rank == 0 ) { in generate_test_file()
547 if ( mpi_rank == 0 ) { in test_parallel_read()
1095 int mpi_rank; in main() local
1128 if ( mpi_rank == 0 ) { in main()
1137 if ( mpi_rank == 0 ) { in main()
1169 if ( mpi_rank == 0 ) { in main()
1179 if ( mpi_rank == 0 ) { in main()
1189 if ( mpi_rank == 0 ) { in main()
1196 if ( mpi_rank == 0 ) { in main()
[all …]
H A Dt_dset.c83 start[0] = (mpi_rank ? mpi_rank * block[0] : 0); in slab_set()
97 start[1] = (mpi_rank ? mpi_rank * block[1] : 0); in slab_set()
297 int mpi_size, mpi_rank; in dataset_writeInd() local
396 if((mpi_rank/2)*2 != mpi_rank){ in dataset_writeInd()
2790 if(mpi_rank) { in none_selection_chunk()
2812 if(!mpi_rank) { in none_selection_chunk()
2824 if(!mpi_rank) { in none_selection_chunk()
2846 if(mpi_rank) { in none_selection_chunk()
2868 if(mpi_rank) { in none_selection_chunk()
3394 int mpi_rank = -1; in actual_io_mode_tests() local
[all …]
H A Dt_file_image.c65 int mpi_size, mpi_rank; in file_image_daisy_chain_test() local
87 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in file_image_daisy_chain_test()
91 (int)mpi_rank); in file_image_daisy_chain_test()
93 if(mpi_rank == 0) { in file_image_daisy_chain_test()
266 MPI_BYTE, mpi_rank - 1, 0, MPI_COMM_WORLD, in file_image_daisy_chain_test()
275 MPI_BYTE, mpi_rank - 1, 0, MPI_COMM_WORLD, in file_image_daisy_chain_test()
325 if(i < mpi_rank) { in file_image_daisy_chain_test()
338 vector_ptr[mpi_rank] = mpi_rank; in file_image_daisy_chain_test()
363 MPI_BYTE, (mpi_rank + 1) % mpi_size, 0, in file_image_daisy_chain_test()
369 MPI_BYTE, (mpi_rank + 1) % mpi_size, 0, in file_image_daisy_chain_test()
H A Dt_pflush2.c150 int mpi_rank; in main() local
156 MPI_Comm_rank(comm, &mpi_rank); in main()
158 if(mpi_rank == 0) in main()
167 if(mpi_rank == 0) { in main()
191 else if(mpi_rank == 0) { in main()
198 if(mpi_rank == 0) in main()
205 if(mpi_rank == 0) in main()
H A Dt_bigio.c45 int mpi_size, mpi_rank; variable
230 ccslab_set(int mpi_rank, in ccslab_set() argument
293 if((mpi_rank *3)<(mpi_size*2)) start[0] = mpi_rank; in ccslab_set()
520 if (mpi_rank == 0) in dataset_big_write()
583 if (mpi_rank == 0) in dataset_big_write()
647 if (mpi_rank == 0) in dataset_big_write()
709 if (mpi_rank == 0) in dataset_big_write()
836 if (mpi_rank == 0) in dataset_big_read()
898 if (mpi_rank == 0) in dataset_big_read()
959 if (mpi_rank == 0) in dataset_big_read()
[all …]
H A Dt_coll_md_read.c29 #define PARTIAL_NO_SELECTION_NO_SEL_PROCESS (mpi_rank == mpi_size - 1)
75 int mpi_rank, mpi_size; in test_partial_no_selection_coll_md_read() local
79 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in test_partial_no_selection_coll_md_read()
124 start[0] = PARTIAL_NO_SELECTION_Y_DIM_SCALE * mpi_rank; in test_partial_no_selection_coll_md_read()
250 int mpi_rank; in test_multi_chunk_io_addrmap_issue() local
257 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in test_multi_chunk_io_addrmap_issue()
296 if (mpi_rank == 0) in test_multi_chunk_io_addrmap_issue()
302 if (mpi_rank != 0) in test_multi_chunk_io_addrmap_issue()
384 int mpi_rank, mpi_size; in test_link_chunk_io_sort_chunk_issue() local
388 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in test_link_chunk_io_sort_chunk_issue()
[all …]
H A Dtestpar.h52 HDprintf("Proc %d: ", mpi_rank); \
74 HDprintf("Proc %d: ", mpi_rank); \
85 HDprintf("Proc %d: ", mpi_rank); \
91 #define MAINPROCESS (!mpi_rank) /* define process 0 as main process */
/dports/math/cado-nfs/cado-nfs-f4284e2391121b2bfb97bc4880b6273c7250dc2f/linalg/bwc/
H A Dlingen_io_wrappers.cpp37 static int mpi_rank() in mpi_rank() function
160 if (!mpi_rank()) in read_to_matpoly()
169 if (!mpi_rank()) in read_to_matpoly()
378 if (!mpi_rank()) in initial_read()
472 if (!mpi_rank()) in initial_read()
483 if (!mpi_rank()) in share()
671 if (!mpi_rank()) in read_to_matpoly()
716 if (!mpi_rank()) in read_to_matpoly()
948 if (!mpi_rank()) in lingen_F_from_PI()
1312 if (!mpi_rank()) in write_from_matpoly()
[all …]
/dports/math/vtk9/VTK-9.1.0/ThirdParty/hdf5/vtkhdf5/src/
H A DH5FDmpio.c64 int mpi_rank; /* This process's rank */ member
816 if (MPI_SUCCESS != (mpi_code = MPI_Comm_rank(comm, &mpi_rank))) in H5FD__mpio_open()
859 file->mpi_rank = mpi_rank; in H5FD__mpio_open()
863 if (mpi_rank == 0) in H5FD__mpio_open()
906 HDfprintf(stderr, "%s: (%d) Leaving\n", FUNC, mpi_rank); in H5FD__mpio_open()
930 int mpi_rank = file->mpi_rank; in H5FD__mpio_close() local
958 HDfprintf(stderr, "%s: (%d) Leaving\n", FUNC, mpi_rank); in H5FD__mpio_close()
1267 if (file->mpi_rank == 0) in H5FD__mpio_read()
1311 if (!rank0_bcast || (rank0_bcast && file->mpi_rank == 0)) { in H5FD__mpio_read()
1701 if (0 == file->mpi_rank) in H5FD__mpio_truncate()
[all …]
/dports/science/netcdf/netcdf-c-4.7.4/nc_test4/
H A Dtst_parallel_compress.c38 int mpi_size, mpi_rank; in main() local
52 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in main()
60 slab_data[i] = mpi_rank; in main()
62 if (!mpi_rank) in main()
70 if (!mpi_rank) in main()
117 start[0] = mpi_rank * DIMSIZE/mpi_size; in main()
167 if (slab_data_in[i] != mpi_rank) ERR; in main()
176 if (!mpi_rank) in main()
186 if (!mpi_rank) in main()
H A Dtst_parallel_zlib.c39 int mpi_size, mpi_rank; in main() local
58 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in main()
81 if (mpi_rank == 0) in main()
90 slab_data[i] = mpi_rank; in main()
125 if (mpi_rank) in main()
126 sleep(mpi_rank); in main()
130 start[0] = mpi_rank * DIMSIZE/mpi_size; in main()
168 if (mpi_rank == 0) in main()
H A Dtst_parallel.c35 int mpi_size, mpi_rank; in main() local
54 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in main()
77 if (mpi_rank == 1) in main()
86 slab_data[i] = mpi_rank; in main()
112 if (mpi_rank) in main()
113 sleep(mpi_rank); in main()
117 start[0] = mpi_rank * DIMSIZE/mpi_size; in main()
158 if (mpi_rank == 1) in main()
/dports/math/libmesh/libmesh-1.6.2/contrib/netcdf/netcdf-c-4.6.2/nc_test4/
H A Dtst_parallel.c35 int mpi_size, mpi_rank; in main() local
54 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in main()
77 if (mpi_rank == 1) in main()
86 slab_data[i] = mpi_rank; in main()
112 if (mpi_rank) in main()
113 sleep(mpi_rank); in main()
117 start[0] = mpi_rank * DIMSIZE/mpi_size; in main()
158 if (mpi_rank == 1) in main()
/dports/science/ascent/ascent-0.7.1-66-gbcf2742a/src/tests/ascent/
H A Dt_ascent_babelflow_pmt_mpi.cpp46 int mpi_rank, mpi_size; in TEST() local
48 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in TEST()
64 low[0] = mpi_rank % n_blocks[0] * block_size[0]; in TEST()
65 low[1] = mpi_rank / n_blocks[0] % n_blocks[1] * block_size[1]; in TEST()
66 low[2] = mpi_rank / n_blocks[1] / n_blocks[2] % n_blocks[2] * block_size[2]; in TEST()
126 int32_t task_id = mpi_rank; in TEST()
137 if (mpi_rank == 0) in TEST()
193 if (mpi_rank == 0) in TEST()
201 if (mpi_rank == 0) { in TEST()
/dports/science/highfive/HighFive-2.3.1/src/examples/
H A Dparallel_hdf5_write_dataset.cpp29 int mpi_rank, mpi_size; in main() local
34 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in main()
56 int data[1][2] = {{mpi_rank, mpi_rank}}; in main()
59 dataset.select({std::size_t(mpi_rank), 0}, {1, 2}).write(data); in main()
/dports/science/hdf5-18/hdf5-1.8.21/testpar/
H A Dt_dset.c81 start[0] = (mpi_rank? mpi_rank*block[0] : 0); in slab_set()
94 start[1] = (mpi_rank? mpi_rank*block[1] : 0); in slab_set()
289 int mpi_size, mpi_rank; in dataset_writeInd() local
388 if((mpi_rank/2)*2 != mpi_rank){ in dataset_writeInd()
2543 if(mpi_rank==0) { in compress_readAll()
2765 if(mpi_rank) { in none_selection_chunk()
2787 if(!mpi_rank) { in none_selection_chunk()
2799 if(!mpi_rank) { in none_selection_chunk()
2821 if(mpi_rank) { in none_selection_chunk()
2843 if(mpi_rank) { in none_selection_chunk()
[all …]
H A Dt_file_image.c65 int mpi_size, mpi_rank; in file_image_daisy_chain_test() local
87 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in file_image_daisy_chain_test()
91 (int)mpi_rank); in file_image_daisy_chain_test()
93 if(mpi_rank == 0) { in file_image_daisy_chain_test()
266 MPI_BYTE, mpi_rank - 1, 0, MPI_COMM_WORLD, in file_image_daisy_chain_test()
275 MPI_BYTE, mpi_rank - 1, 0, MPI_COMM_WORLD, in file_image_daisy_chain_test()
325 if(i < mpi_rank) { in file_image_daisy_chain_test()
338 vector_ptr[mpi_rank] = mpi_rank; in file_image_daisy_chain_test()
363 MPI_BYTE, (mpi_rank + 1) % mpi_size, 0, in file_image_daisy_chain_test()
369 MPI_BYTE, (mpi_rank + 1) % mpi_size, 0, in file_image_daisy_chain_test()
H A Dtestpar.h51 printf("Proc %d: ", mpi_rank); \
73 printf("Proc %d: ", mpi_rank); \
84 printf("Proc %d: ", mpi_rank); \
90 #define MAINPROCESS (!mpi_rank) /* define process 0 as main process */
H A Dt_pflush2.c144 int mpi_size, mpi_rank; in main() local
150 MPI_Comm_rank(comm, &mpi_rank); in main()
159 if(mpi_rank == 0) in main()
174 else if(mpi_rank == 0) in main()
181 if(mpi_rank == 0) in main()
189 if(mpi_rank == 0) in main()
H A Dt_file.c34 int mpi_size, mpi_rank; in test_split_comm_access() local
51 MPI_Comm_rank(MPI_COMM_WORLD,&mpi_rank); in test_split_comm_access()
52 is_old = mpi_rank%2; in test_split_comm_access()
53 mrc = MPI_Comm_split(MPI_COMM_WORLD, is_old, mpi_rank, &comm); in test_split_comm_access()
/dports/science/ascent/ascent-0.7.1-66-gbcf2742a/src/examples/babelflow/pmt/
H A Dascent_babelflow_example.cpp90 int mpi_rank, mpi_size; in main() local
92 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in main()
108 low[0] = mpi_rank % n_blocks[0] * block_size[0]; in main()
109 low[1] = mpi_rank / n_blocks[0] % n_blocks[1] * block_size[1]; in main()
110 low[2] = mpi_rank / n_blocks[1] / n_blocks[2] % n_blocks[2] * block_size[2]; in main()
142 if( mpi_rank == 0 ) in main()
187 int32_t task_id = mpi_rank; in main()
195 ss << "data" << mpi_rank << ".bin"; in main()
207 ss << "data" << mpi_rank << ".params"; in main()
345 if( mpi_rank == 0 ) in main()
[all …]
/dports/math/dbcsr/dbcsr-2.1.0/examples/
H A Ddbcsr_tensor_example_2.cpp138 int mpi_size, mpi_rank; in main() local
140 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in main()
156 if (mpi_rank == 0) { in main()
224 if (mpi_rank == 0) { in main()
272 if (mpi_rank == 0) std::cout << "Creating dist objects..." << '\n' << std::endl; in main()
294 if (mpi_rank == 0) std::cout << "Creating tensors..." << std::endl; in main()
309 if (mpi_rank == 0) std::cout << "Tensor 1" << '\n' << std::endl; in main()
311 if (mpi_rank == 0) std::cout << "Tensor 2" << '\n' << std::endl; in main()
313 if (mpi_rank == 0) std::cout << "Tensor 3" << '\n' << std::endl; in main()
322 if (mpi_rank == 0) std::cout << "Contracting..." << std::endl; in main()
[all …]
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/exts/dbcsr/examples/
H A Ddbcsr_tensor_example_1.cpp138 int mpi_size, mpi_rank; in main() local
140 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in main()
156 if (mpi_rank == 0) { in main()
224 if (mpi_rank == 0) { in main()
272 if (mpi_rank == 0) std::cout << "Creating dist objects..." << '\n' << std::endl; in main()
294 if (mpi_rank == 0) std::cout << "Creating tensors..." << std::endl; in main()
309 if (mpi_rank == 0) std::cout << "Tensor 1" << '\n' << std::endl; in main()
311 if (mpi_rank == 0) std::cout << "Tensor 2" << '\n' << std::endl; in main()
313 if (mpi_rank == 0) std::cout << "Tensor 3" << '\n' << std::endl; in main()
322 if (mpi_rank == 0) std::cout << "Contracting..." << std::endl; in main()
[all …]
/dports/science/ascent/ascent-0.7.1-66-gbcf2742a/src/examples/babelflow/iso/
H A Dascent_bflow_iso_example.cpp45 int mpi_rank, mpi_size; in main() local
47 MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); in main()
69 low[0] = mpi_rank % n_blocks[0] * block_size[0]; in main()
70 low[1] = mpi_rank / n_blocks[0] % n_blocks[1] * block_size[1]; in main()
71 low[2] = mpi_rank / n_blocks[1] / n_blocks[2] % n_blocks[2] * block_size[2]; in main()
185 if (mpi_rank == 0) in main()
197 if (mpi_rank == 0) in main()

12345678910>>...15