Home
last modified time | relevance | path

Searched refs:c1 (Results 1 – 25 of 36) sorted by relevance

12

/petsc/src/sys/classes/viewer/impls/hdf5/ftn-custom/
H A Dzhdf5f.c18 char *c1; in petscviewerhdf5opengroup_() local
20 FIXCHAR(path, len, c1); in petscviewerhdf5opengroup_()
21 *ierr = PetscViewerHDF5OpenGroup(*viewer, c1, fileId, groupId); in petscviewerhdf5opengroup_()
22 FREECHAR(path, c1); in petscviewerhdf5opengroup_()
27 char *c1; in petscviewerhdf5writeattributeint_() local
30 FIXCHAR(parent, len1, c1); in petscviewerhdf5writeattributeint_()
32 *ierr = PetscViewerHDF5WriteAttribute(*viewer, c1, c2, PETSC_INT, value); in petscviewerhdf5writeattributeint_()
33 FREECHAR(parent, c1); in petscviewerhdf5writeattributeint_()
39 char *c1; in petscviewerhdf5writeattributescalar_() local
42 FIXCHAR(parent, len1, c1); in petscviewerhdf5writeattributescalar_()
[all …]
/petsc/src/sys/fileio/ftn-custom/
H A Dzmprintf.c46 char *c1, *tmp; in petscfprintf_() local
48 FIXCHAR(fname, len1, c1); in petscfprintf_()
49 *ierr = PetscFixSlashN(c1, &tmp); in petscfprintf_()
51 FREECHAR(fname, c1); in petscfprintf_()
59 char *c1, *tmp; in petscprintf_() local
61 FIXCHAR(fname, len1, c1); in petscprintf_()
62 *ierr = PetscFixSlashN(c1, &tmp); in petscprintf_()
64 FREECHAR(fname, c1); in petscprintf_()
72 char *c1, *tmp; in petscsynchronizedfprintf_() local
74 FIXCHAR(fname, len1, c1); in petscsynchronizedfprintf_()
[all …]
H A Dzmpiuopenf.c17 char *c1, *c2; in petscfopen_() local
19 FIXCHAR(fname, len1, c1); in petscfopen_()
21 *ierr = PetscFOpen(MPI_Comm_f2c(*(MPI_Fint *)&*comm), c1, c2, file); in petscfopen_()
23 FREECHAR(fname, c1); in petscfopen_()
/petsc/src/sys/classes/viewer/impls/ascii/ftn-custom/
H A Dzfilevf.c31 char *c1, *tmp; in petscviewerasciiprintf_() local
35 FIXCHAR(str, len1, c1); in petscviewerasciiprintf_()
36 *ierr = PetscFixSlashN(c1, &tmp); in petscviewerasciiprintf_()
38 FREECHAR(str, c1); in petscviewerasciiprintf_()
46 char *c1, *tmp; in petscviewerasciisynchronizedprintf_() local
50 FIXCHAR(str, len1, c1); in petscviewerasciisynchronizedprintf_()
51 *ierr = PetscFixSlashN(c1, &tmp); in petscviewerasciisynchronizedprintf_()
53 FREECHAR(str, c1); in petscviewerasciisynchronizedprintf_()
/petsc/src/sys/classes/bag/ftn-custom/
H A Dzbagf.c12 char *c1, *c2; in petscbagregisterenumprivate_() local
14 FIXCHAR(name, len1, c1); in petscbagregisterenumprivate_()
16 *ierr = PetscBagRegisterEnum(*bag, addr, list, *def, c1, c2); in petscbagregisterenumprivate_()
18 FREECHAR(name, c1); in petscbagregisterenumprivate_()
/petsc/src/sys/info/ftn-custom/
H A Dzverboseinfof.c28 char *c1, *tmp; in petscinfo_() local
30 FIXCHAR(text, len1, c1); in petscinfo_()
31 *ierr = PetscFixSlashN(c1, &tmp); in petscinfo_()
33 FREECHAR(text, c1); in petscinfo_()
/petsc/src/sys/ftn-custom/
H A Dzsys.c52 char *c1; in chkmemfortran_() local
54 FIXCHARNOMALLOC(file, len, c1); in chkmemfortran_()
55 *ierr = PetscMallocValidate(*line, "Userfunction", c1); in chkmemfortran_()
/petsc/src/sys/objects/
H A Dfinit.c49 MPI_Fint c1 = 0, c2 = 0; in PetscInitializeFortran() local
51 if (PETSC_COMM_WORLD) c1 = MPI_Comm_c2f(PETSC_COMM_WORLD); in PetscInitializeFortran()
54 petscsetcomm_(&c1, &c2); in PetscInitializeFortran()
/petsc/src/sys/classes/draw/interface/
H A Ddtri.c24 … x1, PetscReal y_1, PetscReal x2, PetscReal y2, PetscReal x3, PetscReal y3, int c1, int c2, int c3) in PetscDrawTriangle() argument
28 PetscUseTypeMethod(draw, triangle, x1, y_1, x2, y2, x3, y3, c1, c2, c3); in PetscDrawTriangle()
221 int c1, c2, c3, c4, i, j; in PetscDrawTensorContourPatch() local
231 c1 = PetscDrawRealToColor(v[i + j * m], min, max); in PetscDrawTensorContourPatch()
242 PetscCall(PetscDrawTriangle(draw, x1, y_1, x2, y2, x3, y3, c1, c2, c3)); in PetscDrawTensorContourPatch()
243 PetscCall(PetscDrawTriangle(draw, x1, y_1, x3, y3, x4, y4, c1, c3, c4)); in PetscDrawTensorContourPatch()
H A Ddrect.c124 …etscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int c1, int c2, int c3, int… in PetscDrawRectangle() argument
128 PetscUseTypeMethod(draw, rectangle, xl, yl, xr, yr, c1, c2, c3, c4); in PetscDrawRectangle()
/petsc/src/sys/objects/ftn-custom/
H A Dzoptionsf.c311 char *c1, *c2; in petscoptionsgetenumprivate_() local
314 FIXCHAR(pre, len1, c1); in petscoptionsgetenumprivate_()
316 *ierr = PetscOptionsGetEnum(*opt, c1, c2, list, ivalue, &flag); in petscoptionsgetenumprivate_()
319 FREECHAR(pre, c1); in petscoptionsgetenumprivate_()
325 char *c1, *c2, *c3; in petscoptionsgetstring_() local
329 FIXCHAR(pre, len1, c1); in petscoptionsgetstring_()
334 *ierr = PetscOptionsGetString(*options, c1, c2, c3, len3, &flag); in petscoptionsgetstring_()
337 FREECHAR(pre, c1); in petscoptionsgetstring_()
/petsc/src/sys/classes/draw/tests/
H A Dex7.c17 int c1 = (c0 + c2) / 2; in main() local
83 PetscCall(PetscDrawTriangle(draw, 0 + 1, 0 + 1, w - 1, 0 + 1, w - 1, h - 1, c0, c1, c2)); in main()
84 PetscCall(PetscDrawTriangle(draw, 0 + 1, 0 + 1, 0 + 1, h - 1, w - 1, h - 1, c0, c1, c2)); in main()
86 PetscCall(PetscDrawTriangle(draw, w / 4, h / 4, w / 2, 3 * h / 4, 3 * w / 4, h / 2, c2, c1, c0)); in main()
/petsc/src/sys/classes/draw/impls/win32/
H A Dwin32draw.c157 static PetscErrorCode AverageColorRectangle_Win32(PetscDraw draw, int c1, int c2, int c3, int c4) in AverageColorRectangle_Win32() argument
162 …= RGB((RedMap[c1] + RedMap[c2] + RedMap[c3] + RedMap[c4]) / 4, (GreenMap[c1] + GreenMap[c2] + Gree… in AverageColorRectangle_Win32()
166 static PetscErrorCode AverageColorTriangle_Win32(PetscDraw draw, int c1, int c2, int c3) in AverageColorTriangle_Win32() argument
171 …rrentcolor = RGB((RedMap[c1] + RedMap[c2] + RedMap[c3]) / 3, (GreenMap[c1] + GreenMap[c2] + Gre… in AverageColorTriangle_Win32()
175 …etscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int c1, int c2, int c3, int… in PetscDrawRectangle_Win32() argument
189 if (c1 == c2 && c2 == c3 && c3 == c4) TranslateColor_Win32(draw, c1); in PetscDrawRectangle_Win32()
190 else AverageColorRectangle_Win32(draw, c1, c2, c3, c4); in PetscDrawRectangle_Win32()
470 …x1, PetscReal yone, PetscReal x2, PetscReal y2, PetscReal x3, PetscReal y3, int c1, int c2, int c3) in PetscDrawTriangle_Win32() argument
479 AverageColorTriangle_Win32(draw, c1, c2, c3); in PetscDrawTriangle_Win32()
/petsc/include/
H A Dpetscbt.h91 const PetscByte c1 = 0x55; in PetscBTCountSet() local
95 byte -= (byte >> 1) & c1; in PetscBTCountSet()
/petsc/src/sys/classes/draw/impls/tikz/
H A Dtikz.c96 …etscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int c1, int c2, int c3, int… in PetscDrawRectangle_TikZ() argument
102 …[bottom color=%s,top color=%s] (%g,%g) rectangle (%g,%g);\n", TikZColorMap(c1), TikZColorMap(c4), … in PetscDrawRectangle_TikZ()
106 …l x1, PetscReal y1, PetscReal x2, PetscReal y2, PetscReal x3, PetscReal y3, int c1, int c2, int c3) in PetscDrawTriangle_TikZ() argument
112 …\\fill [color=%s] (%g,%g) -- (%g,%g) -- (%g,%g) -- cycle;\n", TikZColorMap(c1), XTRANS(draw, x1), … in PetscDrawTriangle_TikZ()
/petsc/src/snes/impls/ntrdc/
H A Dntrdc.c305 …PetscReal auk, gfnorm, ycnorm, c0, c1, c2, tau, tau_pos, tau_neg, gTBg; /*… in SNESSolve_NEWTONTRDC() local
432 PetscCall(VecDotRealPart(YCtmp, YNtmp, &c1)); in SNESSolve_NEWTONTRDC()
433 c1 = 2.0 * c1; in SNESSolve_NEWTONTRDC()
436 … tau_pos = (c1 + PetscSqrtReal(PetscSqr(c1) - 4. * c0 * c2)) / (2. * c0); /* quadratic formula */ in SNESSolve_NEWTONTRDC()
437 tau_neg = (c1 - PetscSqrtReal(PetscSqr(c1) - 4. * c0 * c2)) / (2. * c0); in SNESSolve_NEWTONTRDC()
/petsc/src/dm/impls/da/
H A Ddageometry.c44 PetscInt dim, M, N, P, c0, c1; in DMGetLocalBoundingBox_DA() local
80 c1 = (xe - 2 - Xs + 1); in DMGetLocalBoundingBox_DA()
84 c1 = (xe - 2 - Xs + 1) + (ye - 2 - Ys + 1) * (Xe - Xs); in DMGetLocalBoundingBox_DA()
88 …c1 = (xe - 2 - Xs + 1) + (ye - 2 - Ys + 1) * (Xe - Xs) + (ze - 2 - Zs + 1) * (Xe - Xs) * (Ye - Ys); in DMGetLocalBoundingBox_DA()
95 lmax[d] = PetscRealPart(coor[c1 * dim + d]); in DMGetLocalBoundingBox_DA()
/petsc/src/sys/classes/draw/impls/null/
H A Ddrawnull.c48 …etscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int c1, int c2, int c3, int… in PetscDrawRectangle_Null() argument
60 … X1, PetscReal Y_1, PetscReal X2, PetscReal Y2, PetscReal X3, PetscReal Y3, int c1, int c2, int c3) in PetscDrawTriangle_Null() argument
/petsc/src/sys/classes/draw/impls/image/
H A Ddrawimage.c162 …etscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int c1, int c2, int c3, int… in PetscDrawRectangle_Image() argument
167 PetscDrawValidColor(c1); in PetscDrawRectangle_Image()
174 int c = (c1 + c2 + c3 + c4) / 4; in PetscDrawRectangle_Image()
197 … PetscReal Y_1, PetscReal X_2, PetscReal Y_2, PetscReal X_3, PetscReal Y_3, int c1, int c2, int c3) in PetscDrawTriangle_Image() argument
202 PetscDrawValidColor(c1); in PetscDrawTriangle_Image()
208 PetscImageDrawTriangle(img, x_1, y_1, c1, x_2, y_2, c2, x_3, y_3, c3); in PetscDrawTriangle_Image()
/petsc/src/sys/ftn-mod/
H A Dpetscsysmod.F90641 MPIU_Comm c1, c2
643 PETSC_COMM_WORLD = c1
651 MPIU_Comm c1
653 c1 = PETSC_COMM_WORLD
/petsc/src/snes/impls/al/
H A Dal.c408 PetscReal a0, b0, b1, c0, c1, c2; in SNESSolve_NEWTONAL() local
424 c1 = 2 * PetscRealPart(coefs1[1]); in SNESSolve_NEWTONAL()
428 bs = 2 * (b1 * b0 - 2 * a0 * c1); in SNESSolve_NEWTONAL()
445 PetscQuadraticRoots(a0, b0 + b1, c0 + c1 + c2, &dlambda1, &dlambda2); in SNESSolve_NEWTONAL()
/petsc/src/tao/leastsquares/impls/pounders/
H A Dpounders.h51 PetscReal c1; /* Factor for checking validity */ member
/petsc/src/ts/tutorials/power_grid/
H A Dex8.c285 PetscScalar c1, c3, c5, c1pos, c1neg, c3pos, c3neg; in IJacobian() local
301 c1 = (yi - user->ws) / user->dx; in IJacobian()
302 c1pos = PetscMax(c1, 0); in IJacobian()
303 c1neg = PetscMin(c1, 0); in IJacobian()
H A Dex7.c309 PetscScalar c1, c3, c5, c1pos, c1neg, c3pos, c3neg; in IJacobian() local
325 c1 = (yi - user->ws) / user->dx; in IJacobian()
326 c1pos = PetscMax(c1, 0); in IJacobian()
327 c1neg = PetscMin(c1, 0); in IJacobian()
/petsc/src/sys/classes/draw/impls/x/
H A Dxops.c131 …etscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int c1, int c2, int c3, int… in PetscDrawRectangle_X() argument
134 int x, y, w, h, c = (c1 + c2 + c3 + c4) / 4; in PetscDrawRectangle_X()
167 … X1, PetscReal Y_1, PetscReal X2, PetscReal Y2, PetscReal X3, PetscReal Y3, int c1, int c2, int c3) in PetscDrawTriangle_X() argument
172 if (c1 == c2 && c2 == c3) { in PetscDrawTriangle_X()
174 PetscDrawXiSetColor(XiWin, c1); in PetscDrawTriangle_X()
190 PetscCall(PetscDrawInterpolatedTriangle_X(XiWin, x1, y_1, c1, x2, y2, c2, x3, y3, c3)); in PetscDrawTriangle_X()

12