| /petsc/src/vec/is/sf/impls/basic/gatherv/ |
| H A D | sfgatherv.c | 15 MPI_Datatype unit = link->unit; in PetscSFLinkStartCommunication_Gatherv() local
29 …PetscCallMPI(MPIU_Igatherv(rootbuf, count, unit, leafbuf, dat->recvcounts, dat->displs, unit, 0 /*… in PetscSFLinkStartCommunication_Gatherv()
31 …PetscCallMPI(MPIU_Iscatterv(leafbuf, dat->recvcounts, dat->displs, unit, rootbuf, count, unit, 0, … in PetscSFLinkStartCommunication_Gatherv()
43 PETSC_INTERN PetscErrorCode PetscSFFetchAndOpBegin_Gatherv(PetscSF sf, MPI_Datatype unit, PetscMemT… in PetscSFFetchAndOpBegin_Gatherv() argument
47 PetscCall(PetscSFBcastBegin(sf, unit, rootdata, leafupdate, MPI_REPLACE)); in PetscSFFetchAndOpBegin_Gatherv()
48 PetscCall(PetscSFBcastEnd(sf, unit, rootdata, leafupdate, MPI_REPLACE)); in PetscSFFetchAndOpBegin_Gatherv()
49 PetscCall(PetscSFReduceBegin(sf, unit, leafdata, rootdata, op)); in PetscSFFetchAndOpBegin_Gatherv()
|
| /petsc/src/vec/is/sf/interface/ftn-custom/ |
| H A D | zsf.c | 89 PETSC_EXTERN void petscsfbcastbegin_(PetscSF *sf, MPI_Fint *unit, const void *rptr, void *lptr, MPI… in petscsfbcastbegin_() argument
94 *ierr = PetscMPIFortranDatatypeToC(*unit, &dtype); in petscsfbcastbegin_()
99 PETSC_EXTERN void petscsfbcastend_(PetscSF *sf, MPI_Fint *unit, const void *rptr, void *lptr, MPI_F… in petscsfbcastend_() argument
104 *ierr = PetscMPIFortranDatatypeToC(*unit, &dtype); in petscsfbcastend_()
109 PETSC_EXTERN void petscsfreducebegin_(PetscSF *sf, MPI_Fint *unit, const void *lptr, void *rptr, MP… in petscsfreducebegin_() argument
114 *ierr = PetscMPIFortranDatatypeToC(*unit, &dtype); in petscsfreducebegin_()
119 PETSC_EXTERN void petscsfreduceend_(PetscSF *sf, MPI_Fint *unit, const void *lptr, void *rptr, MPI_… in petscsfreduceend_() argument
124 *ierr = PetscMPIFortranDatatypeToC(*unit, &dtype); in petscsfreduceend_()
131 PETSC_EXTERN void petscsfbcastbegin_(PetscSF *sf, MPI_Fint *unit, F90Array1d *rptr, F90Array1d *lpt… in petscsfbcastbegin_() argument
138 *ierr = PetscMPIFortranDatatypeToC(*unit, &dtype); in petscsfbcastbegin_()
[all …]
|
| /petsc/src/vec/is/sf/impls/basic/allgatherv/ |
| H A D | sfallgatherv.c | 102 static PetscErrorCode PetscSFBcastBegin_Allgatherv(PetscSF sf, MPI_Datatype unit, PetscMemType root… in PetscSFBcastBegin_Allgatherv() argument
112 …PetscCall(PetscSFLinkCreate(sf, unit, rootmtype, rootdata, leafmtype, leafdata, op, PETSCSF_BCAST,… in PetscSFBcastBegin_Allgatherv()
124 …if (dat->bcast_pattern) PetscCallMPI(MPIU_Ibcast(leafbuf, nleaves, unit, dat->bcast_root, comm, re… in PetscSFBcastBegin_Allgatherv()
125 …e PetscCallMPI(MPIU_Iallgatherv(rootbuf, sendcount, unit, leafbuf, dat->recvcounts, dat->displs, u… in PetscSFBcastBegin_Allgatherv()
129 static PetscErrorCode PetscSFReduceBegin_Allgatherv(PetscSF sf, MPI_Datatype unit, PetscMemType lea… in PetscSFReduceBegin_Allgatherv() argument
140 …PetscCall(PetscSFLinkCreate(sf, unit, rootmtype, rootdata, leafmtype, leafdata, op, PETSCSF_REDUCE… in PetscSFReduceBegin_Allgatherv()
156 MPI_Datatype baseunit = unit; in PetscSFReduceBegin_Allgatherv()
158 PetscCall(MPIPetsc_Type_compare_contig(unit, MPIU_REAL, &nreal)); in PetscSFReduceBegin_Allgatherv()
166 PetscCall(MPIPetsc_Type_compare_contig(unit, MPIU_COMPLEX, &ncomplex)); in PetscSFReduceBegin_Allgatherv()
189 …_REMOTE][link->leafmtype_mpi], dat->recvcounts, dat->displs, unit, rootbuf, recvcount, unit, 0, co… in PetscSFReduceBegin_Allgatherv()
[all …]
|
| /petsc/src/vec/ftn-mod/ |
| H A D | petscvec.h90 | 2 subroutine PetscSFBcastBegin(sf, unit, rarray, larray, op, ierr)
10 MPIU_Datatype :: unit
17 subroutine PetscSFBcastEnd(sf, unit, rarray, larray, op, ierr)
25 MPIU_Datatype :: unit
32 subroutine PetscSFReduceBegin(sf, unit, larray, rarray, op, ierr)
40 MPIU_Datatype :: unit
47 subroutine PetscSFReduceEnd(sf, unit, larray, rarray, op, ierr)
55 MPIU_Datatype :: unit
|
| /petsc/src/vec/is/sf/impls/basic/allgather/ |
| H A D | sfallgather.c | 31 static PetscErrorCode PetscSFBcastBegin_Allgather(PetscSF sf, MPI_Datatype unit, PetscMemType rootm… in PetscSFBcastBegin_Allgather() argument
40 …PetscCall(PetscSFLinkCreate(sf, unit, rootmtype, rootdata, leafmtype, leafdata, op, PETSCSF_BCAST,… in PetscSFBcastBegin_Allgather()
47 PetscCallMPI(MPIU_Iallgather(rootbuf, sendcount, unit, leafbuf, sendcount, unit, comm, req)); in PetscSFBcastBegin_Allgather()
51 static PetscErrorCode PetscSFReduceBegin_Allgather(PetscSF sf, MPI_Datatype unit, PetscMemType leaf… in PetscSFReduceBegin_Allgather() argument
62 …PetscCall(PetscSFLinkCreate(sf, unit, rootmtype, rootdata, leafmtype, leafdata, op, PETSCSF_REDUCE… in PetscSFReduceBegin_Allgather()
80 …afbuf_alloc[PETSCSF_REMOTE][link->leafmtype_mpi], recvcount, unit, rootbuf, recvcount, unit, 0 /*r… in PetscSFReduceBegin_Allgather()
85 static PetscErrorCode PetscSFBcastToZero_Allgather(PetscSF sf, MPI_Datatype unit, PetscMemType root… in PetscSFBcastToZero_Allgather() argument
95 …PetscCall(PetscSFLinkCreate(sf, unit, rootmtype, rootdata, leafmtype, leafdata, MPI_REPLACE, PETSC… in PetscSFBcastToZero_Allgather()
102 …ther(rootbuf == leafbuf ? MPI_IN_PLACE : rootbuf, sendcount, unit, leafbuf, sendcount, unit, 0 /*r… in PetscSFBcastToZero_Allgather()
103 PetscCall(PetscSFLinkGetInUse(sf, unit, rootdata, leafdata, PETSC_OWN_POINTER, &link)); in PetscSFBcastToZero_Allgather()
|
| /petsc/src/vec/is/sf/impls/basic/gather/ |
| H A D | sfgather.c | 13 MPI_Datatype unit = link->unit; in PetscSFLinkStartCommunication_Gather() local
27 …IU_Igather(rootbuf == leafbuf ? MPI_IN_PLACE : rootbuf, count, unit, leafbuf, count, unit, 0 /*ran… in PetscSFLinkStartCommunication_Gather()
29 …PetscCallMPI(MPIU_Iscatter(leafbuf, count, unit, rootbuf == leafbuf ? MPI_IN_PLACE : rootbuf, coun… in PetscSFLinkStartCommunication_Gather()
|
| /petsc/src/sys/classes/viewer/tutorials/ |
| H A D | ex3f.F90 | 5 integer4 unit
10 unit = 22
11 call PetscViewerASCIIStdoutSetFileUnit(unit, ierr)
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | SF.pyx | 434 def bcastBegin(self, unit: Datatype, ndarray rootdata, ndarray leafdata, op: Op) -> None:
444 unit
458 cdef MPI_Datatype dtype = mpi4py_Datatype_Get(unit)
463 def bcastEnd(self, unit: Datatype, ndarray rootdata, ndarray leafdata, op: Op) -> None:
470 unit
484 cdef MPI_Datatype dtype = mpi4py_Datatype_Get(unit)
489 def reduceBegin(self, unit: Datatype, ndarray leafdata, ndarray rootdata, op: Op) -> None:
498 unit
512 cdef MPI_Datatype dtype = mpi4py_Datatype_Get(unit)
517 def reduceEnd(self, unit: Datatype, ndarray leafdata, ndarray rootdata, op: Op) -> None:
[all …]
|
| /petsc/src/sys/tutorials/ |
| H A D | ex10f.F90 | 9 integer :: unit
14 unit = 6
15 PetscCallA(PetscViewerASCIIOpenWithFileUnit(PETSC_COMM_WORLD, unit, viewer, ierr))
|
| /petsc/src/sys/ftn-src/ |
| H A D | somefort.F90 | 30 integer4, intent(in) :: unit
32 write (unit=unit, fmt="(A)", advance='no') str
|
| /petsc/src/vec/is/sf/impls/basic/neighbor/ |
| H A D | sfneighbor.c | 107 …otbuf, dat->rootcounts, dat->rootdispls, link->unit, leafbuf, dat->leafcounts, dat->leafdispls, li… in PetscSFLinkStartCommunication_Neighbor()
108 …PIMessages(dat->rootdegree, dat->rootcounts, link->unit, dat->leafdegree, dat->leafcounts, link->u… in PetscSFLinkStartCommunication_Neighbor()
110 …afbuf, dat->leafcounts, dat->leafdispls, link->unit, rootbuf, dat->rootcounts, dat->rootdispls, li… in PetscSFLinkStartCommunication_Neighbor()
111 …PIMessages(dat->leafdegree, dat->leafcounts, link->unit, dat->rootdegree, dat->rootcounts, link->u… in PetscSFLinkStartCommunication_Neighbor()
134 …otbuf, dat->rootcounts, dat->rootdispls, link->unit, leafbuf, dat->leafcounts, dat->leafdispls, li… in PetscSFLinkInitMPIRequests_Persistent_Neighbor()
136 …afbuf, dat->leafcounts, dat->leafdispls, link->unit, rootbuf, dat->rootcounts, dat->rootdispls, li… in PetscSFLinkInitMPIRequests_Persistent_Neighbor()
163 …PIMessages(dat->rootdegree, dat->rootcounts, link->unit, dat->leafdegree, dat->leafcounts, link->u… in PetscSFLinkStartCommunication_Persistent_Neighbor()
165 …PIMessages(dat->leafdegree, dat->leafcounts, link->unit, dat->rootdegree, dat->rootcounts, link->u… in PetscSFLinkStartCommunication_Persistent_Neighbor()
|
| /petsc/src/vec/is/sf/impls/window/ |
| H A D | sfwindow.c | 19 MPI_Datatype unit; member
70 static PetscErrorCode PetscSFWindowGetDataTypes(PetscSF sf, MPI_Datatype unit, const MPI_Datatype *… in PetscSFWindowGetDataTypes() argument
82 PetscCall(MPIPetsc_Type_compare(unit, link->unit, &match)); in PetscSFWindowGetDataTypes()
93 PetscCallMPI(MPI_Type_dup(unit, &link->unit)); in PetscSFWindowGetDataTypes()
111 PetscCallMPI(MPI_Type_create_indexed_block(rcount, 1, rmine, link->unit, &link->mine[i])); in PetscSFWindowGetDataTypes()
112 PetscCallMPI(MPI_Type_create_indexed_block(rcount, 1, rremote, link->unit, &link->remote[i])); in PetscSFWindowGetDataTypes()
427 static PetscErrorCode PetscSFGetWindow(PetscSF sf, MPI_Datatype unit, void *rootdata, void *leafdat… in PetscSFGetWindow() argument
438 PetscCall(PetscSFGetDatatypeSize_Internal(PetscObjectComm((PetscObject)sf), unit, &bytes)); in PetscSFGetWindow()
605 static PetscErrorCode PetscSFFindWindow(PetscSF sf, MPI_Datatype unit, const void *rootdata, const … in PetscSFFindWindow() argument
613 PetscCall(PetscSFGetDatatypeSize_Internal(PetscObjectComm((PetscObject)sf), unit, &bytes)); in PetscSFFindWindow()
[all …]
|
| /petsc/src/vec/is/sf/impls/basic/ |
| H A D | sfbasic.c | 14 MPI_Datatype unit = link->unit; in PetscSFLinkInitMPIRequests_Persistent_Basic() local
25 …PetscCallMPI(MPIU_Recv_init(link->rootbuf[PETSCSF_REMOTE][rootmtype_mpi] + disp, cnt, unit, bas->i… in PetscSFLinkInitMPIRequests_Persistent_Basic()
31 …PetscCallMPI(MPIU_Send_init(link->rootbuf[PETSCSF_REMOTE][rootmtype_mpi] + disp, cnt, unit, bas->i… in PetscSFLinkInitMPIRequests_Persistent_Basic()
43 …PetscCallMPI(MPIU_Send_init(link->leafbuf[PETSCSF_REMOTE][leafmtype_mpi] + disp, cnt, unit, sf->ra… in PetscSFLinkInitMPIRequests_Persistent_Basic()
49 …PetscCallMPI(MPIU_Recv_init(link->leafbuf[PETSCSF_REMOTE][leafmtype_mpi] + disp, cnt, unit, sf->ra… in PetscSFLinkInitMPIRequests_Persistent_Basic()
90 if (rbuflen) PetscCallMPI(MPI_Startall_irecv(rbuflen, link->unit, nrreqs, rreqs)); in PetscSFLinkStartCommunication_Persistent_Basic()
91 if (sbuflen) PetscCallMPI(MPI_Startall_isend(sbuflen, link->unit, nsreqs, sreqs)); in PetscSFLinkStartCommunication_Persistent_Basic()
105 MPI_Datatype unit = link->unit; in PetscSFLinkStartCommunication_MPIX_Stream() local
116 …X_Irecv_enqueue(link->rootbuf[PETSCSF_REMOTE][rootmtype_mpi] + disp, cnt, unit, bas->iranks[i], li… in PetscSFLinkStartCommunication_MPIX_Stream()
123 …X_Isend_enqueue(link->rootbuf[PETSCSF_REMOTE][rootmtype_mpi] + disp, cnt, unit, bas->iranks[i], li… in PetscSFLinkStartCommunication_MPIX_Stream()
[all …]
|
| H A D | sfmpi.c | 64 PetscErrorCode PetscSFLinkCreate_MPI(PetscSF sf, MPI_Datatype unit, PetscMemType xrootmtype, const … in PetscSFLinkCreate_MPI() argument
120 PetscCall(MPIPetsc_Type_compare(unit, link->unit, &match)); in PetscSFLinkCreate_MPI()
146 PetscCall(PetscSFLinkSetUp_Host(sf, link, unit)); in PetscSFLinkCreate_MPI()
173 …if (sf->backend == PETSCSF_BACKEND_CUDA) PetscCall(PetscSFLinkSetUp_CUDA(sf, link, unit)); /* Setu… in PetscSFLinkCreate_MPI()
176 …if (sf->backend == PETSCSF_BACKEND_HIP) PetscCall(PetscSFLinkSetUp_HIP(sf, link, unit)); /* Setup … in PetscSFLinkCreate_MPI()
179 if (sf->backend == PETSCSF_BACKEND_KOKKOS) PetscCall(PetscSFLinkSetUp_Kokkos(sf, link, unit)); in PetscSFLinkCreate_MPI()
|
| H A D | sfpack.c | 405 if (!link->isbuiltin) PetscCallMPI(MPI_Type_free(&link->unit)); in PetscSFLinkDestroy()
420 PetscErrorCode PetscSFLinkCreate(PetscSF sf, MPI_Datatype unit, PetscMemType rootmtype, const void … in PetscSFLinkCreate() argument
423 PetscCall(PetscSFSetErrorOnUnsupportedOverlap(sf, unit, rootdata, leafdata)); in PetscSFLinkCreate()
429 …PetscCall(PetscSFLinkCreate_NVSHMEM(sf, unit, rootmtype, rootdata, leafmtype, leafdata, op, sfop, … in PetscSFLinkCreate()
434 …PetscCall(PetscSFLinkCreate_MPI(sf, unit, rootmtype, rootdata, leafmtype, leafdata, op, sfop, myli… in PetscSFLinkCreate()
438 PetscErrorCode PetscSFLinkGetInUse(PetscSF sf, MPI_Datatype unit, const void *rootdata, const void … in PetscSFLinkGetInUse() argument
447 PetscCall(MPIPetsc_Type_compare(unit, link->unit, &match)); in PetscSFLinkGetInUse()
480 PetscErrorCode PetscSFSetErrorOnUnsupportedOverlap(PetscSF sf, MPI_Datatype unit, const void *rootd… in PetscSFSetErrorOnUnsupportedOverlap() argument
493 PetscCall(MPIPetsc_Type_compare(unit, link->unit, &match)); in PetscSFSetErrorOnUnsupportedOverlap()
508 PetscErrorCode PetscSFLinkSetUp_Host(PetscSF sf, PetscSFLink link, MPI_Datatype unit) in PetscSFLinkSetUp_Host() argument
[all …]
|
| /petsc/src/sys/ftn-mod/ |
| H A D | petscviewer.h90 | 2 subroutine PetscFortranPrintToFileUnit(unit, str, ierr)
5 integer unit
10 subroutine PetscViewerASCIIOpenWithFileUnit(comm, unit, viewer, ierr)
15 integer, intent(in) :: unit
20 subroutine PetscViewerASCIISetFileUnit(viewer, unit, ierr)
24 integer, intent(in) :: unit
|
| /petsc/src/vec/is/sf/utils/ |
| H A D | sfcoord.c | 125 MPI_Datatype unit; in PetscSFSetGraphFromCoordinates() local
165 PetscCallMPI(MPI_Type_contiguous(msize, MPIU_REAL, &unit)); in PetscSFSetGraphFromCoordinates()
166 PetscCallMPI(MPI_Type_commit(&unit)); in PetscSFSetGraphFromCoordinates()
167 PetscCall(PetscSFBcastBegin(psf, unit, rootcoords, target_coords, MPI_REPLACE)); in PetscSFSetGraphFromCoordinates()
168 PetscCall(PetscSFBcastEnd(psf, unit, rootcoords, target_coords, MPI_REPLACE)); in PetscSFSetGraphFromCoordinates()
169 PetscCallMPI(MPI_Type_free(&unit)); in PetscSFSetGraphFromCoordinates()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex10.c | 71 RDUnit unit; member
816 x[i].E = 7.56e-2 * rd->unit.Joule / PetscPowScalarInt(rd->unit.meter, 3); in RDInitialState()
990 rd->unit.kilogram = 1.; in RDCreate()
991 rd->unit.meter = 1.; in RDCreate()
992 rd->unit.second = 1.; in RDCreate()
993 rd->unit.Kelvin = 1.; in RDCreate()
996 rd->unit.kilogram = 1.e12; in RDCreate()
997 rd->unit.meter = 1.; in RDCreate()
998 rd->unit.second = 1.e9; in RDCreate()
999 rd->unit.Kelvin = 1.; in RDCreate()
[all …]
|
| /petsc/src/vec/is/sf/impls/basic/cupm/hip/ |
| H A D | sfcupm.hip.cxx | 47 PetscErrorCode PetscSFLinkSetUp_HIP(PetscSF sf, PetscSFLink link, MPI_Datatype unit) in PetscSFLinkSetUp_HIP() argument
50 PetscCall(PetscSFHIP::LinkSetUp(sf, link, unit)); in PetscSFLinkSetUp_HIP()
|
| /petsc/src/vec/is/sf/impls/basic/cupm/cuda/ |
| H A D | sfcupm.cu | 44 PetscErrorCode PetscSFLinkSetUp_CUDA(PetscSF sf, PetscSFLink link, MPI_Datatype unit) in PetscSFLinkSetUp_CUDA() argument
47 PetscCall(PetscSFCuda::LinkSetUp(sf, link, unit)); in PetscSFLinkSetUp_CUDA()
|
| /petsc/src/vec/is/sf/impls/basic/alltoall/ |
| H A D | sfalltoall.c | 13 MPI_Datatype unit = link->unit; in PetscSFLinkStartCommunication_Alltoall() local
26 PetscCallMPI(MPIU_Ialltoall(rootbuf, 1, unit, leafbuf, 1, unit, comm, req)); in PetscSFLinkStartCommunication_Alltoall()
28 PetscCallMPI(MPIU_Ialltoall(leafbuf, 1, unit, rootbuf, 1, unit, comm, req)); in PetscSFLinkStartCommunication_Alltoall()
|
| /petsc/include/ |
| H A D | petscsf.h | 215 static inline PetscErrorCode PetscSFBcastAndOpBegin(PetscSF sf, MPI_Datatype unit, const void *root… in PetscSFBcastAndOpBegin() argument
217 return PetscSFBcastBegin(sf, unit, rootdata, leafdata, op); in PetscSFBcastAndOpBegin()
221 static inline PetscErrorCode PetscSFBcastAndOpEnd(PetscSF sf, MPI_Datatype unit, const void *rootda… in PetscSFBcastAndOpEnd() argument
223 return PetscSFBcastEnd(sf, unit, rootdata, leafdata, op); in PetscSFBcastAndOpEnd()
227 static inline PetscErrorCode PetscSFBcastAndOpWithMemtypeBegin(PetscSF sf, MPI_Datatype unit, Petsc… in PetscSFBcastAndOpWithMemtypeBegin() argument
229 return PetscSFBcastWithMemTypeBegin(sf, unit, rootmtype, rootdata, leafmtype, leafdata, op); in PetscSFBcastAndOpWithMemtypeBegin()
|
| /petsc/src/vec/is/sf/interface/ |
| H A D | sf.c | 94 b->vscat.unit = MPIU_SCALAR; in PetscSFCreate()
240 if ((*sf)->vscat.bs > 1) PetscCallMPI(MPI_Type_free(&(*sf)->vscat.unit)); in PetscSFDestroy()
760 if (sf->vscat.bs > 1) PetscCallMPI(MPI_Type_dup(sf->vscat.unit, &dtype)); in PetscSFDuplicate()
762 (*newsf)->vscat.unit = dtype; in PetscSFDuplicate()
1487 PetscErrorCode PetscSFBcastBegin(PetscSF sf, MPI_Datatype unit, const void *rootdata, void *leafdat… in PetscSFBcastBegin() argument
1497 PetscUseTypeMethod(sf, BcastBegin, unit, rootmtype, rootdata, leafmtype, leafdata, op); in PetscSFBcastBegin()
1523 PetscErrorCode PetscSFBcastWithMemTypeBegin(PetscSF sf, MPI_Datatype unit, PetscMemType rootmtype, … in PetscSFBcastWithMemTypeBegin() argument
1529 PetscUseTypeMethod(sf, BcastBegin, unit, rootmtype, rootdata, leafmtype, leafdata, op); in PetscSFBcastWithMemTypeBegin()
1552 PetscErrorCode PetscSFBcastEnd(PetscSF sf, MPI_Datatype unit, const void *rootdata, void *leafdata,… in PetscSFBcastEnd() argument
1557 PetscUseTypeMethod(sf, BcastEnd, unit, rootdata, leafdata, op); in PetscSFBcastEnd()
[all …]
|
| /petsc/src/dm/impls/plex/tutorials/ |
| H A D | ex15.c | 125 MPI_Datatype unit; in VerifyLoadedSolution() local
133 PetscCallMPI(MPI_Type_contiguous(num_comps, MPIU_REAL, &unit)); in VerifyLoadedSolution()
134 PetscCallMPI(MPI_Type_commit(&unit)); in VerifyLoadedSolution()
135 … PetscCall(PetscSFBcastBegin(load_to_serial_sf, unit, array_load, array_load_bcast, MPI_REPLACE)); in VerifyLoadedSolution()
136 PetscCall(PetscSFBcastEnd(load_to_serial_sf, unit, array_load, array_load_bcast, MPI_REPLACE)); in VerifyLoadedSolution()
137 PetscCallMPI(MPI_Type_free(&unit)); in VerifyLoadedSolution()
|
| /petsc/src/sys/classes/viewer/impls/ascii/ |
| H A D | filev.c | 487 PETSC_EXTERN void petscviewerasciistdoutsetfileunit_(int *unit, PetscErrorCode *ierr) in petscviewerasciistdoutsetfileunit_() argument
490 PETSC_VIEWER_ASCII_STDOUT_fileunit = *unit; in petscviewerasciistdoutsetfileunit_()
521 PETSC_EXTERN void petscviewerasciisetfileunit_(PetscViewer *viewer, int *unit, PetscErrorCode *ierr) in petscviewerasciisetfileunit_() argument
532 vascii->fileunit = *unit; in petscviewerasciisetfileunit_()
561 PETSC_EXTERN void petscviewerasciiopenwithfileunit_(MPI_Fint *comm, int *unit, PetscViewer *viewer,… in petscviewerasciiopenwithfileunit_() argument
569 petscviewerasciisetfileunit_(viewer, unit, ierr); in petscviewerasciiopenwithfileunit_()
572 static PetscErrorCode PetscVFPrintfFortran(int unit, const char format[], va_list Argp) in PetscVFPrintfFortran() argument
581 petscfortranprinttofileunit_(&unit, str, &ierr, (int)len); in PetscVFPrintfFortran()
585 static PetscErrorCode PetscFPrintfFortran(int unit, const char str[]) in PetscFPrintfFortran() argument
592 petscfortranprinttofileunit_(&unit, str, &ierr, (int)len); in PetscFPrintfFortran()
[all …]
|