/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/maloc/tools/tests/psh/ |
H A D | vcomtst.c | 43 int myrank; in main() local 50 myrank = Vcom_rank(vcom); in main() 56 if (myrank == 0) { in main() 61 myrank, i); in main() 85 if (myrank == 0) printf("\n\nPE %d: STARTING BARRIER TEST.\n",myrank); in main() 86 printf("PE %d: Hit barrier\n", myrank); in main() 93 if (myrank == 0) { in main() 106 if (myrank == 0) { in main() 116 if (myrank == 0) { in main() 119 myrank, testj, testi); in main() [all …]
|
/dports/science/gromacs/gromacs-2021.4/src/external/thread_mpi/src/ |
H A D | scatter.cpp | 68 int myrank; in tMPI_Scatter() local 84 myrank = tMPI_Comm_seek_rank(comm, cur); in tMPI_Scatter() 87 cev = tMPI_Get_cev(comm, myrank, &synct); in tMPI_Scatter() 89 if (myrank == root) in tMPI_Scatter() 105 cev->met[myrank].datatype = sendtype; in tMPI_Scatter() 134 if (i != myrank) in tMPI_Scatter() 179 tMPI_Wait_for_others(cev, myrank); in tMPI_Scatter() 204 int myrank; in tMPI_Scatterv() local 227 if (myrank == root) in tMPI_Scatterv() 271 if (i != myrank) in tMPI_Scatterv() [all …]
|
H A D | alltoall.cpp | 68 int myrank; in tMPI_Alltoall() local 94 myrank = tMPI_Comm_seek_rank(comm, cur); in tMPI_Alltoall() 102 cev->met[myrank].datatype = sendtype; in tMPI_Alltoall() 116 if (i != myrank) in tMPI_Alltoall() 131 cev->met[myrank].read_data[myrank] = TRUE; in tMPI_Alltoall() 164 tMPI_Wait_for_others(cev, myrank); in tMPI_Alltoall() 182 int myrank; in tMPI_Alltoallv() local 214 cev->met[myrank].datatype = sendtype; in tMPI_Alltoallv() 228 if (i != myrank) in tMPI_Alltoallv() 244 cev->met[myrank].read_data[myrank] = TRUE; in tMPI_Alltoallv() [all …]
|
H A D | gather.cpp | 67 int myrank; in tMPI_Gather() local 84 myrank = tMPI_Comm_seek_rank(comm, cur); in tMPI_Gather() 87 cev = tMPI_Get_cev(comm, myrank, &synct); in tMPI_Gather() 89 if (myrank == root) in tMPI_Gather() 107 cev->met[myrank].read_data[myrank] = TRUE; in tMPI_Gather() 155 tMPI_Wait_for_others(cev, myrank); in tMPI_Gather() 174 int myrank; in tMPI_Gatherv() local 191 myrank = tMPI_Comm_seek_rank(comm, cur); in tMPI_Gatherv() 196 if (myrank == root) in tMPI_Gatherv() 214 cev->met[myrank].read_data[myrank] = TRUE; in tMPI_Gatherv() [all …]
|
H A D | scan.cpp | 66 int myrank = tMPI_Comm_seek_rank(comm, cur); in tMPI_Scan() local 69 int next = myrank + 1; /* my next neighbor */ in tMPI_Scan() 92 tMPI_Atomic_ptr_set(&(comm->reduce_sendbuf[myrank]), sendbuf); in tMPI_Scan() 93 tMPI_Atomic_ptr_set(&(comm->reduce_recvbuf[myrank]), recvbuf); in tMPI_Scan() 96 if (myrank > 0) in tMPI_Scan() 105 tMPI_Event_wait( &(comm->csync[myrank].events[prev]) ); in tMPI_Scan() 111 printf("%d: scanning with %d \n", myrank, prev, iteration); in tMPI_Scan() 143 if (myrank < N-1) in tMPI_Scan() 146 tMPI_Event_signal( &(comm->csync[next].events[myrank]) ); in tMPI_Scan() 148 tMPI_Event_wait( &(comm->csync[myrank].events[myrank]) ); in tMPI_Scan() [all …]
|
H A D | reduce.cpp | 80 int myrank = tMPI_Comm_seek_rank(comm, cur); in tMPI_Reduce_fast() local 122 (N+myrank+nbr_dist)%N : in tMPI_Reduce_fast() 123 (N+myrank-nbr_dist)%N; in tMPI_Reduce_fast() 127 myrank, iteration, myrank_rtr, stepping); in tMPI_Reduce_fast() 142 myrank, nbr, iteration); in tMPI_Reduce_fast() 157 myrank, nbr, iteration); in tMPI_Reduce_fast() 212 nbr, myrank, iteration); in tMPI_Reduce_fast() 248 int myrank = tMPI_Comm_seek_rank(comm, cur); in tMPI_Reduce() local 259 if (myrank == root) in tMPI_Reduce() 274 if (myrank != root) in tMPI_Reduce() [all …]
|
H A D | collective.cpp | 278 if (cev->met[myrank].using_cb) in tMPI_Get_cev() 289 if (cev->met[myrank].cb) in tMPI_Get_cev() 293 cev->met[myrank].cb = NULL; in tMPI_Get_cev() 294 cev->met[myrank].using_cb = FALSE; in tMPI_Get_cev() 445 cev->met[myrank].using_cb = using_cb; in tMPI_Post_multi() 455 cev->met[myrank].tag = tag; in tMPI_Post_multi() 457 cev->met[myrank].buf[index] = buf; in tMPI_Post_multi() 468 if (i != myrank) in tMPI_Post_multi() 487 if (cev->met[myrank].cb == NULL) in tMPI_Post_multi() 518 if (!(cev->met[myrank].using_cb) ) in tMPI_Wait_for_others() [all …]
|
/dports/science/pnetcdf/parallel-netcdf-1.8.1/src/lib/ |
H A D | subfile.c | 97 if (myrank == 0) in ncmpii_subfile_create() 149 if (myrank == 0) in ncmpii_subfile_open() 163 if (myrank == 0) in ncmpii_subfile_open() 499 if (myrank == 0) in ncmpii_subfile_getput_vars() 690 buf_count_my[myrank] *= my_req[myrank].count[i]; in ncmpii_subfile_getput_vars() 813 …if (myrank == 0) printf("local: rank(%d): buf_offset[%d]=%d\n", myrank, myrank, buf_offset[myrank]… in ncmpii_subfile_getput_vars() 821 myrank, buf_offset[myrank], myrank, buf_count_my[myrank]); in ncmpii_subfile_getput_vars() 826 myrank, i, my_req[myrank].start[i], myrank, i, in ncmpii_subfile_getput_vars() 827 my_req[myrank].count[i], myrank, i, in ncmpii_subfile_getput_vars() 839 printf("buf_count_my[%d]=%d\n", myrank, buf_count_my[myrank]); in ncmpii_subfile_getput_vars() [all …]
|
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/precond/nn/ |
H A D | hecmw_ML_wrapper.c | 90 int loglevel, myrank; in hecmw_ML_wrapper_setup() local 104 HECMW_Comm_rank(HECMW_comm_get_comm(), &myrank); in hecmw_ML_wrapper_setup() 122 if (loglevel > 0 && myrank == 0) fprintf(stderr, "INFO: ML coarse solver is KLU\n"); in hecmw_ML_wrapper_setup() 127 if (loglevel > 0 && myrank == 0) fprintf(stderr, "INFO: ML coarse solver is MUMPS\n"); in hecmw_ML_wrapper_setup() 130 if (myrank == 0) fprintf(stderr, "WARNING: invalid solver_opt1=%d (ignored)\n", opt1); in hecmw_ML_wrapper_setup() 137 if (loglevel > 0 && myrank == 0) fprintf(stderr, "INFO: ML using default smoother\n"); in hecmw_ML_wrapper_setup() 140 if (loglevel > 0 && myrank == 0) fprintf(stderr, "INFO: ML smoother is Cheby\n"); in hecmw_ML_wrapper_setup() 150 if (loglevel > 0 && myrank == 0) fprintf(stderr, "INFO: ML smoother is Jacobi\n"); in hecmw_ML_wrapper_setup() 153 if (myrank == 0) fprintf(stderr, "WARNING: invalid solver_opt2=%d (ignored)\n", opt2); in hecmw_ML_wrapper_setup() 174 if (myrank == 0) fprintf(stderr, "WARNING: invalid solver_opt3=%d (ignored)\n", opt3); in hecmw_ML_wrapper_setup() [all …]
|
/dports/science/openmx/openmx3.8/source/ |
H A D | exx_log.c | 51 int myrank; in EXX_Log_StdOut() local 55 MPI_Comm_rank(g_exx_mpicomm, &myrank); in EXX_Log_StdOut() 57 myrank = EXX_ROOT_RANK; in EXX_Log_StdOut() 60 if (EXX_ROOT_RANK == myrank) { in EXX_Log_StdOut() 71 int myrank; in EXX_Log_StdErr() local 75 MPI_Comm_rank(g_exx_mpicomm, &myrank); in EXX_Log_StdErr() 77 myrank = EXX_ROOT_RANK; in EXX_Log_StdErr() 80 if (EXX_ROOT_RANK == myrank) { in EXX_Log_StdErr() 117 int nproc, myrank; in EXX_Log_Open() local 127 myrank = EXX_ROOT_RANK; in EXX_Log_Open() [all …]
|
/dports/math/combblas/CombBLAS_beta_16_2/usort/src/ |
H A D | main.cpp | 113 int myrank, p; in verify() local 165 int myrank, p; in time_sort() local 342 int myrank; in main() local 443 if (!myrank) in main() 466 if (!myrank) { in main() 482 if(!myrank){ in main() 536 if(!myrank){ in main() 564 if (!myrank) { in printResults() 571 if (!myrank) { in printResults() 576 if (!myrank) { in printResults() [all …]
|
/dports/math/dune-grid-glue/dune-grid-glue-17bd9898df80a52e2c316fc053119d190c149a2e/dune/grid-glue/adapter/ |
H A D | gridglue.cc | 36 int myrank = 0; in build() local 39 MPI_Comm_rank(mpicomm_, &myrank); in build() 65 std::cout << ">>>> rank " << myrank << " coords: " in build() 69 std::cout << ">>>> rank " << myrank << " types: " in build() 115 if (mergingrank != myrank && in build() 190 int myrank = 0; in mergePatches() local 193 MPI_Comm_rank(mpicomm_, &myrank); in mergePatches() 204 std::cout << myrank in mergePatches() 218 std::cout << myrank in mergePatches() 225 printVector(patch0types,"patch0types",myrank); in mergePatches() [all …]
|
/dports/net/mpich2/mpich2-1.5/src/mpi/romio/adio/ad_testfs/ |
H A D | ad_testfs_write.c | 15 int myrank, nprocs, datatype_size; in ADIOI_TESTFS_WriteContig() local 20 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_WriteContig() 22 FPRINTF(stdout, "[%d/%d] ADIOI_TESTFS_WriteContig called on %s\n", myrank, in ADIOI_TESTFS_WriteContig() 25 myrank, nprocs, buf, (long long) offset, in ADIOI_TESTFS_WriteContig() 32 FPRINTF(stdout, "[%d/%d] new file position is %lld\n", myrank, in ADIOI_TESTFS_WriteContig() 49 int myrank, nprocs; in ADIOI_TESTFS_WriteStrided() local 54 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_WriteStrided() 56 myrank, nprocs, fd->filename); in ADIOI_TESTFS_WriteStrided() 58 myrank, nprocs); in ADIOI_TESTFS_WriteStrided()
|
H A D | ad_testfs_read.c | 15 int myrank, nprocs, datatype_size; in ADIOI_TESTFS_ReadContig() local 20 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_ReadContig() 22 FPRINTF(stdout, "[%d/%d] ADIOI_TESTFS_ReadContig called on %s\n", myrank, in ADIOI_TESTFS_ReadContig() 35 myrank, nprocs, buf, (long long) offset, in ADIOI_TESTFS_ReadContig() 48 int myrank, nprocs; in ADIOI_TESTFS_ReadStrided() local 53 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_ReadStrided() 54 FPRINTF(stdout, "[%d/%d] ADIOI_TESTFS_ReadStrided called on %s\n", myrank, in ADIOI_TESTFS_ReadStrided() 56 FPRINTF(stdout, "[%d/%d] calling ADIOI_GEN_ReadStrided\n", myrank, in ADIOI_TESTFS_ReadStrided()
|
H A D | ad_testfs_iread.c | 21 int myrank, nprocs, typesize, len; in ADIOI_TESTFS_IreadContig() local 26 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_IreadContig() 29 myrank, nprocs, fd->filename); in ADIOI_TESTFS_IreadContig() 31 myrank, nprocs); in ADIOI_TESTFS_IreadContig() 46 int myrank, nprocs; in ADIOI_TESTFS_IreadStrided() local 50 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_IreadStrided() 53 myrank, nprocs, fd->filename); in ADIOI_TESTFS_IreadStrided() 55 myrank, nprocs); in ADIOI_TESTFS_IreadStrided()
|
H A D | ad_testfs_iwrite.c | 24 int myrank, nprocs, typesize, len; in ADIOI_TESTFS_IwriteContig() local 30 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_IwriteContig() 32 myrank, nprocs, fd->filename); in ADIOI_TESTFS_IwriteContig() 34 myrank, nprocs); in ADIOI_TESTFS_IwriteContig() 49 int myrank, nprocs; in ADIOI_TESTFS_IwriteStrided() local 55 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_IwriteStrided() 59 myrank, nprocs, fd->filename); in ADIOI_TESTFS_IwriteStrided() 61 myrank, nprocs); in ADIOI_TESTFS_IwriteStrided()
|
/dports/net/mpich/mpich-3.4.3/src/mpi/romio/adio/ad_testfs/ |
H A D | ad_testfs_write.c | 14 int myrank, nprocs; in ADIOI_TESTFS_WriteContig() local 20 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_WriteContig() 22 FPRINTF(stdout, "[%d/%d] ADIOI_TESTFS_WriteContig called on %s\n", myrank, in ADIOI_TESTFS_WriteContig() 25 myrank, nprocs, buf, (long long) offset, (long long) datatype_size * (long long) count); in ADIOI_TESTFS_WriteContig() 30 FPRINTF(stdout, "[%d/%d] new file position is %lld\n", myrank, in ADIOI_TESTFS_WriteContig() 45 int myrank, nprocs; in ADIOI_TESTFS_WriteStrided() local 50 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_WriteStrided() 52 myrank, nprocs, fd->filename); in ADIOI_TESTFS_WriteStrided() 53 FPRINTF(stdout, "[%d/%d] calling ADIOI_GEN_WriteStrided\n", myrank, nprocs); in ADIOI_TESTFS_WriteStrided()
|
H A D | ad_testfs_read.c | 14 int myrank, nprocs; in ADIOI_TESTFS_ReadContig() local 20 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_ReadContig() 22 FPRINTF(stdout, "[%d/%d] ADIOI_TESTFS_ReadContig called on %s\n", myrank, nprocs, fd->filename); in ADIOI_TESTFS_ReadContig() 32 myrank, nprocs, buf, (long long) offset, (long long) datatype_size * count); in ADIOI_TESTFS_ReadContig() 44 int myrank, nprocs; in ADIOI_TESTFS_ReadStrided() local 49 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_ReadStrided() 50 FPRINTF(stdout, "[%d/%d] ADIOI_TESTFS_ReadStrided called on %s\n", myrank, in ADIOI_TESTFS_ReadStrided() 52 FPRINTF(stdout, "[%d/%d] calling ADIOI_GEN_ReadStrided\n", myrank, nprocs); in ADIOI_TESTFS_ReadStrided()
|
/dports/net/openmpi3/openmpi-3.1.6/ompi/mca/io/romio314/romio/adio/ad_testfs/ |
H A D | ad_testfs_write.c | 15 int myrank, nprocs; in ADIOI_TESTFS_WriteContig() local 21 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_WriteContig() 23 FPRINTF(stdout, "[%d/%d] ADIOI_TESTFS_WriteContig called on %s\n", myrank, in ADIOI_TESTFS_WriteContig() 26 myrank, nprocs, buf, (long long) offset, in ADIOI_TESTFS_WriteContig() 33 FPRINTF(stdout, "[%d/%d] new file position is %lld\n", myrank, in ADIOI_TESTFS_WriteContig() 50 int myrank, nprocs; in ADIOI_TESTFS_WriteStrided() local 55 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_WriteStrided() 57 myrank, nprocs, fd->filename); in ADIOI_TESTFS_WriteStrided() 59 myrank, nprocs); in ADIOI_TESTFS_WriteStrided()
|
/dports/net/openmpi/openmpi-4.1.1/ompi/mca/io/romio321/romio/adio/ad_testfs/ |
H A D | ad_testfs_write.c | 15 int myrank, nprocs; in ADIOI_TESTFS_WriteContig() local 21 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_WriteContig() 23 FPRINTF(stdout, "[%d/%d] ADIOI_TESTFS_WriteContig called on %s\n", myrank, in ADIOI_TESTFS_WriteContig() 26 myrank, nprocs, buf, (long long) offset, in ADIOI_TESTFS_WriteContig() 33 FPRINTF(stdout, "[%d/%d] new file position is %lld\n", myrank, in ADIOI_TESTFS_WriteContig() 50 int myrank, nprocs; in ADIOI_TESTFS_WriteStrided() local 55 MPI_Comm_rank(fd->comm, &myrank); in ADIOI_TESTFS_WriteStrided() 57 myrank, nprocs, fd->filename); in ADIOI_TESTFS_WriteStrided() 59 myrank, nprocs); in ADIOI_TESTFS_WriteStrided()
|
/dports/net/mpich/mpich-3.4.3/test/basic/ |
H A D | sendrecvt.c | 10 int myrank, size, src = 0, dest = 1; in main() local 15 MPI_Comm_rank(MPI_COMM_WORLD, &myrank); in main() 17 if (myrank == src || myrank == dest) { in main() 19 if (myrank == partner) in main() 25 if (myrank == src) { in main() 27 } else if (myrank == dest) { in main()
|
/dports/net/mpich2/mpich2-1.5/test/basic/ |
H A D | sendrecvt.c | 10 int myrank, size, src=0, dest=1; in main() local 15 MPI_Comm_rank( MPI_COMM_WORLD, &myrank ); in main() 17 if (myrank == src || myrank == dest) { in main() 19 if (myrank == partner) partner = dest; in main() 25 if (myrank == src) { in main() 28 else if (myrank == dest) { in main()
|
/dports/french/med/med-4.0.0/tests/parallel/ |
H A D | getBlocksOfEntitiesPartition.c | 27 void getContinuousBlocksOfEntities(const int myrank, const int nproc, const int nentities, in getContinuousBlocksOfEntities() argument 48 if ( myrank < _nusedproc) in getContinuousBlocksOfEntities() 62 *start = myrank*_nblocks_pproc*_blocksize; in getContinuousBlocksOfEntities() 67 if ( myrank == _lastusedrank ) { in getContinuousBlocksOfEntities() 75 myrank,*start,*stride,*blocksize,*count,*lastblocksize); in getContinuousBlocksOfEntities() 79 void getCyclicBlocksOfEntities(const int myrank, const int nproc, const int nentities, in getCyclicBlocksOfEntities() argument 111 getContinuousBlocksOfEntities(myrank, nproc, nentities, in getCyclicBlocksOfEntities() 119 *start = _blocksize*myrank; in getCyclicBlocksOfEntities() 122 if (myrank == _lastusedrank) { in getCyclicBlocksOfEntities()
|
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/sunmatrix/ |
H A D | test_sunmatrix.h | 41 #define TEST_STATUS(fmt, myrank) \ argument 42 if (print_all_ranks == 0 && myrank == 0) { \ 45 printf("process %06d: ", myrank); \ 48 #define TEST_STATUS2(fmt, retval, myrank) \ argument 49 if (print_all_ranks == 0 && myrank == 0) { \ 52 printf("process %06d: ", myrank); \ 55 #define TEST_STATUS3(fmt, val1, val2, myrank) \ argument 56 if (print_all_ranks == 0 && myrank == 0) { \ 59 printf("process %06d: ", myrank); \
|
/dports/math/sundials/sundials-5.7.0/examples/sunmatrix/ |
H A D | test_sunmatrix.h | 41 #define TEST_STATUS(fmt, myrank) \ argument 42 if (print_all_ranks == 0 && myrank == 0) { \ 45 printf("process %06d: ", myrank); \ 48 #define TEST_STATUS2(fmt, retval, myrank) \ argument 49 if (print_all_ranks == 0 && myrank == 0) { \ 52 printf("process %06d: ", myrank); \ 55 #define TEST_STATUS3(fmt, val1, val2, myrank) \ argument 56 if (print_all_ranks == 0 && myrank == 0) { \ 59 printf("process %06d: ", myrank); \
|