| /petsc/src/mat/tests/ |
| H A D | ex120f.F90 | 15 PetscInt tw
17 tw = 12
18 PetscCallA(VecCreateSeq(PETSC_COMM_SELF, tw, x, ierr))
19 PetscCallA(VecCreateSeq(PETSC_COMM_SELF, tw, y, ierr))
31 PetscInt tw
35 tw = 12
36 PetscCallA(MatCreateShell(PETSC_COMM_SELF, tw, tw, tw, tw, 0, m, ierr))
|
| /petsc/src/sys/classes/draw/interface/ |
| H A D | dtext.c | 50 PetscReal tw, th; in PetscDrawStringVertical() local
58 PetscCall(PetscDrawStringGetSize(draw, &tw, &th)); in PetscDrawStringVertical()
84 PetscReal tw, th; in PetscDrawStringCentered() local
90 PetscCall(PetscDrawStringGetSize(draw, &tw, &th)); in PetscDrawStringCentered()
92 xc = xc - ((PetscReal)len) * tw / 2; in PetscDrawStringCentered()
121 PetscReal top, left, right, bottom, tw, th; in PetscDrawStringBoxed() local
141 PetscCall(PetscDrawStringGetSize(draw, &tw, &th)); in PetscDrawStringBoxed()
144 left = sxl - .5 * ((PetscReal)mlen + 2) * tw; in PetscDrawStringBoxed()
145 right = sxl + .5 * ((PetscReal)mlen + 2) * tw; in PetscDrawStringBoxed()
162 …for (i = 0; i < cnt; i++) PetscCall(PetscDrawString(draw, left + tw, top - (1.5 + i) * th, sc, arr… in PetscDrawStringBoxed()
|
| /petsc/src/snes/tutorials/ |
| H A D | ex18.c | 138 …PetscScalar t0, tn, ts, te, tw, an, as, ae, aw, dn, ds, de, dw, fn = 0.0, fs = 0.0, fe = 0.0, fw… in FormFunction() local
171 tw = x[j][i - 1]; in FormFunction()
172 aw = 0.5 * (t0 + tw); in FormFunction()
174 fw = dw * (t0 - tw); in FormFunction()
193 tw = tleft; in FormFunction()
194 aw = 0.5 * (t0 + tw); in FormFunction()
196 fw = dw * (t0 - tw); in FormFunction()
219 tw = x[j][i - 1]; in FormFunction()
220 aw = 0.5 * (t0 + tw); in FormFunction()
222 fw = dw * (t0 - tw); in FormFunction()
[all …]
|
| /petsc/src/sys/classes/draw/utils/ |
| H A D | axisc.c | 253 PetscReal coors[4] = {0, 0, 0, 0}, tickloc[PETSC_DRAW_AXIS_MAX_SEGMENTS], sep, tw, th; in PetscDrawAxisDraw() local
284 PetscCall(PetscDrawStringGetSize(draw, &tw, &th)); in PetscDrawAxisDraw()
289 if (axis->ylabelstr) dxl += 7.5 * tw; in PetscDrawAxisDraw()
290 if (axis->ylabel) dxl += 2.0 * tw; in PetscDrawAxisDraw()
292 if (axis->xlabelstr) dxr = 2.5 * tw; in PetscDrawAxisDraw()
296 dxl += 0.7 * tw; in PetscDrawAxisDraw()
297 dxr += 0.5 * tw; in PetscDrawAxisDraw()
306 PetscCall(PetscDrawStringGetSize(draw, &tw, &th)); in PetscDrawAxisDraw()
323 numx = (int)(.15 * (axis->xhigh - axis->xlow) / tw); in PetscDrawAxisDraw()
356 PetscCall(PetscDrawLine(draw, axis->xlow, tickloc[i], axis->xlow + .5 * tw, tickloc[i], tc)); in PetscDrawAxisDraw()
[all …]
|
| H A D | lgc.c | 510 PetscReal xl, yl, xr, yr, tw, th; in PetscDrawLGDraw() local
514 PetscCall(PetscDrawStringGetSize(draw, &tw, &th)); in PetscDrawLGDraw()
520 xr = xr - 1.5 * tw; in PetscDrawLGDraw()
521 xl = xr - ((PetscReal)len + 7) * tw; in PetscDrawLGDraw()
523 xl = xl + 1.5 * tw; in PetscDrawLGDraw()
524 xr = xl + ((PetscReal)len + 7) * tw; in PetscDrawLGDraw()
534 …PetscCall(PetscDrawLine(draw, xl + 1 * tw, yr - (i + 1) * th, xl + 5 * tw, yr - (i + 1) * th, cl)); in PetscDrawLGDraw()
535 …PetscCall(PetscDrawString(draw, xl + 6 * tw, yr - (i + 1.5) * th, PETSC_DRAW_BLACK, lg->legend[i])… in PetscDrawLGDraw()
|
| /petsc/src/snes/tests/ |
| H A D | ex20.c | 138 …PetscScalar t0, tn, ts, te, tw, an, as, ae, aw, dn, ds, de, dw, fn = 0.0, fs = 0.0, fe = 0.0, f… in FormFunction() local
174 tw = x[k][j][i - 1]; in FormFunction()
175 aw = 0.5 * (t0 + tw); in FormFunction()
177 fw = dw * (t0 - tw); in FormFunction()
206 tw = tleft; in FormFunction()
207 aw = 0.5 * (t0 + tw); in FormFunction()
209 fw = dw * (t0 - tw); in FormFunction()
254 tw = x[k][j][i - 1]; in FormFunction()
255 aw = 0.5 * (t0 + tw); in FormFunction()
257 fw = dw * (t0 - tw); in FormFunction()
[all …]
|
| /petsc/src/sys/classes/draw/impls/image/ |
| H A D | drawimage.h | 340 int i, j, k, tw = PetscImageFontWidth, th = PetscImageFontHeight; in PetscImageDrawText() local
344 for (j = 0; j < tw; j++) { in PetscImageDrawText()
345 …if (PetscImageFontBitmap[chr - 32][i] & (1 << (tw - 1 - j))) PetscImageDrawPixel(img, x + j + k * … in PetscImageDrawText()
|
| H A D | drawimage.c | 227 int tw = PetscImageFontWidth; in PetscDrawStringGetSize_Image() local
229 if (w) *w = tw * (draw->coor_xr - draw->coor_xl) / (img->w * (draw->port_xr - draw->port_xl)); in PetscDrawStringGetSize_Image()
|