| /petsc/src/dm/impls/plex/ |
| H A D | plexpoint.c | 23 PetscErrorCode DMPlexGetPointLocal(DM dm, PetscInt point, PetscInt *start, PetscInt *end) in DMPlexGetPointLocal() argument
29 if (start) PetscAssertPointer(start, 3); in DMPlexGetPointLocal()
32 if (start) *start = s; in DMPlexGetPointLocal()
64 PetscInt start, end; in DMPlexPointLocalRead() local
70 PetscCall(DMGetLocalOffset_Private(dm, point, &start, &end)); in DMPlexPointLocalRead()
71 *(const PetscScalar **)ptr = (start < end) ? array + start : NULL; in DMPlexPointLocalRead()
102 PetscInt start, end; in DMPlexPointLocalRef() local
108 PetscCall(DMGetLocalOffset_Private(dm, point, &start, &end)); in DMPlexPointLocalRef()
109 *(PetscScalar **)ptr = (start < end) ? array + start : NULL; in DMPlexPointLocalRef()
134 PetscErrorCode DMPlexGetPointLocalField(DM dm, PetscInt point, PetscInt field, PetscInt *start, Pet… in DMPlexGetPointLocalField() argument
[all …]
|
| /petsc/src/sys/yaml/src/ |
| H A D | api.c | 52 yaml_string_extend(yaml_char_t **start, in yaml_string_extend() argument
55 yaml_char_t *new_start = (yaml_char_t *)yaml_realloc((void*)*start, (*end - *start)*2); in yaml_string_extend()
59 memset(new_start + (*end - *start), 0, *end - *start); in yaml_string_extend()
61 *pointer = new_start + (*pointer - *start); in yaml_string_extend()
62 *end = new_start + (*end - *start)*2; in yaml_string_extend()
63 *start = new_start; in yaml_string_extend()
97 yaml_stack_extend(void **start, void **top, void **end) in yaml_stack_extend() argument
101 if ((char *)*end - (char *)*start >= INT_MAX / 2) in yaml_stack_extend()
104 new_start = yaml_realloc(*start, ((char *)*end - (char *)*start)*2); in yaml_stack_extend()
108 *top = (char *)new_start + ((char *)*top - (char *)*start); in yaml_stack_extend()
[all …]
|
| H A D | yaml_private.h | 93 (((buffer).start = (yaml_char_t *)yaml_malloc(size)) ? \
94 ((buffer).last = (buffer).pointer = (buffer).start, \
95 (buffer).end = (buffer).start+(size), \
101 (yaml_free((buffer).start), \
102 (buffer).start = (buffer).pointer = (buffer).end = NULL)
109 yaml_char_t *start; member
115 yaml_string_extend(yaml_char_t **start,
128 ((value).start = (string), \
133 (((string).start = YAML_MALLOC(size)) ? \
134 ((string).pointer = (string).start, \
[all …]
|
| H A D | loader.c | 43 int *start; member
187 parser->document->tag_directives.start in yaml_parser_load_document()
188 = event->data.document_start.tag_directives.start; in yaml_parser_load_document()
267 data.mark = parser->document->nodes.start[index-1].start_mark; in yaml_parser_register_anchor()
269 for (alias_data = parser->aliases.start; in yaml_parser_register_anchor()
304 parent = &parser->document->nodes.start[parent_index-1]; in yaml_parser_load_node_add()
350 for (alias_data = parser->aliases.start; in yaml_parser_load_alias()
389 index = parser->document->nodes.top - parser->document->nodes.start; in yaml_parser_load_scalar()
413 yaml_node_item_t *start; in yaml_parser_load_sequence() member
430 SEQUENCE_NODE_INIT(node, tag, items.start, items.end, in yaml_parser_load_sequence()
[all …]
|
| H A D | reader.c | 98 if (parser->raw_buffer.start == parser->raw_buffer.pointer in yaml_parser_update_raw_buffer()
108 if (parser->raw_buffer.start < parser->raw_buffer.pointer in yaml_parser_update_raw_buffer()
110 memmove(parser->raw_buffer.start, parser->raw_buffer.pointer, in yaml_parser_update_raw_buffer()
114 parser->raw_buffer.pointer - parser->raw_buffer.start; in yaml_parser_update_raw_buffer()
115 parser->raw_buffer.pointer = parser->raw_buffer.start; in yaml_parser_update_raw_buffer()
163 if (parser->buffer.start < parser->buffer.pointer in yaml_parser_update_buffer()
166 memmove(parser->buffer.start, parser->buffer.pointer, size); in yaml_parser_update_buffer()
167 parser->buffer.pointer = parser->buffer.start; in yaml_parser_update_buffer()
168 parser->buffer.last = parser->buffer.start + size; in yaml_parser_update_buffer()
171 parser->buffer.pointer = parser->buffer.start; in yaml_parser_update_buffer()
[all …]
|
| /petsc/src/dm/impls/stag/tests/ |
| H A D | ex23.c | 9 PetscInt ex, ey, ez, n[3], start[3], nExtra[3], iNext, iPrev, iCenter, d, round; in main() local
20 …PetscCall(DMStagGetCorners(dm, &start[0], &start[1], &start[2], &n[0], &n[1], &n[2], &nExtra[0], &… in main()
29 for (ex = start[0]; ex < start[0] + n[0]; ++ex) { in main()
34 for (ey = start[1]; ey < start[1] + n[1]; ++ey) { in main()
39 for (ez = start[2]; ez < start[2] + n[2]; ++ez) { in main()
46 for (ex = start[0]; ex < start[0] + n[0]; ++ex) { in main()
51 for (ey = start[1]; ey < start[1] + n[1]; ++ey) { in main()
56 for (ez = start[2]; ez < start[2] + n[2]; ++ez) { in main()
|
| H A D | ex5.c | 24 PetscInt start, n, e, nExtra; in main() local
41 PetscCall(DMStagGetCorners(dmSol, &start, NULL, NULL, &n, NULL, NULL, &nExtra, NULL, NULL)); in main()
47 for (e = start; e < start + n + nExtra; ++e) { in main()
52 if (e < start + n) { in main()
114 PetscInt start, n, nExtra, ex, idxP, idxU, startGhost, nGhost; in ApplyOperator() local
126 PetscCall(DMStagGetCorners(dm, &start, NULL, NULL, &n, NULL, NULL, &nExtra, NULL, NULL)); in ApplyOperator()
137 if (isLast) arrIn[start + n][idxP] = arrIn[start + n - 1][idxP]; in ApplyOperator()
140 for (ex = start; ex < start + n + nExtra; ++ex) { in ApplyOperator()
141 if (ex < start + n) { /* Don't compute pressure outside domain */ in ApplyOperator()
|
| H A D | ex40.c | 19 PetscInt start, n, n_extra, N, dof[2]; in FormFunction1DNoCoupling() local
28 PetscCall(DMStagGetCorners(dm, &start, NULL, NULL, &n, NULL, NULL, &n_extra, NULL, NULL)); in FormFunction1DNoCoupling()
31 for (PetscInt e = start; e < start + n + n_extra; ++e) { in FormFunction1DNoCoupling()
65 PetscInt start, n, n_extra, N, dof[2]; in FormJacobian1DNoCoupling() local
74 PetscCall(DMStagGetCorners(dm, &start, NULL, NULL, &n, NULL, NULL, &n_extra, NULL, NULL)); in FormJacobian1DNoCoupling()
77 for (PetscInt e = start; e < start + n + n_extra; ++e) { in FormJacobian1DNoCoupling()
115 PetscInt dim, stencil_width, start, n, n_extra, N, dof[2]; in FormFunction1D() local
130 PetscCall(DMStagGetCorners(dm, &start, NULL, NULL, &n, NULL, NULL, &n_extra, NULL, NULL)); in FormFunction1D()
136 for (PetscInt e = start; e < start + n + n_extra; ++e) { in FormFunction1D()
232 PetscInt dim, stencil_width, start, n, n_extra, N, dof[2]; in FormJacobian1D() local
[all …]
|
| /petsc/src/dm/impls/stag/ |
| H A D | stagda.c | 185 …PetscInt i, j, k, d, dim, dof, dofToMax, start[DMSTAG_MAX_DIM], n[DMSTAG_MAX_DIM], extraPoint[DMST… in DMStagMigrateVecDMDA() local
196 …PetscCall(DMStagGetCorners(dm, &start[0], &start[1], &start[2], &n[0], &n[1], &n[2], NULL, NULL, N… in DMStagMigrateVecDMDA()
207 for (i = start[0]; i < start[0] + n[0] + extraPoint[0]; ++i) { in DMStagMigrateVecDMDA()
218 for (i = start[0]; i < start[0] + n[0] + extraPoint[0]; ++i) { in DMStagMigrateVecDMDA()
232 for (j = start[1]; j < start[1] + n[1] + extraPoint[1]; ++j) { in DMStagMigrateVecDMDA()
233 for (i = start[0]; i < start[0] + n[0] + extraPoint[0]; ++i) { in DMStagMigrateVecDMDA()
246 for (j = start[1]; j < start[1] + n[1] + extraPoint[1]; ++j) { in DMStagMigrateVecDMDA()
247 for (i = start[0]; i < start[0] + n[0] + extraPoint[0]; ++i) { in DMStagMigrateVecDMDA()
263 for (k = start[2]; k < start[2] + n[2] + extraPoint[2]; ++k) { in DMStagMigrateVecDMDA()
264 for (j = start[1]; j < start[1] + n[1] + extraPoint[1]; ++j) { in DMStagMigrateVecDMDA()
[all …]
|
| /petsc/src/ts/tutorials/network/ |
| H A D | pipeImpls.c | 14 PetscInt i, start, n; in PipeComputeSteadyState() local
23 PetscCall(DMDAGetCorners(pipe->da, &start, 0, 0, &n, 0, 0)); in PipeComputeSteadyState()
25 for (i = start; i < start + n; i++) { in PipeComputeSteadyState()
62 PetscInt i, start, n, ilast; in PipeIFunctionLocal_Lax() local
69 PetscCall(DMDAGetCorners(pipe->da, &start, 0, 0, &n, 0, 0)); in PipeIFunctionLocal_Lax()
72 ilast = start + n - 1; in PipeIFunctionLocal_Lax()
73 for (i = start + 1; i < start + n - 1; i++) { in PipeIFunctionLocal_Lax()
90 …start + 1] = x[start].q - xold[start + 1].q - ((GRAV * A) / a) * (x[start].h - xold[start + 1].h) … in PipeIFunctionLocal_Lax()
|
| /petsc/src/sys/ftn-src/ |
| H A D | f90_fwrap.F90 | 8 PetscInt start, len1
9 PetscScalar, target :: array(start:start + len1 - 1)
18 PetscInt start, len1
19 PetscReal, target :: array(start:start + len1 - 1)
28 PetscInt start, len1
29 PetscInt, target :: array(start:start + len1 - 1)
38 PetscInt start, len1
39 PetscMPIInt, target :: array(start:start + len1 - 1)
48 PetscInt start, len1
49 PetscFortranAddr, target :: array(start:start + len1 - 1)
[all …]
|
| /petsc/src/sys/utils/ |
| H A D | sortso.c | 462 …char *tarr, size_t size, CompFunc cmp, PetscCtx ctx, PetscInt left, PetscInt start, PetscInt right) in PetscInsertionSort_Private() argument
464 PetscInt i = start == left ? start + 1 : start; in PetscInsertionSort_Private()
479 …ar *btarr, size_t bsize, CompFunc cmp, PetscCtx ctx, PetscInt left, PetscInt start, PetscInt right) in PetscInsertionSortWithArray_Private() argument
481 PetscInt i = start == left ? start + 1 : start; in PetscInsertionSortWithArray_Private()
497 …char *tarr, size_t size, CompFunc cmp, PetscCtx ctx, PetscInt left, PetscInt start, PetscInt right) in PetscBinaryInsertionSort_Private() argument
499 PetscInt i = start == left ? start + 1 : start; in PetscBinaryInsertionSort_Private()
519 …ar *btarr, size_t bsize, CompFunc cmp, PetscCtx ctx, PetscInt left, PetscInt start, PetscInt right) in PetscBinaryInsertionSortWithArray_Private() argument
521 PetscInt i = start == left ? start + 1 : start; in PetscBinaryInsertionSortWithArray_Private()
543 PetscInt start; member
575 …if ((*cmp)(arr + (stack[stacksize].start - 1) * size, arr + (stack[stacksize].start) * size, ctx) … in PetscTimSortForceCollapse_Private()
[all …]
|
| /petsc/src/mat/graphops/color/impls/natural/ |
| H A D | natural.c | 6 PetscInt start, end, i, bs = 1, n; in MatColoringApply_Natural() local
31 PetscCall(MatGetOwnershipRange(mat_seq, &start, &end)); in MatColoringApply_Natural()
35 start = start / bs; in MatColoringApply_Natural()
37 PetscCall(PetscMalloc1(end - start + 1, &colors)); in MatColoringApply_Natural()
38 for (i = start; i < end; i++) colors[i - start] = (ISColoringValue)i; in MatColoringApply_Natural()
39 PetscCall(ISColoringCreate(comm, n, end - start, colors, PETSC_OWN_POINTER, iscoloring)); in MatColoringApply_Natural()
|
| /petsc/include/petsc/private/ |
| H A D | dmimpl.h | 425 static inline PetscErrorCode DMGetLocalOffset_Private(DM dm, PetscInt point, PetscInt *start, Petsc… in DMGetLocalOffset_Private() argument
432 *start = *end = 0; /* Silence overzealous compiler warning */ in DMGetLocalOffset_Private()
434 PetscCall(PetscSectionGetOffset(dm->localSection, point, start)); in DMGetLocalOffset_Private()
436 *end = *start + dof; in DMGetLocalOffset_Private()
441 *start = s->atlasOff[point - s->pStart]; in DMGetLocalOffset_Private()
442 *end = *start + s->atlasDof[point - s->pStart]; in DMGetLocalOffset_Private()
448 …MGetLocalFieldOffset_Private(DM dm, PetscInt point, PetscInt field, PetscInt *start, PetscInt *end) in DMGetLocalFieldOffset_Private() argument
454 *start = *end = 0; /* Silence overzealous compiler warning */ in DMGetLocalFieldOffset_Private()
456 PetscCall(PetscSectionGetFieldOffset(dm->localSection, point, field, start)); in DMGetLocalFieldOffset_Private()
458 *end = *start + dof; in DMGetLocalFieldOffset_Private()
[all …]
|
| /petsc/src/sys/yaml/include/ |
| H A D | yaml.h | 367 yaml_tag_directive_t *start; member
525 yaml_node_item_t *start; member
540 yaml_node_pair_t *start; member
565 yaml_node_t *start; member
578 yaml_tag_directive_t *start; member
818 const unsigned char *start; member
835 yaml_char_t *start; member
850 unsigned char *start; member
889 yaml_token_t *start; member
907 int *start; member
[all …]
|
| /petsc/src/vec/is/ao/impls/memscalable/ |
| H A D | aomemscalable.c | 96 …etscInt nmax, *sindices, *rindices, idx, lastidx, *sindices2, *rindices2, *sizes, *start; in AOMap_MemoryScalable_private() local
112 PetscCall(PetscMalloc1(size, &start)); in AOMap_MemoryScalable_private()
163 start[0] = 0; in AOMap_MemoryScalable_private()
164 for (PetscMPIInt i = 1; i < size; i++) start[i] = start[i - 1] + sizes[2 * i - 2]; in AOMap_MemoryScalable_private()
171 sindices[start[j]++] = ia[i]; in AOMap_MemoryScalable_private()
177 start[0] = 0; in AOMap_MemoryScalable_private()
178 for (PetscMPIInt i = 1; i < size; i++) start[i] = start[i - 1] + sizes[2 * i - 2]; in AOMap_MemoryScalable_private()
183 …PetscCallMPI(MPIU_Isend(sindices + start[i], sizes[2 * i], MPIU_INT, i, tag1, comm, send_waits + c… in AOMap_MemoryScalable_private()
185 …PetscCallMPI(MPIU_Irecv(sindices2 + start[i], sizes[2 * i], MPIU_INT, i, tag2, comm, recv_waits2 +… in AOMap_MemoryScalable_private()
218 rbuf = sindices2 + start[source]; in AOMap_MemoryScalable_private()
[all …]
|
| /petsc/src/vec/is/ao/tests/ |
| H A D | ex2.c | 10 PetscInt n, *ispetsc, *isapp, start, N, i; in main() local
23 PetscCallMPI(MPI_Scan(&n, &start, 1, MPIU_INT, MPI_SUM, PETSC_COMM_WORLD)); in main()
25 start -= n; in main()
28 ispetsc[i] = start + i; in main()
29 isapp[i] = N - start - i - 1; in main()
|
| /petsc/src/vec/vec/utils/ |
| H A D | vinv.c | 27 PetscErrorCode VecStrideSet(Vec v, PetscInt start, PetscScalar s) in VecStrideSet() argument
34 PetscValidLogicalCollectiveInt(v, start, 2); in VecStrideSet()
37 …PetscCheck(start >= 0, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Negative start %" PetscInt_FMT,… in VecStrideSet()
38 …start < bs, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Start of stride subvector (%" PetscInt_FMT… in VecStrideSet()
40 for (i = start; i < n; i += bs) x[i] = s; in VecStrideSet()
66 PetscErrorCode VecStrideScale(Vec v, PetscInt start, PetscScalar scale) in VecStrideScale() argument
73 PetscValidLogicalCollectiveInt(v, start, 2); in VecStrideScale()
77 …PetscCheck(start >= 0, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Negative start %" PetscInt_FMT,… in VecStrideScale()
78 …start < bs, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Start of stride subvector (%" PetscInt_FMT… in VecStrideScale()
80 for (i = start; i < n; i += bs) x[i] *= scale; in VecStrideScale()
[all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex52.c | 8 PetscInt m = 2, bs = 1, M, row, col, start, end, i, j, k; in main() local
25 PetscCall(MatGetOwnershipRange(A, &start, &end)); in main()
30 for (row = start; row < end; row++) { in main()
31 …for (col = start; col < end; col++, data += 1) PetscCall(MatSetValues(A, 1, &row, 1, &col, &data, … in main()
38 row = (M + start - 1) % M; in main()
48 col = start / bs; in main()
|
| /petsc/src/vec/vec/tutorials/ |
| H A D | ex21f90.F90 | 46 PetscInt start, len
47 type(MyStruct), target :: array(start:start + len - 1)
59 PetscInt start
61 start = lbound(ptr, 1)
62 call F90Array1dGetAddrMyStruct(ptr(start), address)
|
| /petsc/src/snes/tests/ |
| H A D | ex12f.F90 | 144 PetscInt i, j, n, end, start, i1
157 PetscCall(VecGetOwnershipRange(x, start, end, ierr))
158 n = end - start
162 PetscCall(MatSetValues(jac, i1, [start], i1, [start], [A], INSERT_VALUES, ierr))
176 ii = i + start
177 j = start + i - 1
179 j = start + i + 1
197 PetscInt N, start, end, nn, i
238 PetscCallA(VecGetOwnershipRange(x, start, end, ierr))
239 xp = h*start
[all …]
|
| /petsc/src/snes/interface/ |
| H A D | snesj.c | 51 PetscInt i, N, start, end, j, value, max_funcs = snes->max_funcs; in SNESComputeJacobianDefault() local
89 PetscCall(VecGetOwnershipRange(x1, &start, &end)); in SNESComputeJacobianDefault()
110 if (i >= start && i < end) { in SNESComputeJacobianDefault()
113 else dx = xx[i - start]; in SNESComputeJacobianDefault()
121 y[i - start] += dx; in SNESComputeJacobianDefault()
147 for (j = start; j < end; j++) { in SNESComputeJacobianDefault()
148 …if (PetscAbsScalar(y[j - start]) > amax || j == i) PetscCall(MatSetValues(B, 1, &j, 1, &i, y + j -… in SNESComputeJacobianDefault()
|
| /petsc/src/mat/tutorials/ |
| H A D | ex15.c | 10 PetscInt r, N = 10, start, end, *vweights; in main() local
28 PetscCall(MatGetOwnershipRange(A, &start, &end)); in main()
30 PetscCall(PetscMalloc1(end - start, &vweights)); in main()
31 for (r = start; r < end; ++r) vweights[r - start] = rank + 1; in main()
33 for (r = start; r < end; ++r) { in main()
|
| /petsc/src/vec/is/utils/ |
| H A D | isltog.h | 9 PetscInt i, nf = 0, tmp, start, end, bs; in ISGlobalToLocalMappingApply() local
18 start = mapping->globalstart; in ISGlobalToLocalMappingApply()
26 else if (idx[i] < bs * start) idxout[i] = -1; in ISGlobalToLocalMappingApply()
36 if (idx[i] < bs * start) continue; in ISGlobalToLocalMappingApply()
45 if (idx[i] < bs * start) continue; in ISGlobalToLocalMappingApply()
|
| /petsc/lib/petsc/bin/maint/petsclinter/petsclinter/classes/ |
| H A D | _src_pos.py | 306 other = other.start
319 return start <= loc <= self.__end()
321 start = self.__start()
326 return contains(cast(other.start)) and contains(cast(other.end))
343 self._start = SourceLocation.cast(self.start)
496 start = min(cast(left.start), cast(right.start))
498 return cls.from_locations(start, end, tu=tu)
532 return end >= cast(other.start) and cast(other.end) >= self.__start()
553 start = self.__start()
555 cbegin = -start.column + 1
[all …]
|