/dports/cad/scotch/scotch-6.0.4/src/libscotch/ |
H A D | comm.c | 80 int procglbnbr; in commAllgatherv() local 84 MPI_Comm_size (comm, &procglbnbr); in commAllgatherv() 86 &ircvcnttab, (size_t) (procglbnbr * sizeof (int)), in commAllgatherv() 92 for (procnum = 0; procnum < procglbnbr; procnum ++) { in commAllgatherv() 137 int procglbnbr; in commGatherv() local 140 MPI_Comm_size (comm, &procglbnbr); in commGatherv() 142 &ircvcnttab, (size_t) (procglbnbr * sizeof (int)), in commGatherv() 148 for (procnum = 0; procnum < procglbnbr; procnum ++) { in commGatherv() 195 int procglbnbr; in commScatterv() local 198 MPI_Comm_size (comm, &procglbnbr); in commScatterv() [all …]
|
H A D | dgraph_redist.c | 94 int procglbnbr; in dgraphRedist() local 104 procglbnbr = srcgrafptr->procglbnbr; in dgraphRedist() 116 vadjglbnbr = procglbnbr; in dgraphRedist() 119 &procvrttab, (size_t) ((procglbnbr + 1) * sizeof (Gnum)), in dgraphRedist() 120 &procdsptab, (size_t) ((procglbnbr + 1) * sizeof (Gnum)), in dgraphRedist() 141 memSet (vadjloctab, 0, procglbnbr * sizeof (Gnum)); in dgraphRedist() 240 int procglbnbr; in dgraphRedist2() local 255 procglbnbr = srcgrafptr->procglbnbr; in dgraphRedist2() 411 procnum < procglbnbr; procnum ++) { in dgraphRedist2() 484 dstgrafptr->procglbnbr = procglbnbr; in dgraphRedist2() [all …]
|
H A D | dgraph_build.c | 178 int procglbnbr; in dgraphBuild2() local 180 procglbnbr = grafptr->procglbnbr; in dgraphBuild2() 185 &grafptr->procngbtab, (size_t) (procglbnbr * sizeof (int)), in dgraphBuild2() 186 &grafptr->procrcvtab, (size_t) (procglbnbr * sizeof (int)), in dgraphBuild2() 191 if ((dummtab = memAlloc ((procglbnbr * 2) * sizeof (int))) != NULL) { in dgraphBuild2() 214 for (procnum = 0; procnum < grafptr->procglbnbr; procnum ++) { in dgraphBuild2() 354 if ((grafptr->procdsptab[grafptr->procglbnbr] - baseval) < grafptr->vertglbnbr) { in dgraphBuild3() 361 procglbnbr = grafptr->procglbnbr; in dgraphBuild3() 409 procsndnum = (grafptr->proclocnum - 1 + procglbnbr) % procglbnbr; in dgraphBuild3() 412 procngbnbr < procglbnbr; in dgraphBuild3() [all …]
|
H A D | dgraph_check.c | 136 MPI_Comm_size (proccomm, &procglbnbr); /* Get communicator data */ in dgraphCheck() 139 if ((grafptr->procglbnbr != procglbnbr) || in dgraphCheck() 164 for (procrcvnum = 0; procrcvnum < grafptr->procglbnbr; procrcvnum ++) { in dgraphCheck() 177 procrcvnum = (proclocnum + 1) % procglbnbr; /* Compute indices of neighbors */ in dgraphCheck() 178 procsndnum = (proclocnum - 1 + procglbnbr) % procglbnbr; in dgraphCheck() 197 for (procngbnum = 0; procngbnum <= procglbnbr; procngbnum ++) { in dgraphCheck() 208 for (procngbnum = 0; procngbnum <= procglbnbr; procngbnum ++) { in dgraphCheck() 283 if (((reduglbtab[0] != 0) && (reduglbtab[0] != procglbnbr)) || in dgraphCheck() 284 ((reduglbtab[1] != 0) && (reduglbtab[1] != procglbnbr)) || in dgraphCheck() 285 ((reduglbtab[2] != 0) && (reduglbtab[2] != procglbnbr)) || in dgraphCheck() [all …]
|
H A D | dgraph_fold_comm.c | 98 if (grafptr->procglbnbr < 2) { in dgraphFoldComm() 104 if ((procsrttab = memAlloc (grafptr->procglbnbr * sizeof (DgraphFoldCommData))) == NULL) { in dgraphFoldComm() 109 for (procnum = 0; procnum < grafptr->procglbnbr; procnum ++) { in dgraphFoldComm() 116 intSort2asc1 (procsrttab + fldprocnbr, grafptr->procglbnbr - fldprocnbr); in dgraphFoldComm() 121 … procsndbas = grafptr->procglbnbr; /* Send by descending weight order in other part */ in dgraphFoldComm() 126 procrcvnnd = grafptr->procglbnbr; in dgraphFoldComm() 129 fldprocnbr = grafptr->procglbnbr - fldprocnbr; in dgraphFoldComm() 159 &vertadjtab, (size_t) (commtmp * grafptr->procglbnbr * sizeof (Gnum)), in dgraphFoldComm() 160 &vertdlttab, (size_t) (commtmp * grafptr->procglbnbr * sizeof (Gnum)), in dgraphFoldComm() 178 memSet (vertadjtab, ~0, commmax * grafptr->procglbnbr * sizeof (Gnum)); in dgraphFoldComm() [all …]
|
H A D | dorder_tree_dist.c | 127 int procglbnbr; in dorderTreeDist() local 155 MPI_Comm_size (ordeptr->proccomm, &procglbnbr); in dorderTreeDist() 161 &dblkcnttab, (size_t) ( procglbnbr * sizeof (int)), in dorderTreeDist() 162 …&dblkdsptab, (size_t) ( procglbnbr * sizeof (int)), /* TRICK: cblkdsptab used as secondary ar… in dorderTreeDist() 163 …&cblkdsptab, (size_t) ((procglbnbr + 1) * sizeof (int)), /* TRICK: have an array at least of size … in dorderTreeDist() 188 reduglbtab[1] = procglbnbr - 1 + reduloctab[1]; in dorderTreeDist() 189 reduglbtab[2] = procglbnbr - 1 + reduloctab[2]; in dorderTreeDist() 197 if (reduglbtab[2] != procglbnbr) { in dorderTreeDist() 213 …for (procnum = cblkglbtmp = 0; procnum < procglbnbr; procnum ++) { /* Accumulate un-based global s… in dorderTreeDist() 218 …for (procnum = dblkglbtmp = 0; procnum < procglbnbr; procnum ++) { /* Accumulate un-based global s… in dorderTreeDist()
|
H A D | dgraph.c | 98 MPI_Comm_size (proccomm, &grafptr->procglbnbr); /* Get communicator data */ in dgraphInit() 163 int procglbnbr; in dgraphFree() local 170 procglbnbr = grafptr->procglbnbr; in dgraphFree() 177 grafptr->procglbnbr = procglbnbr; in dgraphFree()
|
H A D | dorder_gather.c | 97 int procglbnbr; in dorderGather() local 128 MPI_Comm_size (dordptr->proccomm, &procglbnbr); in dorderGather() 141 &recvcnttab, (size_t) (procglbnbr * sizeof (int)), in dorderGather() 142 &recvdsptab, (size_t) (procglbnbr * sizeof (int)), in dorderGather() 159 reduglbtab[0] = (Gnum) procglbnbr; in dorderGather() 161 if (reduglbtab[0] >= (Gnum) procglbnbr) { in dorderGather() 329 int procglbnbr; in dorderGatherTree() local 355 MPI_Comm_size (dordptr->proccomm, &procglbnbr); in dorderGatherTree() 360 &treecnttab, (size_t) (procglbnbr * sizeof (int)), in dorderGatherTree() 361 &treedsptab, (size_t) (procglbnbr * sizeof (int)), in dorderGatherTree() [all …]
|
H A D | dgraph_ghst.c | 143 … &vertsidtab, (size_t) (grafptr->procglbnbr * sizeof (Gnum)), in dgraphGhst2() 162 memSet (grafptr->procrcvtab, 0, grafptr->procglbnbr * sizeof (int)); in dgraphGhst2() 163 memSet (grafptr->procsndtab, 0, grafptr->procglbnbr * sizeof (int)); in dgraphGhst2() 164 memSet (vertsidtab, ~0, grafptr->procglbnbr * sizeof (Gnum)); in dgraphGhst2() 178 if ((vertlocend < grafptr->baseval) || (vertlocend >= (procvrttab[grafptr->procglbnbr]))) { in dgraphGhst2() 197 for (procngbnum = 0, procngbmax = grafptr->procglbnbr; in dgraphGhst2() 243 …if ((procngbnum > grafptr->procglbnbr) || /* If we have skipped a neighbor to which we have to sen… in dgraphGhst2() 301 …if (((float) reduglbtab[2]) <= ((float) grafptr->procglbnbr * (float) (grafptr->procglbnbr - 1) * … in dgraphGhst2()
|
H A D | dgraph_coarsen.c | 76 int procglbnbr; in dgraphCoarsenInit() local 96 procglbnbr = finegrafptr->procglbnbr; in dgraphCoarsenInit() 152 coarptr->vsndcnttab = coarptr->vrcvcnttab + procglbnbr; in dgraphCoarsenInit() 155 procglbnum < procglbnbr; procglbnum ++) { in dgraphCoarsenInit() 176 memSet (coarptr->dcntloctab, 0, procglbnbr * sizeof (DgraphCoarsenCount)); in dgraphCoarsenInit() 223 memSet (vsndcnttab, 0, grafptr->procglbnbr * sizeof (int)); in dgraphCoarsenBuildColl() 224 memSet (vrcvdsptab, 0, grafptr->procglbnbr * sizeof (int)); in dgraphCoarsenBuildColl() 225 memSet (vsnddsptab, 0, grafptr->procglbnbr * sizeof (int)); in dgraphCoarsenBuildColl() 715 for (procnum = 0; procnum < grafptr->procglbnbr; procnum ++) { in dgraphCoarsenBuild() 982 for (procnum = 0; procnum < finegrafptr->procglbnbr; procnum ++) { in dgraphCoarsen() [all …]
|
H A D | dgraph_view.c | 83 int procglbnbr; /* Number of processes sharing graph data */ in dgraphView() local 92 MPI_Comm_size (proccomm, &procglbnbr); /* Rely on communicator data */ in dgraphView() 96 for (procngbnbr = 0; procngbnbr < procglbnbr; procngbnbr ++) { in dgraphView() 141 for (procngbnum = 0; procngbnum <= procglbnbr ; procngbnum ++) in dgraphView() 151 for (procngbnum = 0; procngbnum < grafptr->procglbnbr; procngbnum ++) in dgraphView() 157 for (procngbnum = 0; procngbnum < grafptr->procglbnbr; procngbnum ++) in dgraphView()
|
H A D | dorder_perm.c | 114 &senddsptab, (size_t) (grafptr->procglbnbr * sizeof (int)), in dorderPerm() 115 &sendcnttab, (size_t) (grafptr->procglbnbr * sizeof (int)), in dorderPerm() 116 &recvdsptab, (size_t) (grafptr->procglbnbr * sizeof (int)), in dorderPerm() 117 &recvcnttab, (size_t) (grafptr->procglbnbr * sizeof (int)), in dorderPerm() 181 for (vnodlocnum = 0, procnum = 0; procnum < grafptr->procglbnbr; ) { in dorderPerm() 211 …for (procnum = 0, vnodrcvnbr = vnodsndnbr = 0; procnum < grafptr->procglbnbr; procnum ++) { /* Acc… in dorderPerm()
|
H A D | dgraph_gather_all.c | 136 if (chekglbval != dgrfptr->procglbnbr) { in dgraphGatherAll2() 190 …&recvcnttab, (size_t) (dgrfptr->procglbnbr * sizeof (Gnum)), /* Allocated for non-roots too but do… in dgraphGatherAll2() 191 &recvdsptab, (size_t) (dgrfptr->procglbnbr * sizeof (Gnum)), in dgraphGatherAll2() 264 …for (procnum = 1; procnum < dgrfptr->procglbnbr; procnum ++) { /* Adjust index sub-arrays for all … in dgraphGatherAll2() 348 procnum < dgrfptr->procglbnbr; procnum ++) { in dgraphGatherAll2() 355 …if ((recvdsptab[dgrfptr->procglbnbr - 1] + recvcnttab[dgrfptr->procglbnbr - 1]) != (cgrfptr->edgen… in dgraphGatherAll2() 409 if ((dgrfptr->procdsptab[dgrfptr->procglbnbr] != /* If graph has holes, relabel end vertices */ in dgraphGatherAll2() 410 dgrfptr->procvrttab[dgrfptr->procglbnbr])) { in dgraphGatherAll2() 413 …for (procnum = 0; procnum < dgrfptr->procglbnbr; procnum ++) { /* Accelerate search per sender pro… in dgraphGatherAll2() 437 for (procngbmin = 0, procngbmax = dgrfptr->procglbnbr; in dgraphGatherAll2()
|
H A D | dmapping.c | 182 &senddsptab, (size_t) (grafptr->procglbnbr * sizeof (int)), in dmapTerm() 183 &sendcnttab, (size_t) (grafptr->procglbnbr * sizeof (int)), in dmapTerm() 184 &recvdsptab, (size_t) (grafptr->procglbnbr * sizeof (int)), in dmapTerm() 185 &recvcnttab, (size_t) (grafptr->procglbnbr * sizeof (int)), in dmapTerm() 238 for (vertlocnum = 0, procnum = 0; procnum < grafptr->procglbnbr; ) { in dmapTerm() 268 …for (procnum = 0, vertrcvnbr = vertsndnbr = 0; procnum < grafptr->procglbnbr; procnum ++) { /* Acc… in dmapTerm()
|
H A D | dgraph_scatter.c | 211 vertlocnbr = DATASIZE (reduglbtab[3], grafptr->procglbnbr, grafptr->proclocnum); in dgraphScatter() 232 &attrdattab, (size_t) (grafptr->procglbnbr * sizeof (Gnum)), in dgraphScatter() 233 &attrdsptab, (size_t) (grafptr->procglbnbr * sizeof (int)), in dgraphScatter() 234 &attrcnttab, (size_t) (grafptr->procglbnbr * sizeof (int)), NULL) == NULL) { in dgraphScatter() 243 attrcnttab[0] = DATASIZE (reduglbtab[3], grafptr->procglbnbr, 0); in dgraphScatter() 245 for (procnum = 1; procnum < grafptr->procglbnbr; procnum ++) { in dgraphScatter() 247 attrcnttab[procnum] = DATASIZE (reduglbtab[3], grafptr->procglbnbr, procnum); in dgraphScatter() 327 … for (procnum = 0; procnum < grafptr->procglbnbr; procnum ++) { /* Build arrays for MPI_Scatterv */ in dgraphScatter()
|
/dports/cad/scotch/scotch-6.0.4/src/scotch/ |
H A D | dgmap.c | 128 int procglbnbr; in main() local 167 MPI_Comm_size (MPI_COMM_WORLD, &procglbnbr); /* Get communicator data */ in main() 273 (protglbnum >= procglbnbr) || in main() 340 fprintf (stderr, "Proc %4d of %d, pid %d\n", proclocnum, procglbnbr, getpid ()); in main() 351 fileBlockOpenDist (C_fileTab, C_FILENBR, procglbnbr, proclocnum, protglbnum); /* Open all files */ in main() 382 …SCOTCH_stratDgraphClusterBuild (&stradat, straval, (SCOTCH_Num) procglbnbr, (SCOTCH_Num) C_partNbr… in main() 384 …SCOTCH_stratDgraphMapBuild (&stradat, straval, (SCOTCH_Num) procglbnbr, (SCOTCH_Num) C_partNbr, kb… in main() 455 reduglbtab[0], reduglbtab[1], reduglbtab[2] / (double) procglbnbr, in main() 456 reduglbtab[3], reduglbtab[4], reduglbtab[5] / (double) procglbnbr, in main() 457 reduglbtab[6], reduglbtab[7], reduglbtab[8] / (double) procglbnbr); in main() [all …]
|
H A D | dgord.c | 118 int procglbnbr; in main() local 145 MPI_Comm_size (MPI_COMM_WORLD, &procglbnbr); /* Get communicator data */ in main() 232 (protglbnum >= procglbnbr) || in main() 279 fprintf (stderr, "Proc %4d of %d, pid %d\n", proclocnum, procglbnbr, getpid ()); in main() 290 fileBlockOpenDist (C_fileTab, C_FILENBR, procglbnbr, proclocnum, protglbnum); /* Open all files */ in main() 302 SCOTCH_stratDgraphOrderBuild (&stradat, straval, (SCOTCH_Num) procglbnbr, 0, 0.2); in main() 393 reduglbtab[0], reduglbtab[1], reduglbtab[2] / (double) procglbnbr, in main() 394 reduglbtab[3], reduglbtab[4], reduglbtab[5] / (double) procglbnbr, in main() 395 reduglbtab[6], reduglbtab[7], reduglbtab[8] / (double) procglbnbr); in main() 400 reduglbtab[9], reduglbtab[10], reduglbtab[11] / (double) procglbnbr); in main()
|
H A D | dgscat.c | 93 int procglbnbr; in main() local 116 MPI_Comm_size (MPI_COMM_WORLD, &procglbnbr); /* Get communicator data */ in main() 156 (protglbnum >= procglbnbr) || in main() 174 fprintf (stderr, "Proc %4d of %d, pid %d\n", proclocnum, procglbnbr, getpid ()); in main() 185 fileBlockOpenDist (C_fileTab, C_FILENBR, procglbnbr, proclocnum, protglbnum); /* Open all files */ in main()
|
H A D | dggath.c | 93 int procglbnbr; in main() local 118 MPI_Comm_size (MPI_COMM_WORLD, &procglbnbr); /* Get communicator data */ in main() 158 (protglbnum >= procglbnbr) || in main() 177 fprintf (stderr, "Proc %4d of %d, pid %d\n", proclocnum, procglbnbr, getpid ()); in main() 188 fileBlockOpenDist (C_fileTab, C_FILENBR, procglbnbr, proclocnum, protglbnum); /* Open all files */ in main()
|
H A D | dgtst.c | 90 int procglbnbr; in main() local 129 MPI_Comm_size (MPI_COMM_WORLD, &procglbnbr); /* Get communicator data */ in main() 166 (protglbnum >= procglbnbr) || in main() 184 fprintf (stderr, "Proc %4d of %d, pid %d\n", proclocnum, procglbnbr, getpid ()); in main() 195 fileBlockOpenDist (C_fileTab, C_FILENBR, procglbnbr, proclocnum, protglbnum); /* Open all files */ in main()
|
/dports/cad/scotch/scotch-6.0.4/src/check/ |
H A D | test_scotch_dgraph_coarsen.c | 79 int procglbnbr; /* Number of processes sharing graph data */ in main() local 115 MPI_Comm_size (proccomm, &procglbnbr); /* Get communicator data */ in main() 118 fprintf (stderr, "Proc %2d of %2d, pid %d\n", proclocnum, procglbnbr, getpid ()); in main() 179 multlocsiz = (SCOTCH_Num) (((double) vertglbnbr * coarrat) / (double) (procglbnbr / 2)) + 1; in main() 184 multlocsiz = (SCOTCH_Num) (((double) vertglbnbr * coarrat) / (double) (procglbnbr / 2)) + 1; in main() 207 for (procnum = 0; procnum < procglbnbr; procnum ++) { in main()
|
H A D | test_scotch_dgraph_grow.c | 84 int procglbnbr; /* Number of processes sharing graph data */ in main() local 120 MPI_Comm_size (proccomm, &procglbnbr); /* Get communicator data */ in main() 123 fprintf (stderr, "Proc %2d of %2d, pid %d\n", proclocnum, procglbnbr, getpid ()); in main() 199 for (procnum = 0; procnum < procglbnbr; procnum ++) { in main() 222 if (procnum < (procglbnbr - 1)) { in main()
|
H A D | test_scotch_dgraph_redist.c | 79 int procglbnbr; /* Number of processes sharing graph data */ in main() local 114 MPI_Comm_size (proccomm, &procglbnbr); /* Get communicator data */ in main() 117 fprintf (stderr, "Proc %2d of %2d, pid %d\n", proclocnum, procglbnbr, getpid ()); in main() 175 partloctab[vertlocnum] = (vertlocnum / 3) % procglbnbr; in main()
|
H A D | test_scotch_dgraph_band.c | 79 int procglbnbr; /* Number of processes sharing graph data */ in main() local 116 MPI_Comm_size (proccomm, &procglbnbr); /* Get communicator data */ in main() 119 fprintf (stderr, "Proc %2d of %2d, pid %d\n", proclocnum, procglbnbr, getpid ()); in main() 183 for (procnum = 0; procnum < procglbnbr; procnum ++) { in main()
|
/dports/cad/scotch/scotch-6.0.4/src/libscotchmetis/ |
H A D | parmetis_dgraph_order.c | 112 int procglbnbr; in METISNAMEU() local 125 MPI_Comm_size (proccomm, &procglbnbr); in METISNAMEU() 132 …memSet (sizes, ~0, (2 * procglbnbr - 1) * sizeof (SCOTCH_Num)); /* Array not used if procglbnbr is… in METISNAMEU() 150 …for (levlmax = -1, bitsnbr = 0, proctmp = procglbnbr; /* Count number of bits set to 1 in procglbn… in METISNAMEU() 204 …memSet (sizes, 0, (2 * procglbnbr - 1) * sizeof (SCOTCH_Num)); /* Set array of sizes to 0 by defau… in METISNAMEU() 205 …_SCOTCH_ParMETIS_V3_NodeNDTree (sizes + (2 * procglbnbr - 1), sizeglbtab, sepaglbtab, levlmax, 0, … in METISNAMEU()
|