/dports/science/hdf5/hdf5-1.10.6/testpar/ |
H A D | t_prop.c | 32 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 D | t_pread.c | 134 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 D | t_dset.c | 83 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 D | t_file_image.c | 65 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 D | t_pflush2.c | 150 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 D | t_bigio.c | 45 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 D | t_coll_md_read.c | 29 #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 D | testpar.h | 52 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 D | lingen_io_wrappers.cpp | 37 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 D | H5FDmpio.c | 64 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 D | tst_parallel_compress.c | 38 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 D | tst_parallel_zlib.c | 39 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 D | tst_parallel.c | 35 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 D | tst_parallel.c | 35 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 D | t_ascent_babelflow_pmt_mpi.cpp | 46 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 D | parallel_hdf5_write_dataset.cpp | 29 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 D | t_dset.c | 81 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 D | t_file_image.c | 65 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 D | testpar.h | 51 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 D | t_pflush2.c | 144 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 D | t_file.c | 34 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 D | ascent_babelflow_example.cpp | 90 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 D | dbcsr_tensor_example_2.cpp | 138 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 D | dbcsr_tensor_example_1.cpp | 138 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 D | ascent_bflow_iso_example.cpp | 45 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()
|