/dports/science/PETSc/petsc-3.14.1/src/dm/impls/plex/f90-custom/ |
H A D | zplexf90.c | 54 *ierr = F90Array1dCreate((void*) v, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexgetcone_() 59 *ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd));if (*ierr) return; in dmplexrestorecone_() 69 *ierr = F90Array1dCreate((void*) v, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexgetconeorientation_() 74 *ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd));if (*ierr) return; in dmplexrestoreconeorientation_() 84 *ierr = F90Array1dCreate((void*) v, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexgetsupport_() 89 *ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd));if (*ierr) return; in dmplexrestoresupport_() 98 *ierr = F90Array1dCreate((void*) v, MPIU_INT, 1, n*2, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexgettransitiveclosure_() 105 …*ierr = F90Array1dAccess(ptr, MPIU_INT, (void**) &array PETSC_F90_2PTR_PARAM(ptrd));if (*ierr) ret… in dmplexrestoretransitiveclosure_() 107 *ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd));if (*ierr) return; in dmplexrestoretransitiveclosure_() 172 *ierr = F90Array1dDestroy(cptr, MPIU_INT PETSC_F90_2PTR_PARAM(cptrd));if (*ierr) return; in dmplexrestorejoin_() [all …]
|
H A D | zplexsectionf90.c | 21 …*ierr = F90Array1dAccess(ptrC, MPIU_INT, (void**) &numComp PETSC_F90_2PTR_PARAM(ptrCd));if (*ierr)… in dmplexcreatesection_() 22 …*ierr = F90Array1dAccess(ptrD, MPIU_INT, (void**) &numDof PETSC_F90_2PTR_PARAM(ptrDd));if (*ierr)… in dmplexcreatesection_() 23 …*ierr = F90Array1dAccess(ptrF, MPIU_INT, (void**) &bcField PETSC_F90_2PTR_PARAM(ptrFd));if (*ierr)… in dmplexcreatesection_()
|
/dports/science/PETSc/petsc-3.14.1/src/vec/is/utils/f90-custom/ |
H A D | zisltogf90.c | 23 *ierr = F90Array1dCreate((void*)idx,MPIU_INT,1,n,indices PETSC_F90_2PTR_PARAM(ptrd)); in islocaltoglobalmappinggetindicesf90_() 30 *ierr = F90Array1dAccess(ptr,MPIU_INT,(void**)&fa PETSC_F90_2PTR_PARAM(ptrd));if (*ierr) return; in islocaltoglobalmappingrestoreindicesf90_() 31 *ierr = F90Array1dDestroy(ptr,MPIU_INT PETSC_F90_2PTR_PARAM(ptrd));if (*ierr) return; in islocaltoglobalmappingrestoreindicesf90_() 41 *ierr = F90Array1dCreate((void*)idx,MPIU_INT,1,n,indices PETSC_F90_2PTR_PARAM(ptrd)); in islocaltoglobalmappinggetblockindicesf90_() 48 *ierr = F90Array1dAccess(ptr,MPIU_INT,(void**)&fa PETSC_F90_2PTR_PARAM(ptrd));if (*ierr) return; in islocaltoglobalmappingrestoreblockindicesf90_() 49 *ierr = F90Array1dDestroy(ptr,MPIU_INT PETSC_F90_2PTR_PARAM(ptrd));if (*ierr) return; in islocaltoglobalmappingrestoreblockindicesf90_()
|
/dports/science/PETSc/petsc-3.14.1/src/mat/interface/f90-custom/ |
H A D | zmatrixf90.c | 33 *ierr = F90Array1dCreate((PetscInt*)ghosts,MPIU_INT,1,N,ptr PETSC_F90_2PTR_PARAM(ptrd)); in matgetghostsf90_() 86 *ierr = F90Array1dCreate((PetscInt*)IA,MPIU_INT,1,*n+1,ia PETSC_F90_2PTR_PARAM(iad)); in matgetrowijf90_() 87 *ierr = F90Array1dCreate((PetscInt*)JA,MPIU_INT,1,IA[*n],ja PETSC_F90_2PTR_PARAM(jad)); in matgetrowijf90_() 94 *ierr = F90Array1dAccess(ia,MPIU_INT,(void**)&IA PETSC_F90_2PTR_PARAM(iad));if (*ierr) return; in matrestorerowijf90_() 95 *ierr = F90Array1dDestroy(ia,MPIU_INT PETSC_F90_2PTR_PARAM(iad));if (*ierr) return; in matrestorerowijf90_() 96 *ierr = F90Array1dAccess(ja,MPIU_INT,(void**)&JA PETSC_F90_2PTR_PARAM(jad));if (*ierr) return; in matrestorerowijf90_() 97 *ierr = F90Array1dDestroy(ja,MPIU_INT PETSC_F90_2PTR_PARAM(jad));if (*ierr) return; in matrestorerowijf90_()
|
/dports/science/PETSc/petsc-3.14.1/src/ksp/pc/impls/tfs/ |
H A D | comm.c | 98 … ierr = MPI_Send(vals,n,MPIU_INT,edge_not_pow_2,MSGTAG0+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr); in PCTFS_giop() 110 ierr = MPI_Send(vals,n,MPIU_INT,dest,MSGTAG2+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr); in PCTFS_giop() 112 …ierr = MPI_Recv(work,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG2+dest,MPI_COMM_WORLD, &status);CHKERRQ(ierr); in PCTFS_giop() 123 ierr = MPI_Send(vals,n,MPIU_INT,dest,MSGTAG4+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr); in PCTFS_giop() 125 …ierr = MPI_Recv(vals,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG4+dest,MPI_COMM_WORLD, &status);CHKERRQ(ierr); in PCTFS_giop() 133 …ierr = MPI_Recv(vals,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG5+edge_not_pow_2,MPI_COMM_WORLD,&status);CHKE… in PCTFS_giop() 135 … ierr = MPI_Send(vals,n,MPIU_INT,edge_not_pow_2,MSGTAG5+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr); in PCTFS_giop() 368 ierr = MPI_Send(vals,n,MPIU_INT,dest,MSGTAG2+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr); in PCTFS_giop_hc() 370 …ierr = MPI_Recv(work,n,MPIU_INT,MPI_ANY_SOURCE,MSGTAG2+dest,MPI_COMM_WORLD, &status);CHKERRQ(ierr); in PCTFS_giop_hc() 385 ierr = MPI_Send(vals,n,MPIU_INT,dest,MSGTAG4+PCTFS_my_id,MPI_COMM_WORLD);CHKERRQ(ierr); in PCTFS_giop_hc() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/vec/is/utils/ |
H A D | psort.c | 34 …ierr = MPI_Sendrecv(keys, n, MPIU_INT, partner, tag, buffer, n, MPIU_INT, partner, tag, comm, MPI_… in PetscParallelSortInt_Bitonic_Merge() 165 …ierr = MPI_Allgather(pivots, max_keys_per, MPIU_INT, finalpivots, max_keys_per, MPIU_INT, mapin->c… in PetscParallelSampleSelect() 203 ierr = MPI_Scan(&n, &nextOffset, 1, MPIU_INT, MPI_SUM, map->comm);CHKERRQ(ierr); in PetscParallelRedistribute() 207 …ierr = MPI_Irecv(arrayout, total, MPIU_INT, MPI_ANY_SOURCE, firsttag, map->comm, &firstreqrcv);CHK… in PetscParallelRedistribute() 220 …ierr = MPI_Isend(&arrayin[map->range[i] - myOffset], overlap, MPIU_INT, i, firsttag, map->comm, &(… in PetscParallelRedistribute() 223 …ierr = MPI_Isend(&arrayin[oStart - myOffset], overlap, MPIU_INT, i, secondtag, map->comm, &(second… in PetscParallelRedistribute() 226 …ierr = MPI_Isend(&arrayin[oStart - myOffset], 0, MPIU_INT, i, secondtag, map->comm, &(secondreqs[n… in PetscParallelRedistribute() 234 ierr = MPI_Get_count(&firststatus, MPIU_INT, &filled);CHKERRQ(ierr); in PetscParallelRedistribute() 241 …ierr = MPI_Recv(&arrayout[filled], total - filled, MPIU_INT, sender, secondtag, map->comm, &stat);… in PetscParallelRedistribute() 242 ierr = MPI_Get_count(&stat, MPIU_INT, &mfilled);CHKERRQ(ierr); in PetscParallelRedistribute() [all …]
|
H A D | pmap.c | 197 ierr = MPIU_Allreduce(&map->n,&tmp,1,MPIU_INT,MPI_SUM,map->comm);CHKERRQ(ierr); in PetscLayoutCreateFromRanges() 268 ierr = MPI_Allgather(&map->n, 1, MPIU_INT, map->range+1, 1, MPIU_INT, map->comm);CHKERRQ(ierr); in PetscLayoutSetUp() 766 ierr = PetscSFReduceBegin(sf,MPIU_INT,(PetscInt*)idxs,lidxs,MPI_LOR);CHKERRQ(ierr); in PetscLayoutMapLocal() 767 ierr = PetscSFReduceEnd(sf,MPIU_INT,(PetscInt*)idxs,lidxs,MPI_LOR);CHKERRQ(ierr); in PetscLayoutMapLocal() 774 ierr = MPI_Scan(&cum,&start,1,MPIU_INT,MPI_SUM,map->comm);CHKERRQ(ierr); in PetscLayoutMapLocal() 778 ierr = PetscSFReduceBegin(sf,MPIU_INT,work2,work,MPIU_REPLACE);CHKERRQ(ierr); in PetscLayoutMapLocal() 779 ierr = PetscSFReduceEnd(sf,MPIU_INT,work2,work,MPIU_REPLACE);CHKERRQ(ierr); in PetscLayoutMapLocal()
|
/dports/science/PETSc/petsc-3.14.1/src/vec/is/is/impls/f90-custom/ |
H A D | zblockf90.c | 19 *__ierr = F90Array1dCreate((void*)fa,MPIU_INT,1,len,ptr PETSC_F90_2PTR_PARAM(ptrd)); in isblockgetindicesf90_() 24 …*__ierr = F90Array1dAccess(ptr,MPIU_INT,(void**)&fa PETSC_F90_2PTR_PARAM(ptrd));if (*__ierr) retur… in isblockrestoreindicesf90_() 25 *__ierr = F90Array1dDestroy(ptr,MPIU_INT PETSC_F90_2PTR_PARAM(ptrd));if (*__ierr) return; in isblockrestoreindicesf90_()
|
/dports/science/PETSc/petsc-3.14.1/src/vec/is/is/interface/f90-custom/ |
H A D | zindexf90.c | 20 *__ierr = F90Array1dCreate((void*)fa,MPIU_INT,1,len,ptr PETSC_F90_2PTR_PARAM(ptrd)); in isgetindicesf90_() 26 …*__ierr = F90Array1dAccess(ptr,MPIU_INT,(void**)&fa PETSC_F90_2PTR_PARAM(ptrd));if (*__ierr) retur… in isrestoreindicesf90_() 27 *__ierr = F90Array1dDestroy(ptr,MPIU_INT PETSC_F90_2PTR_PARAM(ptrd));if (*__ierr) return; in isrestoreindicesf90_()
|
/dports/science/PETSc/petsc-3.14.1/src/vec/is/section/interface/f90-custom/ |
H A D | zvsectionisf90.c | 21 *ierr = F90Array1dCreate((void *) idx, MPIU_INT, 1, n, indices PETSC_F90_2PTR_PARAM(ptrd)); in petscsectiongetconstraintindicesf90_() 26 *ierr = F90Array1dDestroy(indices, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd));if (*ierr) return; in petscsectionrestoreconstraintindicesf90_() 33 …*ierr = F90Array1dAccess(indices, MPIU_INT, (void **) &idx PETSC_F90_2PTR_PARAM(ptrd));if (*ierr) … in petscsectionsetconstraintindicesf90_()
|
/dports/science/PETSc/petsc-3.14.1/src/vec/is/ao/impls/memscalable/ |
H A D | aomemscalable.c | 68 …ierr = MPI_Send((void*)aomems->app_loc,map->n,MPIU_INT,0,tag_app,PetscObjectComm((PetscObject)ao))… in AOView_MemoryScalable() 163 …ierr = MPI_Irecv(rindices+nmax*i,nmax,MPIU_INT,MPI_ANY_SOURCE,tag1,comm,recv_waits+count++);CHKERR… in AOMap_MemoryScalable_private() 190 …ierr = MPI_Isend(sindices+start[i],sizes[2*i],MPIU_INT,i,tag1,comm,send_waits+count);CHKERRQ(ierr); in AOMap_MemoryScalable_private() 192 …ierr = MPI_Irecv(sindices2+start[i],sizes[2*i],MPIU_INT,i,tag2,comm,recv_waits2+count);CHKERRQ(ier… in AOMap_MemoryScalable_private() 206 ierr = MPI_Get_count(&recv_status,MPIU_INT,&nindices);CHKERRQ(ierr); in AOMap_MemoryScalable_private() 215 ierr = MPI_Isend(sbuf,nindices,MPIU_INT,source,tag2,comm,send_waits2+widx);CHKERRQ(ierr); in AOMap_MemoryScalable_private() 226 ierr = MPI_Get_count(&recv_status,MPIU_INT,&nindices);CHKERRQ(ierr); in AOMap_MemoryScalable_private() 336 …ierr = MPI_Irecv(rindices+nmax*i,nmax,MPIU_INT,MPI_ANY_SOURCE,tag,comm,recv_waits+i);CHKERRQ(ierr); in AOCreateMemoryScalable_private() 363 … ierr = MPI_Isend(sindices+start[i],sizes[2*i],MPIU_INT,i,tag,comm,send_waits+count);CHKERRQ(ierr); in AOCreateMemoryScalable_private() 378 ierr = MPI_Get_count(&recv_status,MPIU_INT,&nindices);CHKERRQ(ierr); in AOCreateMemoryScalable_private() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/dm/impls/plex/ |
H A D | plexvtk.c | 155 ierr = MPI_Recv(&numCorners, 1, MPIU_INT, proc, tag, comm, &status);CHKERRQ(ierr); in DMPlexVTKWriteCells_ASCII() 200 ierr = MPI_Send(&numSend, 1, MPIU_INT, 0, tag, comm);CHKERRQ(ierr); in DMPlexVTKWriteCells_ASCII() 201 ierr = MPI_Send(localVertices, numSend, MPIU_INT, 0, tag, comm);CHKERRQ(ierr); in DMPlexVTKWriteCells_ASCII() 216 ierr = MPI_Recv(&numCells, 1, MPIU_INT, proc, tag, comm, &status);CHKERRQ(ierr); in DMPlexVTKWriteCells_ASCII() 224 ierr = MPI_Send(&numCells, 1, MPIU_INT, 0, tag, comm);CHKERRQ(ierr); in DMPlexVTKWriteCells_ASCII() 225 ierr = MPI_Send(corners, numCells, MPIU_INT, 0, tag, comm);CHKERRQ(ierr); in DMPlexVTKWriteCells_ASCII() 264 ierr = MPI_Recv(&numCells, 1, MPIU_INT, proc, tag, comm, &status);CHKERRQ(ierr); in DMPlexVTKWritePartition_ASCII() 268 ierr = MPI_Send(&numCells, 1, MPIU_INT, 0, tag, comm);CHKERRQ(ierr); in DMPlexVTKWritePartition_ASCII() 325 ierr = MPIU_Allreduce(&numDof, &maxDof, 1, MPIU_INT, MPI_MAX, comm);CHKERRQ(ierr); in DMPlexVTKWriteSection_ASCII() 372 ierr = MPI_Recv(&size, 1, MPIU_INT, proc, tag, comm, &status);CHKERRQ(ierr); in DMPlexVTKWriteSection_ASCII() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/dm/impls/plex/tests/ |
H A D | ex31.c | 123 ierr = MPI_Allreduce(MPI_IN_PLACE, &gSizeBefore, 1, MPIU_INT, MPI_SUM, comm);CHKERRQ(ierr); in main() 124 ierr = MPI_Allreduce(MPI_IN_PLACE, &minBefore, 1, MPIU_INT, MPI_MIN, comm);CHKERRQ(ierr); in main() 125 ierr = MPI_Allreduce(MPI_IN_PLACE, &maxBefore, 1, MPIU_INT, MPI_MAX, comm);CHKERRQ(ierr); in main() 136 ierr = MPI_Allreduce(MPI_IN_PLACE, &gSizeAfter, 1, MPIU_INT, MPI_SUM, comm);CHKERRQ(ierr); in main() 137 ierr = MPI_Allreduce(MPI_IN_PLACE, &minAfter, 1, MPIU_INT, MPI_MIN, comm);CHKERRQ(ierr); in main() 138 ierr = MPI_Allreduce(MPI_IN_PLACE, &maxAfter, 1, MPIU_INT, MPI_MAX, comm);CHKERRQ(ierr); in main()
|
/dports/science/PETSc/petsc-3.14.1/src/mat/utils/ |
H A D | overlapsplit.c | 75 ierr = MPI_Gather(&nindx,1,MPIU_INT,localsizes_sc,1,MPIU_INT,0,scomm);CHKERRQ(ierr); in MatIncreaseOverlapSplit_Single() 135 ierr = MPI_Scatter(localsizes_sc,1, MPIU_INT,&nroots,1, MPIU_INT,0,scomm);CHKERRQ(ierr); in MatIncreaseOverlapSplit_Single() 143 ierr = PetscSFReduceBegin(sf,MPIU_INT,indices_ov_rd,indices_recv,MPIU_REPLACE);CHKERRQ(ierr); in MatIncreaseOverlapSplit_Single() 144 ierr = PetscSFReduceEnd(sf,MPIU_INT,indices_ov_rd,indices_recv,MPIU_REPLACE);CHKERRQ(ierr); in MatIncreaseOverlapSplit_Single()
|
/dports/science/PETSc/petsc-3.14.1/src/vec/is/sf/tests/ |
H A D | ex5.c | 82 ierr = PetscSFBcastBegin(sfA, MPIU_INT, rdA, ldA);CHKERRQ(ierr); in main() 83 ierr = PetscSFBcastEnd(sfA, MPIU_INT, rdA, ldA);CHKERRQ(ierr); in main() 86 ierr = PetscSFBcastBegin(sfB, MPIU_INT, ldA, ldB);CHKERRQ(ierr); in main() 87 ierr = PetscSFBcastEnd(sfB, MPIU_INT, ldA, ldB);CHKERRQ(ierr); in main() 101 ierr = PetscSFBcastBegin(sfBA, MPIU_INT, rdA, ldB);CHKERRQ(ierr); in main() 102 ierr = PetscSFBcastEnd(sfBA, MPIU_INT, rdA, ldB);CHKERRQ(ierr); in main()
|
/dports/science/PETSc/petsc-3.14.1/src/sys/f90-src/ |
H A D | f90_cwrap.c | 92 } else if (type == MPIU_INT) { in F90Array1dCreate() 110 } else if (type == MPIU_INT) { in F90Array1dAccess() 126 } else if (type == MPIU_INT) { in F90Array1dDestroy() 184 } else if (type == MPIU_INT) { in F90Array2dCreate() 199 } else if (type == MPIU_INT) { in F90Array2dAccess() 214 } else if (type == MPIU_INT) { in F90Array2dDestroy() 272 } else if (type == MPIU_INT) { in F90Array3dCreate() 287 } else if (type == MPIU_INT) { in F90Array3dAccess() 302 } else if (type == MPIU_INT) { in F90Array3dDestroy() 368 } else if (type == MPIU_INT) { in F90Array4dAccess()
|
/dports/science/PETSc/petsc-3.14.1/src/vec/is/is/utils/ |
H A D | iscoloring.c | 360 ierr = MPI_Recv(&base,1,MPIU_INT,rank-1,tag,comm,&status);CHKERRQ(ierr); in ISColoringCreate() 364 ierr = MPI_Send(&top,1,MPIU_INT,rank+1,tag,comm);CHKERRQ(ierr); in ISColoringCreate() 373 ierr = MPIU_Allreduce(&ncwork,&nc,1,MPIU_INT,MPI_MAX,comm);CHKERRQ(ierr); in ISColoringCreate() 493 ierr = PetscSFBcastBegin(sf,MPIU_INT,send_indices,recv_indices);CHKERRQ(ierr); in ISBuildTwoSided() 494 ierr = PetscSFBcastEnd(sf,MPIU_INT,send_indices,recv_indices);CHKERRQ(ierr); in ISBuildTwoSided() 556 ierr = MPIU_Allreduce(&np,&npt,1,MPIU_INT,MPI_MAX,comm);CHKERRQ(ierr); in ISPartitioningToNumbering() 567 ierr = MPIU_Allreduce(lsizes,sums,np,MPIU_INT,MPI_SUM,comm);CHKERRQ(ierr); in ISPartitioningToNumbering() 568 ierr = MPI_Scan(lsizes,starts,np,MPIU_INT,MPI_SUM,comm);CHKERRQ(ierr); in ISPartitioningToNumbering() 640 ierr = MPIU_Allreduce(&np,&npt,1,MPIU_INT,MPI_MAX,comm);CHKERRQ(ierr); in ISPartitioningCount() 656 ierr = MPIU_Allreduce(lsizes,count,npp,MPIU_INT,MPI_SUM,comm);CHKERRQ(ierr); in ISPartitioningCount() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/mat/coarsen/impls/mis/ |
H A D | mis.c | 68 ierr = PetscSFBcastBegin(sf,MPIU_INT,lid_gid,cpcol_gid);CHKERRQ(ierr); in maxIndSetAgg() 69 ierr = PetscSFBcastEnd(sf,MPIU_INT,lid_gid,cpcol_gid);CHKERRQ(ierr); in maxIndSetAgg() 185 ierr = PetscSFBcastBegin(sf,MPIU_INT,lid_state,cpcol_state);CHKERRQ(ierr); in maxIndSetAgg() 186 ierr = PetscSFBcastEnd(sf,MPIU_INT,lid_state,cpcol_state);CHKERRQ(ierr); in maxIndSetAgg() 215 …ierr = MPIU_Allreduce(&t1, &t2, 1, MPIU_INT, MPI_SUM, comm);CHKERRQ(ierr); /* synchronous version … in maxIndSetAgg() 230 ierr = PetscSFBcastBegin(sf,MPIU_INT,lid_parent_gid,cpcol_sel_gid);CHKERRQ(ierr); in maxIndSetAgg() 231 ierr = PetscSFBcastEnd(sf,MPIU_INT,lid_parent_gid,cpcol_sel_gid);CHKERRQ(ierr); in maxIndSetAgg()
|
/dports/science/PETSc/petsc-3.14.1/src/vec/is/sf/tutorials/ |
H A D | ex1.c | 190 ierr = PetscSFBcastBegin(sf,MPIU_INT,rootdata,leafdata);CHKERRQ(ierr); in main() 191 ierr = PetscSFBcastEnd(sf,MPIU_INT,rootdata,leafdata);CHKERRQ(ierr); in main() 241 ierr = PetscSFBcastAndOpBegin(sf,MPIU_INT,rootdata,leafdata,mop);CHKERRQ(ierr); in main() 242 ierr = PetscSFBcastAndOpEnd(sf,MPIU_INT,rootdata,leafdata,mop);CHKERRQ(ierr); in main() 263 ierr = PetscSFReduceBegin(sf,MPIU_INT,leafdata,rootdata,mop);CHKERRQ(ierr); in main() 264 ierr = PetscSFReduceEnd(sf,MPIU_INT,leafdata,rootdata,mop);CHKERRQ(ierr); in main() 367 ierr = PetscSFFetchAndOpEnd(sf,MPIU_INT,rootdata,leafdata,leafupdate,mop);CHKERRQ(ierr); in main() 384 ierr = PetscSFGatherBegin(sf,MPIU_INT,outdata,indata);CHKERRQ(ierr); in main() 385 ierr = PetscSFGatherEnd(sf,MPIU_INT,outdata,indata);CHKERRQ(ierr); in main() 405 ierr = PetscSFScatterBegin(sf,MPIU_INT,indata,outdata);CHKERRQ(ierr); in main() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/mat/impls/adj/mpi/ |
H A D | mpiadj.c | 51 ierr = PetscSFBcastBegin(sf,MPIU_INT,ncols_send,ncols_recv);CHKERRQ(ierr); in MatCreateSubMatrix_MPIAdj_data() 52 ierr = PetscSFBcastEnd(sf,MPIU_INT,ncols_send,ncols_recv);CHKERRQ(ierr); in MatCreateSubMatrix_MPIAdj_data() 53 ierr = PetscSFBcastBegin(sf,MPIU_INT,xadj,xadj_recv);CHKERRQ(ierr); in MatCreateSubMatrix_MPIAdj_data() 54 ierr = PetscSFBcastEnd(sf,MPIU_INT,xadj,xadj_recv);CHKERRQ(ierr); in MatCreateSubMatrix_MPIAdj_data() 84 ierr = PetscSFBcastBegin(sf,MPIU_INT,adjncy,adjncy_recv);CHKERRQ(ierr); in MatCreateSubMatrix_MPIAdj_data() 85 ierr = PetscSFBcastEnd(sf,MPIU_INT,adjncy,adjncy_recv);CHKERRQ(ierr); in MatCreateSubMatrix_MPIAdj_data() 87 ierr = PetscSFBcastBegin(sf,MPIU_INT,a->values,values_recv);CHKERRQ(ierr); in MatCreateSubMatrix_MPIAdj_data() 88 ierr = PetscSFBcastEnd(sf,MPIU_INT,a->values,values_recv);CHKERRQ(ierr); in MatCreateSubMatrix_MPIAdj_data() 731 …ierr = MPI_Allgatherv(adj->values,mnz,MPIU_INT,Values,allnz,dispnz,MPIU_INT,PetscObjectComm((Petsc… in MatMPIAdjToSeq_MPIAdj() 734 …ierr = MPI_Allgatherv(adj->j,mnz,MPIU_INT,J,allnz,dispnz,MPIU_INT,PetscObjectComm((PetscObject)A))… in MatMPIAdjToSeq_MPIAdj() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/mat/impls/sbaij/mpi/ |
H A D | sbaijov.c | 61 …ierr = MPIU_Allreduce(&nstages_local,&nstages,1,MPIU_INT,MPI_MAX,PetscObjectComm((PetscObject)C));… in MatIncreaseOverlap_MPISBAIJ() 192 ierr = MPIU_Allreduce(&is_max,&ois_max,1,MPIU_INT,MPI_MAX,comm);CHKERRQ(ierr); in MatIncreaseOverlap_MPISBAIJ_Once() 220 ierr = MPI_Allgather(&Bnbs,1,MPIU_INT,Bowners+1,1,MPIU_INT,comm);CHKERRQ(ierr); in MatIncreaseOverlap_MPISBAIJ_Once() 309 …ierr = MPI_Isend(data1_start[proc_id],len_s[proc_id],MPIU_INT,proc_id,tag1,comm,s_waits1+k);CHKERR… in MatIncreaseOverlap_MPISBAIJ_Once() 343 ierr = MPI_Get_count(&r_status,MPIU_INT,&len);CHKERRQ(ierr); in MatIncreaseOverlap_MPISBAIJ_Once() 345 ierr = MPI_Irecv(odata1,len,MPIU_INT,proc_id,r_status.MPI_TAG,comm,&r_req);CHKERRQ(ierr); in MatIncreaseOverlap_MPISBAIJ_Once() 363 ierr = MPI_Isend(odata2,len,MPIU_INT,proc_id,tag2,comm,s_waits2+k);CHKERRQ(ierr); in MatIncreaseOverlap_MPISBAIJ_Once() 399 ierr = MPI_Get_count(&r_status,MPIU_INT,&len);CHKERRQ(ierr); in MatIncreaseOverlap_MPISBAIJ_Once() 403 ierr = MPI_Irecv(data2,len,MPIU_INT,proc_id,r_status.MPI_TAG,comm,&r_req);CHKERRQ(ierr); in MatIncreaseOverlap_MPISBAIJ_Once()
|
/dports/science/PETSc/petsc-3.14.1/src/sys/utils/ |
H A D | psplit.c | 38 ierr = MPIU_Allreduce(n,N,1,MPIU_INT,MPI_SUM,comm);CHKERRQ(ierr); in PetscSplitOwnershipBlock() 100 ierr = MPIU_Allreduce(n,&tmp,1,MPIU_INT,MPI_SUM,comm);CHKERRQ(ierr); in PetscSplitOwnership() 167 ierr = MPIU_Allreduce(n,&tmp,1,MPIU_INT,MPI_SUM,comm);CHKERRQ(ierr); in PetscSplitOwnershipEqual()
|
H A D | mpilong.c | 20 if (type == MPIU_INT) mess = (void*) (((PetscInt*)mess) + CHUNKSIZE); in MPIULong_Send() 40 if (type == MPIU_INT) mess = (void*) (((PetscInt*)mess) + CHUNKSIZE); in MPIULong_Recv()
|
/dports/science/PETSc/petsc-3.14.1/src/vec/is/ao/tests/ |
H A D | ex2.c | 23 ierr = MPI_Scan(&n,&start,1,MPIU_INT,MPI_SUM,PETSC_COMM_WORLD);CHKERRQ(ierr); in main() 24 ierr = MPI_Allreduce(&n,&N,1,MPIU_INT,MPI_SUM,PETSC_COMM_WORLD);CHKERRQ(ierr); in main()
|
/dports/science/PETSc/petsc-3.14.1/src/mat/color/impls/greedy/ |
H A D | greedy.c | 159 ierr = PetscSFBcastBegin(sf,MPIU_INT,lcolors,ocolors);CHKERRQ(ierr); in GreedyColoringLocalDistanceOne_Private() 160 ierr = PetscSFBcastEnd(sf,MPIU_INT,lcolors,ocolors);CHKERRQ(ierr); in GreedyColoringLocalDistanceOne_Private() 175 …ierr = MPIU_Allreduce(&nd,&nd_global,1,MPIU_INT,MPI_SUM,PetscObjectComm((PetscObject)mc));CHKERRQ(… in GreedyColoringLocalDistanceOne_Private() 435 ierr = PetscSFBcastBegin(sf,MPIU_INT,dcolors,ocolors);CHKERRQ(ierr); in GreedyColoringLocalDistanceTwo_Private() 436 ierr = PetscSFBcastEnd(sf,MPIU_INT,dcolors,ocolors);CHKERRQ(ierr); in GreedyColoringLocalDistanceTwo_Private() 438 …ierr = MPIU_Allreduce(&mcol,&mcol_global,1,MPIU_INT,MPI_MAX,PetscObjectComm((PetscObject)mc));CHKE… in GreedyColoringLocalDistanceTwo_Private() 502 ierr = PetscSFReduceBegin(sf,MPIU_INT,oconf,conf,MPIU_SUM);CHKERRQ(ierr); in GreedyColoringLocalDistanceTwo_Private() 503 ierr = PetscSFReduceEnd(sf,MPIU_INT,oconf,conf,MPIU_SUM);CHKERRQ(ierr); in GreedyColoringLocalDistanceTwo_Private() 534 …ierr = MPIU_Allreduce(&nd,&nd_global,1,MPIU_INT,MPI_SUM,PetscObjectComm((PetscObject)mc));CHKERRQ(… in GreedyColoringLocalDistanceTwo_Private() 579 …ierr = MPIU_Allreduce(&finalcolor,&finalcolor_global,1,MPIU_INT,MPI_MAX,PetscObjectComm((PetscObje… in MatColoringApply_Greedy()
|