| /petsc/src/sys/classes/draw/interface/ |
| H A D | dmarker.c | 22 PetscErrorCode PetscDrawMarker(PetscDraw draw, PetscReal xl, PetscReal yl, int cl) in PetscDrawMarker() argument
31 PetscUseTypeMethod(draw, pointpixel, i + k, j + k, cl); in PetscDrawMarker()
32 PetscUseTypeMethod(draw, pointpixel, i + k, j - k, cl); in PetscDrawMarker()
34 } else PetscUseTypeMethod(draw, string, xl, yl, cl, "x"); in PetscDrawMarker()
40 PetscUseTypeMethod(draw, pointpixel, i, j + k, cl); in PetscDrawMarker()
41 PetscUseTypeMethod(draw, pointpixel, i + k, j, cl); in PetscDrawMarker()
43 } else PetscUseTypeMethod(draw, string, xl, yl, cl, "+"); in PetscDrawMarker()
49 PetscUseTypeMethod(draw, pointpixel, i + 2, j + k, cl); in PetscDrawMarker()
50 PetscUseTypeMethod(draw, pointpixel, i - 2, j + k, cl); in PetscDrawMarker()
51 PetscUseTypeMethod(draw, pointpixel, i + k, j + 2, cl); in PetscDrawMarker()
[all …]
|
| H A D | dtext.c | 21 PetscErrorCode PetscDrawString(PetscDraw draw, PetscReal xl, PetscReal yl, int cl, const char text[… in PetscDrawString() argument
26 PetscUseTypeMethod(draw, string, xl, yl, cl, text); in PetscDrawString()
47 PetscErrorCode PetscDrawStringVertical(PetscDraw draw, PetscReal xl, PetscReal yl, int cl, const ch… in PetscDrawStringVertical() argument
56 if (draw->ops->stringvertical) PetscUseTypeMethod(draw, stringvertical, xl, yl, cl, text); in PetscDrawStringVertical()
59 …hr[0] = text[i]); i++) PetscCall(PetscDrawString(draw, xl, yl - th * ((PetscReal)i + 1), cl, chr)); in PetscDrawStringVertical()
81 PetscErrorCode PetscDrawStringCentered(PetscDraw draw, PetscReal xc, PetscReal yl, int cl, const ch… in PetscDrawStringCentered() argument
93 PetscCall(PetscDrawString(draw, xc, yl, cl, text)); in PetscDrawStringCentered()
|
| H A D | dline.c | 151 …rCode PetscDrawLine(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int cl) in PetscDrawLine() argument
155 PetscUseTypeMethod(draw, line, xl, yl, xr, yr, cl); in PetscDrawLine()
177 …Code PetscDrawArrow(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int cl) in PetscDrawArrow() argument
181 PetscUseTypeMethod(draw, arrow, xl, yl, xr, yr, cl); in PetscDrawArrow()
|
| H A D | dpoint.c | 19 PetscErrorCode PetscDrawPoint(PetscDraw draw, PetscReal xl, PetscReal yl, int cl) in PetscDrawPoint() argument
23 PetscUseTypeMethod(draw, point, xl, yl, cl); in PetscDrawPoint()
|
| /petsc/src/dm/impls/plex/adaptors/pragmatic/ |
| H A D | pragmaticadapt.c | 71 PetscInt coneSize, cl; in DMAdaptMetric_Pragmatic_Plex() local
75 for (cl = 0; cl < coneSize; ++cl) cells[coff++] = cone[cl] - vStart; in DMAdaptMetric_Pragmatic_Plex()
110 PetscInt closureSize, cl; in DMAdaptMetric_Pragmatic_Plex() local
113 for (cl = 0; cl < closureSize * 2; cl += 2) { in DMAdaptMetric_Pragmatic_Plex()
114 if ((closure[cl] >= vStart) && (closure[cl] < vEnd)) ++bdSize; in DMAdaptMetric_Pragmatic_Plex()
121 PetscInt closureSize, cl; in DMAdaptMetric_Pragmatic_Plex() local
124 for (cl = 0; cl < closureSize * 2; cl += 2) { in DMAdaptMetric_Pragmatic_Plex()
125 if ((closure[cl] >= vStart) && (closure[cl] < vEnd)) bdFaces[bdSize++] = closure[cl] - vStart; in DMAdaptMetric_Pragmatic_Plex()
|
| /petsc/src/dm/impls/plex/adaptors/mmg/ |
| H A D | mmgadapt.c | 65 PetscInt coneSize, cl; in DMAdaptMetric_Mmg_Plex() local
69 for (cl = 0; cl < coneSize; ++cl) cells[coff++] = cone[cl] - vStart + 1; in DMAdaptMetric_Mmg_Plex()
94 PetscInt *closure = NULL, closureSize, cl; in DMAdaptMetric_Mmg_Plex() local
101 for (cl = 0; cl < closureSize * 2; cl += 2) { in DMAdaptMetric_Mmg_Plex()
102 if ((closure[cl] >= vStart) && (closure[cl] < vEnd)) ++bdSize; in DMAdaptMetric_Mmg_Plex()
109 PetscInt *closure = NULL, closureSize, cl; in DMAdaptMetric_Mmg_Plex() local
115 for (cl = 0; cl < closureSize * 2; cl += 2) { in DMAdaptMetric_Mmg_Plex()
116 … if ((closure[cl] >= vStart) && (closure[cl] < vEnd)) bdFaces[bdSize++] = closure[cl] - vStart + 1; in DMAdaptMetric_Mmg_Plex()
|
| /petsc/src/sys/classes/draw/impls/tikz/ |
| H A D | tikz.c | 60 static inline const char *TikZColorMap(int cl) in TikZColorMap() argument
62 return (cl < 16) ? (TikZColors[cl] ? TikZColors[cl] : "black") : "black"; in TikZColorMap()
86 … PetscDrawLine_TikZ(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int cl) in PetscDrawLine_TikZ() argument
92 …tscObject)draw), win->fd, "\\draw [%s] (%g,%g) --(%g,%g);\n", TikZColorMap(cl), XTRANS(draw, xl), … in PetscDrawLine_TikZ()
129 static PetscErrorCode PetscDrawString_TikZ(PetscDraw draw, PetscReal xl, PetscReal yl, int cl, cons… in PetscDrawString_TikZ() argument
135 …raw), win->fd, "\\node [above right, %s] at (%g,%g) {%s};\n", TikZColorMap(cl), XTRANS(draw, xl), … in PetscDrawString_TikZ()
139 …PetscDrawStringVertical_TikZ(PetscDraw draw, PetscReal xl, PetscReal yl, int cl, const char text[]) in PetscDrawStringVertical_TikZ() argument
150 …)draw), win->fd, "\\node [rotate=90, %s] at (%g,%g) {%s};\n", TikZColorMap(cl), XTRANS(draw, xl), … in PetscDrawStringVertical_TikZ()
157 static PetscErrorCode PetscDrawStringBoxed_TikZ(PetscDraw draw, PetscReal xl, PetscReal yl, int cl,… in PetscDrawStringBoxed_TikZ() argument
|
| /petsc/src/dm/impls/plex/transform/impls/filter/ |
| H A D | plextrfilter.c | 44 PetscInt Ncl, cl; in DMPlexTransformSetUp_Filter() local
47 for (cl = 0; cl < Ncl * 2; cl += 2) { in DMPlexTransformSetUp_Filter()
48 PetscCall(DMPlexGetCellType(dm, closure[cl], &ct)); in DMPlexTransformSetUp_Filter()
49 PetscCall(DMLabelSetValue(tr->trType, closure[cl], ct)); in DMPlexTransformSetUp_Filter()
|
| /petsc/src/dm/impls/plex/adaptors/parmmg/ |
| H A D | parmmgadapt.c | 106 PetscInt coneSize, cl; in DMAdaptMetric_ParMmg_Plex() local
111 for (cl = 0; cl < coneSize; ++cl) { in DMAdaptMetric_ParMmg_Plex()
112 if (!vertexNumber[cone[cl] - vStart]) vertexNumber[cone[cl] - vStart] = ++numUsedVertices; in DMAdaptMetric_ParMmg_Plex()
113 cells[coff++] = vertexNumber[cone[cl] - vStart]; in DMAdaptMetric_ParMmg_Plex()
142 PetscInt *closure = NULL, closureSize, cl; in DMAdaptMetric_ParMmg_Plex() local
158 for (cl = 0; cl < closureSize * 2; cl += 2) { in DMAdaptMetric_ParMmg_Plex()
159 if ((closure[cl] >= vStart) && (closure[cl] < vEnd)) ++bdSize; in DMAdaptMetric_ParMmg_Plex()
165 PetscInt *closure = NULL, closureSize, cl; in DMAdaptMetric_ParMmg_Plex() local
170 for (cl = 0; cl < closureSize * 2; cl += 2) { in DMAdaptMetric_ParMmg_Plex()
171 …if ((closure[cl] >= vStart) && (closure[cl] < vEnd)) bdFaces[bdSize++] = vertexNumber[closure[cl] … in DMAdaptMetric_ParMmg_Plex()
|
| /petsc/src/ksp/ksp/impls/tcqmr/ |
| H A D | tcqmr.c | 13 PetscScalar theta, ep, cl1, sl1, cl, sl, sprod, tau_n1, f; in KSPSolve_TCQMR() local
43 cl = 0.0; in KSPSolve_TCQMR()
107 ep = -cl * eptmp + sl * alpha; in KSPSolve_TCQMR()
108 deltmp = -sl * eptmp - cl * alpha; in KSPSolve_TCQMR()
128 cl1 = cl; in KSPSolve_TCQMR()
130 cl = c; in KSPSolve_TCQMR()
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexadapt.c | 12 PetscInt closureSize = 0, cl; in DMPlexLabelToVolumeConstraint() local
21 for (cl = 0; cl < closureSize * 2; cl += 2) { in DMPlexLabelToVolumeConstraint()
22 const PetscInt point = closure[cl]; in DMPlexLabelToVolumeConstraint()
84 PetscInt coneSize, cl, i, j, d, r; in DMPlexLabelToMetricConstraint() local
117 for (cl = 0; cl < coneSize; ++cl) { in DMPlexLabelToMetricConstraint()
118 const PetscInt v = cone[cl] - vStart; in DMPlexLabelToMetricConstraint()
|
| H A D | plexsubmesh.c | 137 PetscInt clSize, cl, cval; in DMPlexMarkBoundaryFaces_Internal() local
141 for (cl = 0; cl < clSize * 2; cl += 2) { in DMPlexMarkBoundaryFaces_Internal()
142 PetscCall(DMLabelGetValue(label, closure[cl], &cval)); in DMPlexMarkBoundaryFaces_Internal()
147 if (cl == clSize * 2) PetscCall(DMLabelSetValue(label, f, 1)); in DMPlexMarkBoundaryFaces_Internal()
345 PetscInt closureSize, cl, h, cStart, cEnd; in DMPlexLabelAddCells() local
360 for (cl = closureSize - 1; cl > 0; --cl) { in DMPlexLabelAddCells()
361 const PetscInt cell = closure[cl * 2]; in DMPlexLabelAddCells()
417 PetscInt closureSize, cl; in DMPlexLabelAddFaceCells() local
421 for (cl = closureSize - 1; cl > 0; --cl) { in DMPlexLabelAddFaceCells()
422 const PetscInt cell = closure[cl * 2]; in DMPlexLabelAddFaceCells()
[all …]
|
| H A D | plexglvis.c | 909 PetscInt cell, cl, coneSize; in DMPlexView_GLVis_ASCII() local
915 for (cl = 0; cl < coneSize; cl++) { in DMPlexView_GLVis_ASCII()
916 if (cone[cl] == p) { in DMPlexView_GLVis_ASCII()
961 PetscInt vids[8], *faces, st, i, coneSize, cell, cl, nv, cid = -1, mid = -1; in DMPlexView_GLVis_ASCII() local
966 for (cl = 0; cl < coneSize; cl++) in DMPlexView_GLVis_ASCII()
967 if (cone[cl] == p) break; in DMPlexView_GLVis_ASCII()
968 if (cl == coneSize) continue; in DMPlexView_GLVis_ASCII()
978 for (i = 0; i < cl; i++) st += faceSizes[i]; in DMPlexView_GLVis_ASCII()
979 PetscCall(DMPlexInvertCell(faceTypes[cl], faces + st)); in DMPlexView_GLVis_ASCII()
980 …for (i = 0; i < faceSizes[cl]; i++) PetscCall(PetscViewerASCIIPrintf(viewer, " %" PetscInt_FMT, fa… in DMPlexView_GLVis_ASCII()
|
| /petsc/src/binding/petsc4py/src/petsc4py/lib/_pytypes/viewer/ |
| H A D | petscpyvista.py | 77 for cl in closure:
78 if cl >= vStart and cl < vEnd:
86 for cl in closure:
87 if cl >= vStart and cl < vEnd:
89 cells[conesLength + off] = cl - vStart
|
| /petsc/src/dm/impls/plex/tutorials/ |
| H A D | ex11.c | 72 PetscInt Ncl, cl, Nv, vStart, vEnd, v; in CheckCellVertices() local
80 for (cl = 0, Nv = 0; cl < Ncl * 2; cl += 2) { in CheckCellVertices()
81 const PetscInt vertex = closure[cl]; in CheckCellVertices()
102 PetscInt cdim, d, Nc, Ncl, cl, vStart, vEnd, Nv; in ReorientCell() local
117 for (cl = 0, Nv = 0; cl < Ncl * 2; cl += 2) { in ReorientCell()
118 const PetscInt vertex = closure[cl]; in ReorientCell()
|
| /petsc/src/dm/impls/forest/tests/ |
| H A D | ex2.c | 97 PetscInt cl, closureSize, *closure = NULL; in IdentifyBadPoints() local
115 for (cl = 0; cl < closureSize; cl++) { in IdentifyBadPoints()
116 PetscInt cp = closure[2 * cl]; in IdentifyBadPoints()
118 … (%" PetscInt_FMT ") child of %" PetscInt_FMT " (ID %" PetscInt_FMT ")\n", cl, cp, parent, childID… in IdentifyBadPoints()
120 …ntf(PETSC_COMM_SELF, " Closure point %" PetscInt_FMT " (%" PetscInt_FMT ") is parent\n", cl, cp)); in IdentifyBadPoints()
|
| /petsc/src/sys/classes/draw/utils/ |
| H A D | lgc.c | 498 int i, j, dim = lg->dim, nopts = lg->nopts, cl; in PetscDrawLGDraw() local
501 cl = lg->colors ? lg->colors[i] : ((PETSC_DRAW_BLACK + i) % PETSC_DRAW_MAXCOLOR); in PetscDrawLGDraw()
502 …, lg->x[(j - 1) * dim + i], lg->y[(j - 1) * dim + i], lg->x[j * dim + i], lg->y[j * dim + i], cl)); in PetscDrawLGDraw()
503 … if (lg->use_markers) PetscCall(PetscDrawMarker(draw, lg->x[j * dim + i], lg->y[j * dim + i], cl)); in PetscDrawLGDraw()
509 int i, dim = lg->dim, cl; in PetscDrawLGDraw() local
533 cl = lg->colors ? lg->colors[i] : (PETSC_DRAW_BLACK + i); in PetscDrawLGDraw()
534 …PetscCall(PetscDrawLine(draw, xl + 1 * tw, yr - (i + 1) * th, xl + 5 * tw, yr - (i + 1) * th, cl)); in PetscDrawLGDraw()
|
| /petsc/lib/petsc/bin/win32fe/ |
| H A D | win32fe_cl | 6 ${p}/win32fe cl $*
|
| /petsc/src/dm/impls/plex/generators/ctetgen/ |
| H A D | ctetgenerate.c | 254 PetscInt *closure = NULL, Ncl, cl; in DMPlexGenerate_CTetgen() local
258 for (cl = 0; cl < Ncl; ++cl) { in DMPlexGenerate_CTetgen()
259 const PetscInt p = closure[cl * 2]; in DMPlexGenerate_CTetgen()
529 PetscInt *closure = NULL, Ncl, cl; in DMPlexRefine_CTetgen() local
533 for (cl = 0; cl < Ncl; cl += 2) { in DMPlexRefine_CTetgen()
534 const PetscInt p = closure[cl]; in DMPlexRefine_CTetgen()
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex60.c | 91 PetscInt *closure = NULL, closureSize, cl; in main() local
95 for (cl = 0; cl < closureSize * 2; cl += 2) { in main()
96 PetscInt off = closure[cl]; in main()
|
| /petsc/src/sys/webclient/ |
| H A D | client.c | 202 int cl; in PetscHTTPSRequest() local
224 sscanf(clen, "%d", &cl); in PetscHTTPSRequest()
225 if (!cl) foundbody = PETSC_TRUE; in PetscHTTPSRequest()
230 if (nlen - 4 == (size_t)cl) foundbody = PETSC_TRUE; in PetscHTTPSRequest()
|
| /petsc/src/dm/impls/plex/generators/tetgen/ |
| H A D | tetgenerate.cxx | 283 PetscInt *closure = nullptr, Ncl, cl; in DMPlexGenerate_Tetgen() local
287 for (cl = 0; cl < Ncl; cl += 2) { in DMPlexGenerate_Tetgen()
288 const PetscInt p = closure[cl]; in DMPlexGenerate_Tetgen()
562 PetscInt *closure = nullptr, Ncl, cl; in DMPlexRefine_Tetgen() local
566 for (cl = 0; cl < Ncl; cl += 2) { in DMPlexRefine_Tetgen()
567 const PetscInt p = closure[cl]; in DMPlexRefine_Tetgen()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex11.h | 416 static PetscScalar cl, cr, wl, zl, wr, zr, pst, durl, skpr1, skpr2; in riem1mdt() local
434 cl = PetscSqrtScalar(*gaml * *pl / *rl); in riem1mdt()
436 wl = *rl * cl; in riem1mdt()
447 skpr2 = cl * (pst - 1.) * PetscSqrtScalar(2. / (*gaml * (*gaml - 1. + (*gaml + 1.) * pst))); in riem1mdt()
449 rarepr1 = gascl4 * 2. * cl * (1. - PetscPowScalar(pst, d__1)); in riem1mdt()
477 ustarl = *uxl - gascl4 * 2. * (cstarl - cl); in riem1mdt()
500 …ustarl = *uxl - (pst - 1.) * cl * PetscSqrtScalar(2. / (*gaml * (*gaml - 1. + (*gaml + 1.) * pst)… in riem1mdt()
501 …zl = *pl / cl * PetscSqrtScalar(*gaml * 2. * (*gaml - 1. + (*gaml + 1.) * pst)) * (*gaml - 1.… in riem1mdt()
523 …ustarl = *uxl - (pst - 1.) * cl * PetscSqrtScalar(2. / (*gaml * (*gaml - 1. + (*gaml + 1.) * pst))… in riem1mdt()
524 …zl = *pl / cl * PetscSqrtScalar(*gaml * 2. * (*gaml - 1. + (*gaml + 1.) * pst)) * (*gaml - 1. … in riem1mdt()
[all …]
|
| /petsc/src/dm/impls/da/ |
| H A D | dacorn.c | 313 PetscInt cl, rl; in DMDACreateCompatibleDMDA() local
347 PetscCall(DMGetCoarsenLevel(da, &cl)); in DMDACreateCompatibleDMDA()
351 (*nda)->leveldown = cl; in DMDACreateCompatibleDMDA()
|
| /petsc/src/sys/classes/draw/impls/null/ |
| H A D | drawnull.c | 36 … PetscDrawLine_Null(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int cl) in PetscDrawLine_Null() argument
42 …PetscDrawArrow_Null(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int cl) in PetscDrawArrow_Null() argument
|