| /petsc/src/sys/fileio/ |
| H A D | sysio.c | 25 char *ptr1, *ptr2 = (char *)&tmp; in PetscByteSwapEnum() local
29 ptr1 = (char *)(buff + j); in PetscByteSwapEnum()
30 for (i = 0; i < (PetscCount)sizeof(PetscEnum); i++) ptr2[i] = ptr1[sizeof(PetscEnum) - 1 - i]; in PetscByteSwapEnum()
31 for (i = 0; i < (PetscCount)sizeof(PetscEnum); i++) ptr1[i] = ptr2[i]; in PetscByteSwapEnum()
44 char *ptr1, *ptr2 = (char *)&tmp; in PetscByteSwapBool() local
48 ptr1 = (char *)(buff + j); in PetscByteSwapBool()
49 for (i = 0; i < (PetscCount)sizeof(PetscBool); i++) ptr2[i] = ptr1[sizeof(PetscBool) - 1 - i]; in PetscByteSwapBool()
50 for (i = 0; i < (PetscCount)sizeof(PetscBool); i++) ptr1[i] = ptr2[i]; in PetscByteSwapBool()
63 char *ptr1, *ptr2 = (char *)&tmp; in PetscByteSwapInt() local
67 ptr1 = (char *)(buff + j); in PetscByteSwapInt()
[all …]
|
| /petsc/src/sys/classes/viewer/impls/socket/mex-scripts/ |
| H A D | bread.c | 20 char *ptr1, *ptr2 = (char *)&tmp; in SYByteSwapInt() local
22 ptr1 = (char *)(buff + j); in SYByteSwapInt()
23 for (PetscCount i = 0; i < sizeof(int); i++) ptr2[i] = ptr1[sizeof(int) - 1 - i]; in SYByteSwapInt()
33 char *ptr1, *ptr2 = (char *)&tmp; in SYByteSwapShort() local
35 ptr1 = (char *)(buff + j); in SYByteSwapShort()
36 for (PetscCount i = 0; i < sizeof(short); i++) ptr2[i] = ptr1[sizeof(int) - 1 - i]; in SYByteSwapShort()
47 char *ptr1, *ptr2 = (char *)&tmp; in SYByteSwapScalar() local
52 ptr1 = (char *)(buff1 + j); in SYByteSwapScalar()
53 for (PetscCount i = 0; i < sizeof(double); i++) ptr2[i] = ptr1[sizeof(double) - 1 - i]; in SYByteSwapScalar()
|
| /petsc/src/vec/is/is/utils/ |
| H A D | iscomp.c | 38 const PetscInt *ptr1, *ptr2; in ISEqual() local
68 PetscCall(ISGetIndices(is1, &ptr1)); in ISEqual()
74 PetscCall(PetscArraycpy(a1, ptr1, sz1)); in ISEqual()
81 PetscCall(ISRestoreIndices(is1, &ptr1)); in ISEqual()
120 const PetscInt *ptr1, *ptr2; in ISEqualUnsorted() local
150 PetscCall(ISGetIndices(is1, &ptr1)); in ISEqualUnsorted()
153 PetscCall(PetscArraycmp(ptr1, ptr2, sz1, &flag)); in ISEqualUnsorted()
155 PetscCall(ISRestoreIndices(is1, &ptr1)); in ISEqualUnsorted()
|
| /petsc/src/sys/objects/ftn-custom/ |
| H A D | zinheritf.c | 39 …etscErrorCode *), PetscCtx ctx, PetscErrorCode *ierr PETSC_F90_2PTR_PROTO(ptr1) PETSC_F90_2PTR_PRO… in petscobjectaddoptionshandler_()
44 …tFortranCallback((PetscObject)*obj, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.handler_pgiptr, NULL, ptr1); in petscobjectaddoptionshandler_()
|
| /petsc/src/vec/vec/tests/ |
| H A D | ex48.c | 123 static inline PetscErrorCode compare(PetscDataType dt, void *ptr0, void *ptr1, PetscBool *flg) in compare() argument
128 *flg = (PetscBool)(*(PetscInt *)ptr0 == *(PetscInt *)ptr1); in compare()
133 …ETSC_COMM_SELF, "%" PetscInt_FMT " != %" PetscInt_FMT "\n", *(PetscInt *)ptr0, *(PetscInt *)ptr1)); in compare()
138 *flg = (PetscBool)(*(PetscReal *)ptr0 == *(PetscReal *)ptr1); in compare()
143 … PetscCall(PetscPrintf(PETSC_COMM_SELF, "%f != %f\n", *(PetscReal *)ptr0, *(PetscReal *)ptr1)); in compare()
148 *flg = (PetscBool)(*(PetscBool *)ptr0 == *(PetscBool *)ptr1); in compare()
153 …tf(PETSC_COMM_SELF, "%s != %s\n", PetscBools[*(PetscBool *)ptr0], PetscBools[*(PetscBool *)ptr1])); in compare()
158 PetscCall(PetscStrcmp((const char *)ptr0, (const char *)ptr1, flg)); in compare()
163 PetscCall(PetscPrintf(PETSC_COMM_SELF, "%s != %s\n", (char *)ptr0, (char *)ptr1)); in compare()
|
| /petsc/src/ksp/pc/impls/tfs/ |
| H A D | gs.c | 494 PetscInt *ptr1, *ptr2, i_start, negl, nel, *elms; in get_ngh_buf() local
563 for (ptr1 = ngh_buf, ptr2 = elms, end = gs->gl_min, or_ct = i = 0; or_ct < num_loads; or_ct++) { in get_ngh_buf()
586 ptr1 += p_mask_size; in get_ngh_buf()
591 PCTFS_ivec_copy(ptr1, ptr3, p_mask_size); in get_ngh_buf()
592 PetscCall(PCTFS_ivec_xor(ptr1, p_mask, p_mask_size)); in get_ngh_buf()
593 PetscCall(PCTFS_ivec_or(sh_proc_mask, ptr1, p_mask_size)); in get_ngh_buf()
601 PetscCall(PCTFS_ivec_or(pw_sh_proc_mask, ptr1, p_mask_size)); in get_ngh_buf()
602 ptr1 += p_mask_size; in get_ngh_buf()
609 ptr1 += p_mask_size; in get_ngh_buf()
|
| /petsc/src/mat/impls/sbaij/mpi/ |
| H A D | mpisbaij.c | 1322 const PetscInt *ptr1, *ptr2; in ISEqual_private() local
1330 PetscCall(ISGetIndices(isrow, &ptr1)); in ISEqual_private()
1335 PetscCall(PetscArraycpy(a1, ptr1, sz1)); in ISEqual_private()
1351 PetscCall(ISRestoreIndices(isrow, &ptr1)); in ISEqual_private()
|