| /petsc/include/petsc/private/ |
| H A D | ftnimpl.h | 309 #define PetscPatchDefaultViewers_Fortran_Socket(vin, v) \ argument 311 else if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_SOCKET_WORLD_FORTRAN) \ 315 else if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_SOCKET_SELF_FORTRAN) \ 319 #define PetscPatchDefaultViewers_Fortran_Socket(vin, v) argument 322 #define PetscPatchDefaultViewers_Fortran(vin, v) \ argument 324 if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_DRAW_WORLD_FORTRAN) { \ 326 } else if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_DRAW_SELF_FORTRAN) { \ 328 } else if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_STDOUT_WORLD_FORTRAN) { \ 330 } else if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_STDOUT_SELF_FORTRAN) { \ 332 } else if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_STDERR_WORLD_FORTRAN) { \ [all …]
|
| /petsc/src/vec/vec/impls/seq/cupm/cuda/ |
| H A D | vecseqcupm.cu | 373 PetscErrorCode VecCUDAPlaceArray(Vec vin, const PetscScalar array[]) in VecCUDAPlaceArray() argument 376 PetscCall(VecCUPMPlaceArrayAsync<DeviceType::CUDA>(vin, array)); in VecCUDAPlaceArray() 405 PetscErrorCode VecCUDAReplaceArray(Vec vin, const PetscScalar array[]) in VecCUDAReplaceArray() argument 408 PetscCall(VecCUPMReplaceArrayAsync<DeviceType::CUDA>(vin, array)); in VecCUDAReplaceArray() 429 PetscErrorCode VecCUDAResetArray(Vec vin) in VecCUDAResetArray() argument 432 PetscCall(VecCUPMResetArrayAsync<DeviceType::CUDA>(vin)); in VecCUDAResetArray()
|
| /petsc/src/vec/vec/impls/seq/cupm/hip/ |
| H A D | vecseqcupm.hip.cxx | 373 PetscErrorCode VecHIPPlaceArray(Vec vin, const PetscScalar array[]) in VecHIPPlaceArray() argument 376 PetscCall(VecCUPMPlaceArrayAsync<DeviceType::HIP>(vin, array)); in VecHIPPlaceArray() 405 PetscErrorCode VecHIPReplaceArray(Vec vin, const PetscScalar array[]) in VecHIPReplaceArray() argument 408 PetscCall(VecCUPMReplaceArrayAsync<DeviceType::HIP>(vin, array)); in VecHIPReplaceArray() 429 PetscErrorCode VecHIPResetArray(Vec vin) in VecHIPResetArray() argument 432 PetscCall(VecCUPMResetArrayAsync<DeviceType::HIP>(vin)); in VecHIPResetArray()
|
| /petsc/src/vec/vec/impls/seq/seqviennacl/ |
| H A D | vecviennacl.cxx | 296 static PetscErrorCode VecResetArray_SeqViennaCL_Private(Vec vin) in VecResetArray_SeqViennaCL_Private() argument 298 Vec_Seq *v = (Vec_Seq *)vin->data; in VecResetArray_SeqViennaCL_Private() 888 PetscErrorCode VecResetArray_SeqViennaCL(Vec vin) in VecResetArray_SeqViennaCL() argument 891 PetscCheckTypeNames(vin, VECSEQVIENNACL, VECMPIVIENNACL); in VecResetArray_SeqViennaCL() 892 PetscCall(VecViennaCLCopyFromGPU(vin)); in VecResetArray_SeqViennaCL() 893 PetscCall(VecResetArray_SeqViennaCL_Private(vin)); in VecResetArray_SeqViennaCL() 894 vin->offloadmask = PETSC_OFFLOAD_CPU; in VecResetArray_SeqViennaCL() 898 PetscErrorCode VecPlaceArray_SeqViennaCL(Vec vin, const PetscScalar *a) in VecPlaceArray_SeqViennaCL() argument 901 PetscCheckTypeNames(vin, VECSEQVIENNACL, VECMPIVIENNACL); in VecPlaceArray_SeqViennaCL() 902 PetscCall(VecViennaCLCopyFromGPU(vin)); in VecPlaceArray_SeqViennaCL() [all …]
|
| /petsc/src/sys/classes/viewer/interface/ftn-custom/ |
| H A D | zviewaf.c | 12 PETSC_EXTERN void petscviewerandformatcreate_(PetscViewer *vin, PetscViewerFormat *format, PetscVie… in petscviewerandformatcreate_() argument 15 PetscPatchDefaultViewers_Fortran(vin, v); in petscviewerandformatcreate_()
|
| /petsc/src/vec/vec/impls/seq/cupm/ |
| H A D | vecseqcupm.hpp | 269 inline PetscErrorCode VecCUPMPlaceArrayAsync(Vec vin, const PetscScalar a[]) noexcept in VecCUPMPlaceArrayAsync() argument 272 PetscValidHeaderSpecific(vin, VEC_CLASSID, 1); in VecCUPMPlaceArrayAsync() 273 PetscCall(impl::VecSeq_CUPM<T>::template PlaceArray<PETSC_MEMTYPE_DEVICE>(vin, a)); in VecCUPMPlaceArrayAsync() 278 inline PetscErrorCode VecCUPMReplaceArrayAsync(Vec vin, const PetscScalar a[]) noexcept in VecCUPMReplaceArrayAsync() argument 281 PetscValidHeaderSpecific(vin, VEC_CLASSID, 1); in VecCUPMReplaceArrayAsync() 282 PetscCall(impl::VecSeq_CUPM<T>::template ReplaceArray<PETSC_MEMTYPE_DEVICE>(vin, a)); in VecCUPMReplaceArrayAsync() 287 inline PetscErrorCode VecCUPMResetArrayAsync(Vec vin) noexcept in VecCUPMResetArrayAsync() argument 290 PetscValidHeaderSpecific(vin, VEC_CLASSID, 1); in VecCUPMResetArrayAsync() 291 PetscCall(impl::VecSeq_CUPM<T>::template ResetArray<PETSC_MEMTYPE_DEVICE>(vin)); in VecCUPMResetArrayAsync()
|
| /petsc/src/vec/vec/utils/ |
| H A D | vscat.c | 1142 PetscErrorCode VecScatterCreateToAll(Vec vin, VecScatter *ctx, Vec *vout) in VecScatterCreateToAll() argument 1152 PetscValidHeaderSpecific(vin, VEC_CLASSID, 1); in VecScatterCreateToAll() 1153 PetscValidType(vin, 1); in VecScatterCreateToAll() 1164 PetscCall(VecGetSize(vin, &N)); in VecScatterCreateToAll() 1165 PetscCall(VecGetRootType_Private(vin, &roottype)); in VecScatterCreateToAll() 1171 PetscCall(VecScatterCreate(vin, is, *tmpv, is, ctx)); in VecScatterCreateToAll() 1215 PetscErrorCode VecScatterCreateToZero(Vec vin, VecScatter *ctx, Vec *vout) in VecScatterCreateToZero() argument 1226 PetscValidHeaderSpecific(vin, VEC_CLASSID, 1); in VecScatterCreateToZero() 1227 PetscValidType(vin, 1); in VecScatterCreateToZero() 1238 PetscCall(VecGetSize(vin, &N)); in VecScatterCreateToZero() [all …]
|
| /petsc/src/ts/event/tests/ |
| H A D | ex1.c | 237 PetscErrorCode Transfer(TS ts, PetscInt nv, Vec vin[], Vec vout[], PetscCtx ctx) in Transfer() argument 245 PetscCall(VecDuplicate(vin[i], &vout[i])); in Transfer() 246 PetscCall(VecCopy(vin[i], vout[i])); in Transfer()
|
| /petsc/src/vec/vec/impls/seq/kokkos/ |
| H A D | veckok.kokkos.cxx | 1244 PetscErrorCode VecPlaceArray_SeqKokkos(Vec vin, const PetscScalar *a) in VecPlaceArray_SeqKokkos() argument 1246 Vec_Seq *vecseq = (Vec_Seq *)vin->data; in VecPlaceArray_SeqKokkos() 1247 Vec_Kokkos *veckok = static_cast<Vec_Kokkos *>(vin->spptr); in VecPlaceArray_SeqKokkos() 1250 PetscCall(VecPlaceArray_Seq(vin, a)); in VecPlaceArray_SeqKokkos() 1255 PetscErrorCode VecResetArray_SeqKokkos(Vec vin) in VecResetArray_SeqKokkos() argument 1257 Vec_Seq *vecseq = (Vec_Seq *)vin->data; in VecResetArray_SeqKokkos() 1258 Vec_Kokkos *veckok = static_cast<Vec_Kokkos *>(vin->spptr); in VecResetArray_SeqKokkos() 1263 …PetscCall(VecResetArray_Seq(vin)); /* Swap back the old host array, assuming its has the latest va… in VecResetArray_SeqKokkos() 1340 PetscErrorCode VecReplaceArray_SeqKokkos(Vec vin, const PetscScalar *a) in VecReplaceArray_SeqKokkos() argument 1342 Vec_Seq *vecseq = (Vec_Seq *)vin->data; in VecReplaceArray_SeqKokkos() [all …]
|
| /petsc/src/vec/vec/impls/seq/ |
| H A D | dvec2.c | 852 PetscErrorCode VecPlaceArray_Seq(Vec vin, const PetscScalar *a) in VecPlaceArray_Seq() argument 854 Vec_Seq *v = (Vec_Seq *)vin->data; in VecPlaceArray_Seq() 863 PetscErrorCode VecReplaceArray_Seq(Vec vin, const PetscScalar *a) in VecReplaceArray_Seq() argument 865 Vec_Seq *v = (Vec_Seq *)vin->data; in VecReplaceArray_Seq()
|
| H A D | bvec2.c | 122 PetscErrorCode VecGetSize_Seq(Vec vin, PetscInt *size) in VecGetSize_Seq() argument 125 *size = vin->map->n; in VecGetSize_Seq() 141 PetscErrorCode VecResetArray_Seq(Vec vin) in VecResetArray_Seq() argument 143 Vec_Seq *v = (Vec_Seq *)vin->data; in VecResetArray_Seq()
|
| /petsc/src/vec/vec/impls/mpi/ |
| H A D | pbvec.c | 9 PetscErrorCode VecPlaceArray_MPI(Vec vin, const PetscScalar *a) in VecPlaceArray_MPI() argument 11 Vec_MPI *v = (Vec_MPI *)vin->data; in VecPlaceArray_MPI() 131 PetscErrorCode VecResetArray_MPI(Vec vin) in VecResetArray_MPI() argument 133 Vec_MPI *v = (Vec_MPI *)vin->data; in VecResetArray_MPI()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex45.c | 429 static PetscErrorCode TransferVecs(TS ts, PetscInt nv, Vec vin[], Vec vout[], void *tctx) in TransferVecs() argument 440 PetscCall(MatMult(Interp, vin[i], vout[i])); in TransferVecs()
|