Home
last modified time | relevance | path

Searched refs:cnt (Results 1 – 25 of 114) sorted by relevance

12345

/petsc/src/ksp/ksp/tutorials/ !
H A Dex89f.F9011 PetscInt i, n, nz, cnt
48 cnt = 1
50 colind(cnt) = i - 1
51 a(cnt) = -1
52 cnt = cnt + 1
53 colind(cnt) = i
54 a(cnt) = 2
55 cnt = cnt + 1
56 colind(cnt) = i + 1
57 a(cnt) = -1
[all …]
/petsc/lib/petsc/bin/maint/generators/ !
H A Djava.py47 cnt = 0
50 cnt = cnt + 1
51 if not cnt == len(enums[i]): outfile.write(",")
78 cnt = 0
80 if cnt > 0:
83 outfile.write(","+k+" a"+str(cnt))
84 cnt = cnt + 1
94 cnt = 0
97 if cnt > 0:
98 outfile.write(k+" a"+str(cnt))
[all …]
H A Dc++.py48 cnt = 0
51 cnt = cnt + 1
52 if not cnt == len(enums[i]): outfile.write(",")
87 cnt = 0
89 if cnt > 0 or not k == i:
91 if cnt < len(classes[i][j])-1: outfile.write(",")
92 cnt = cnt + 1
97 cnt = 0
99 if cnt > 0 or not k == i:
101 if cnt < len(classes[i][j])-1: outfile.write(",")
[all …]
H A Dd.py41 cnt = 0
44 cnt = cnt + 1
45 if not cnt == len(enums[i]): outfile.write(",")
63 cnt = 0
65 if cnt > 0:
67 if cnt < len(classes[i][j])-1: outfile.write(",")
68 cnt = cnt + 1
/petsc/src/sys/classes/viewer/impls/socket/mex-scripts/ !
H A Dsread.c19 int fd, cnt, dt; in mexFunction() local
26 cnt = (int)mxGetScalar(prhs[1]); in mexFunction()
30 plhs[0] = mxCreateDoubleMatrix(1, cnt, mxREAL); in mexFunction()
31 ierr = PetscBinaryRead(fd, mxGetPr(plhs[0]), cnt, NULL, (PetscDataType)dt); in mexFunction()
34 plhs[0] = mxCreateNumericMatrix(1, cnt, mxINT32_CLASS, mxREAL); in mexFunction()
35 ierr = PetscBinaryRead(fd, mxGetPr(plhs[0]), cnt, NULL, (PetscDataType)dt); in mexFunction()
38 char *tmp = (char *)mxMalloc(cnt * sizeof(char)); in mexFunction()
39 ierr = PetscBinaryRead(fd, tmp, cnt, NULL, (PetscDataType)dt); in mexFunction()
41 plhs[0] = mxCreateStringFromNChars(tmp, cnt); in mexFunction()
H A Dswrite.c19 int i, fd, cnt, dt; in mexFunction() local
25 cnt = (int)mxGetNumberOfElements(prhs[1]); in mexFunction()
29 ierr = PetscBinaryWrite(fd, mxGetPr(prhs[1]), cnt, (PetscDataType)dt); in mexFunction()
32 int *tmp = (int *)mxMalloc((cnt + 5) * sizeof(int)); in mexFunction()
34 for (i = 0; i < cnt; i++) tmp[i] = (int)t[i]; in mexFunction()
35 ierr = PetscBinaryWrite(fd, tmp, cnt, (PetscDataType)dt); in mexFunction()
39 char *tmp = (char *)mxMalloc((cnt + 5) * sizeof(char)); in mexFunction()
40 mxGetNChars(prhs[1], tmp, cnt + 1); in mexFunction()
41 ierr = PetscBinaryWrite(fd, tmp, cnt, (PetscDataType)dt); in mexFunction()
/petsc/src/ksp/pc/impls/wb/ !
H A Dwb.c20 …PetscInt mwidth, nwidth, pwidth, cnt, mp, np, pp, Ntotal, gl[26], *globals, Ng, *IIi… in DMDAGetWireBasketInterpolation() local
74 cnt = 0; in DMDAGetWireBasketInterpolation()
76 xsurf[cnt++] = 1; in DMDAGetWireBasketInterpolation()
77 for (i = 1; i < m - istart - 1; i++) xsurf[cnt++ + Nsurf] = 1; in DMDAGetWireBasketInterpolation()
78 xsurf[cnt++ + 2 * Nsurf] = 1; in DMDAGetWireBasketInterpolation()
81 xsurf[cnt++ + 3 * Nsurf] = 1; in DMDAGetWireBasketInterpolation()
82 for (i = 1; i < m - istart - 1; i++) xsurf[cnt++ + 4 * Nsurf] = 1; in DMDAGetWireBasketInterpolation()
83 xsurf[cnt++ + 5 * Nsurf] = 1; in DMDAGetWireBasketInterpolation()
86 xsurf[cnt++ + 6 * Nsurf] = 1; in DMDAGetWireBasketInterpolation()
87 for (i = 1; i < m - istart - 1; i++) xsurf[cnt++ + 7 * Nsurf] = 1; in DMDAGetWireBasketInterpolation()
[all …]
/petsc/src/mat/tests/ !
H A Dex178.c10 PetscInt i, j, rows[2], *parts, cnt, N = 21, nblocks, *blocksizes; in main() local
57 cnt = 0; in main()
61 parts[i] = PetscMin(parts[i], N - cnt); in main()
62 cnt += parts[i]; in main()
64 parts[size - 1] = N - cnt; in main()
69 cnt = 0; in main()
74 blocksizes[i] = PetscMin(blocksizes[i], N - cnt); in main()
75 cnt += blocksizes[i]; in main()
76 if (cnt == N) { in main()
81 if (cnt < N) blocksizes[nblocks - 1] = N - cnt; in main()
[all …]
H A Dex204.c19 PetscInt n = 17, m = 31, nz = 5, i, cnt, j; in main() local
26 for (cnt = 0; cnt < nz; ++cnt) { in main()
27 j = (19 * cnt + (7 * i + 3)) % n; in main()
49 PetscInt n = 17, m = 31, nz = 5, i, cnt, j; in main() local
58 for (cnt = 0; cnt < nz; ++cnt) { in main()
59 j = (19 * cnt + (7 * i + 3)) % n; in main()
102 PetscInt n = 17, m = 31, nz = 5, i, cnt, j; in main() local
111 for (cnt = 0; cnt < nz; ++cnt) { in main()
112 j = (19 * cnt + (7 * i + 3)) % n; in main()
154 PetscInt N = 17, M = 31, nz = 5, i, cnt, j, rlow, rhigh; in main() local
[all …]
H A Dex65.c8 PetscInt m = 100, n = 11, js[11], i, j, cnt; in main() local
19 cnt = 0; in main()
21 for (j = 0; j < n; j += 2) js[cnt++] = j; in main()
23 PetscCall(MatSetValues(A, 1, &i, cnt, js, values, INSERT_VALUES)); in main()
/petsc/lib/petsc/bin/ !
H A Dgeneratefortranbindings.py83 cnt = 0
85 if cnt > 0: fd.write(', ')
87 cnt = cnt + 1
89 cnt = 0
91 if cnt > 0: fd.write(', ')
97 cnt = cnt + 1
119 cnt = 0
123 if cnt: fd.write(',')
139 cnt = cnt + 1
140 if cnt: fd.write(', ')
[all …]
H A DPetscBinaryIOTrajectory.py19 cnt = 0
22 fh = open(os.path.join(directory,'SA-%06d.bin'%cnt));
23 cnt = cnt + 1
/petsc/src/dm/tutorials/ !
H A Dswarm_ex1.c210 PetscInt npoints, i, j, cnt; in ex1_3() local
221 cnt = 0; in ex1_3()
227 array_x[4 * cnt + 0] = xp - 0.05; in ex1_3()
228 if (array_x[4 * cnt + 0] < -1.0) array_x[4 * cnt + 0] = -1.0 + 1.0e-12; in ex1_3()
229 array_x[4 * cnt + 1] = xp + 0.05; in ex1_3()
230 if (array_x[4 * cnt + 1] > 1.0) array_x[4 * cnt + 1] = 1.0 - 1.0e-12; in ex1_3()
231 array_x[4 * cnt + 2] = xp - 0.05; in ex1_3()
232 if (array_x[4 * cnt + 2] < -1.0) array_x[4 * cnt + 2] = -1.0 + 1.0e-12; in ex1_3()
233 array_x[4 * cnt + 3] = xp + 0.05; in ex1_3()
234 if (array_x[4 * cnt + 3] > 1.0) array_x[4 * cnt + 3] = 1.0 - 1.0e-12; in ex1_3()
[all …]
H A Dex20.c97 PetscInt ii, jj, cnt; in pic_insert_DMPLEX_with_cell_list() local
110 cnt = 0; in pic_insert_DMPLEX_with_cell_list()
115 trivert[2 * cnt + 0] = 0.0 + ii * dx; in pic_insert_DMPLEX_with_cell_list()
116 trivert[2 * cnt + 1] = 0.0 + jj * dy; in pic_insert_DMPLEX_with_cell_list()
117 cnt++; in pic_insert_DMPLEX_with_cell_list()
122 cnt = 0; in pic_insert_DMPLEX_with_cell_list()
133 tricells[3 * cnt + 0] = idx0; in pic_insert_DMPLEX_with_cell_list()
134 tricells[3 * cnt + 1] = idx1; in pic_insert_DMPLEX_with_cell_list()
135 tricells[3 * cnt + 2] = idx2; in pic_insert_DMPLEX_with_cell_list()
136 cnt++; in pic_insert_DMPLEX_with_cell_list()
[all …]
/petsc/src/dm/impls/stag/ !
H A Dstag.c12 PetscInt f0, f1, f2, f3, dof0, dof1, dof2, dof3, n_entries, k, d, cnt, n_fields, dim; in DMCreateFieldDecomposition_Stag() local
97 cnt = 0; in DMCreateFieldDecomposition_Stag()
99 stencil1[cnt].loc = DMSTAG_DOWN; in DMCreateFieldDecomposition_Stag()
100 stencil1[cnt].c = d; in DMCreateFieldDecomposition_Stag()
101 ++cnt; in DMCreateFieldDecomposition_Stag()
104 stencil1[cnt].loc = DMSTAG_LEFT; in DMCreateFieldDecomposition_Stag()
105 stencil1[cnt].c = d; in DMCreateFieldDecomposition_Stag()
106 ++cnt; in DMCreateFieldDecomposition_Stag()
120 cnt = 0; in DMCreateFieldDecomposition_Stag()
122 stencil1[cnt].loc = DMSTAG_BACK_DOWN; in DMCreateFieldDecomposition_Stag()
[all …]
/petsc/src/dm/impls/da/ !
H A Dfdda.c68 PetscInt i, k, cnt = 1; in DMDASetBlockFills_Private2() local
78 if (dd->ofillcols[i]) dd->ofillcols[i] = cnt++; in DMDASetBlockFills_Private2()
824 …y, i, j, slot, gxs, gys, gnx, gny, m, n, dim, s, *cols = NULL, k, nc, *rows = NULL, col, cnt, l, p; in DMCreateMatrix_DA_2d_MPISELL() local
859 cnt = 0; in DMCreateMatrix_DA_2d_MPISELL()
864 cols[cnt++] = k + nc * (slot + gnx * l + p); in DMCreateMatrix_DA_2d_MPISELL()
870 PetscCall(MatPreallocateSetLocal(ltog, nc, rows, ltog, cnt, cols, dnz, onz)); in DMCreateMatrix_DA_2d_MPISELL()
897 cnt = 0; in DMCreateMatrix_DA_2d_MPISELL()
902 cols[cnt++] = k + nc * (slot + gnx * l + p); in DMCreateMatrix_DA_2d_MPISELL()
908 PetscCall(MatSetValuesLocal(J, nc, rows, cnt, cols, values, INSERT_VALUES)); in DMCreateMatrix_DA_2d_MPISELL()
926 …PetscInt m, n, dim, s, *cols = NULL, k, nc, *rows = NULL, col, cnt, l, p, *dnz = NUL… in DMCreateMatrix_DA_3d_MPISELL() local
[all …]
/petsc/src/sys/fileio/ !
H A Dmprint.c199 size_t cnt = 0, ncnt = 0, leng; in PetscVSNPrintf() local
202 for (cnt = 0; cnt < leng - 4; cnt++) { in PetscVSNPrintf()
203 if (str[cnt] == '[' && str[cnt + 1] == '|') { in PetscVSNPrintf()
205 cnt++; in PetscVSNPrintf()
206 cnt++; in PetscVSNPrintf()
208 for (; cnt < leng - 1; cnt++) { in PetscVSNPrintf()
209 if (str[cnt] == '|' && str[cnt + 1] == ']') { in PetscVSNPrintf()
210 cnt++; in PetscVSNPrintf()
215 if (str[cnt] == 'e' || str[cnt] == '.') foundedot = PETSC_TRUE; in PetscVSNPrintf()
216 str[ncnt++] = str[cnt]; in PetscVSNPrintf()
[all …]
H A Dsysio.c313 PetscInt cnt = num * ((type == PETSC_REAL) ? 1 : 2); in PetscBinaryRead() local
314 PetscCall(PetscMalloc1(cnt, &pdouble)); in PetscBinaryRead()
339 PetscInt i, cnt = num * ((type == PETSC_REAL) ? 1 : 2); in PetscBinaryRead() local
341 if (!PetscBinaryBigEndian()) PetscCall(PetscByteSwapDouble(pdouble, cnt)); in PetscBinaryRead()
342 for (i = 0; i < cnt; i++) preal[i] = pdouble[i]; in PetscBinaryRead()
642 PetscMPIInt cnt; in PetscBinarySynchronizedRead() local
644 PetscCall(PetscMPIIntCast(count ? ibuf[1] : num, &cnt)); in PetscBinarySynchronizedRead()
646 PetscCallMPI(MPI_Bcast(data, cnt, mtype, 0, comm)); in PetscBinarySynchronizedRead()
788 PetscErrorCode MPIU_File_write_all(MPI_File fd, void *data, PetscMPIInt cnt, MPI_Datatype dtype, MP… in MPIU_File_write_all() argument
794 if (!PetscBinaryBigEndian()) PetscCall(PetscByteSwap(data, pdtype, cnt)); in MPIU_File_write_all()
[all …]
/petsc/src/mat/tutorials/ !
H A Dex12.c18 PetscInt n, i, *cnt, *indices, nc; in PadMatrix() local
29 PetscCall(PetscMalloc1(n + 1, &cnt)); in PadMatrix()
32 cnt[i] = nc + (vv[i] != 0.0); in PadMatrix()
35 cnt[n] = 1; in PadMatrix()
36 for (i = 0; i < n; i++) cnt[n] += (vv[i] != 0.0); in PadMatrix()
37 PetscCall(MatCreateSeqAIJ(PETSC_COMM_SELF, n + 1, n + 1, 0, cnt, B)); in PadMatrix()
53 PetscCall(PetscFree(cnt)); in PadMatrix()
/petsc/src/dm/impls/swarm/ !
H A Dswarmpic_da.c9 PetscInt d, npoints = 0, cnt; in private_DMSwarmCreateCellLocalCoords_DA_Q1_Regular() local
30 cnt = 0; in private_DMSwarmCreateCellLocalCoords_DA_Q1_Regular()
32 xi[dim * cnt + 0] = -1.0 + 0.5 * ds[d] + ii * ds[0]; in private_DMSwarmCreateCellLocalCoords_DA_Q1_Regular()
33 cnt++; in private_DMSwarmCreateCellLocalCoords_DA_Q1_Regular()
38 cnt = 0; in private_DMSwarmCreateCellLocalCoords_DA_Q1_Regular()
41 xi[dim * cnt + 0] = -1.0 + 0.5 * ds[0] + ii * ds[0]; in private_DMSwarmCreateCellLocalCoords_DA_Q1_Regular()
42 xi[dim * cnt + 1] = -1.0 + 0.5 * ds[1] + jj * ds[1]; in private_DMSwarmCreateCellLocalCoords_DA_Q1_Regular()
43 cnt++; in private_DMSwarmCreateCellLocalCoords_DA_Q1_Regular()
49 cnt = 0; in private_DMSwarmCreateCellLocalCoords_DA_Q1_Regular()
53 xi[dim * cnt + 0] = -1.0 + 0.5 * ds[0] + ii * ds[0]; in private_DMSwarmCreateCellLocalCoords_DA_Q1_Regular()
[all …]
/petsc/src/sys/classes/draw/impls/x/ !
H A Dxtext.c75 int cnt, i, j; in PetscDrawXiInitFonts() local
80 names = XListFontsWithInfo(XBWin->disp, "?x??", NFONTS, &cnt, &info); in PetscDrawXiInitFonts()
82 for (i = 0; i < cnt; i++) { in PetscDrawXiInitFonts()
92 if (cnt > 0) XFreeFontInfo(names, info, cnt); in PetscDrawXiInitFonts()
97 names = XListFontsWithInfo(XBWin->disp, "?x", NFONTS, &cnt, &info); in PetscDrawXiInitFonts()
99 for (i = 0; i < cnt; i++) { in PetscDrawXiInitFonts()
114 XFreeFontInfo(names, info, cnt); in PetscDrawXiInitFonts()
/petsc/src/ts/trajectory/utils/ !
H A Dreconstruct.c54 PetscInt id, cnt, i, tshn; in TSTrajectoryReconstruct_Private() local
71 cnt = 0; in TSTrajectoryReconstruct_Private()
88 tj->lag.WW[cnt] = tj->lag.W[tid]; in TSTrajectoryReconstruct_Private()
89 tj->lag.TW[cnt] = t; in TSTrajectoryReconstruct_Private()
91 cnt++; in TSTrajectoryReconstruct_Private()
115 tj->lag.WW[cnt] = tj->lag.W[tid]; in TSTrajectoryReconstruct_Private()
116 tj->lag.TW[cnt] = t; in TSTrajectoryReconstruct_Private()
118 cnt++; in TSTrajectoryReconstruct_Private()
153 …cViewerASCIIPrintf(tj->monitor, "Interpolating solution with %" PetscInt_FMT " snapshots\n", cnt)); in TSTrajectoryReconstruct_Private()
154 LagrangeBasisVals(cnt, t, tj->lag.TW, tj->lag.L); in TSTrajectoryReconstruct_Private()
[all …]
/petsc/src/dm/impls/plex/ !
H A Dplexvtu.c459 PetscInt cnt; in DMPlexVTKWriteAll_VTU() local
460 for (c = cStart, cnt = 0; c < cEnd; c++) { in DMPlexVTKWriteAll_VTU()
473 y[cnt * 3 + 0] = (PetscVTUReal)PetscRealPart(x[off + 0]); in DMPlexVTKWriteAll_VTU()
474 … y[cnt * 3 + 1] = (PetscVTUReal)((dimEmbed > 1) ? PetscRealPart(x[off + 1]) : 0.0); in DMPlexVTKWriteAll_VTU()
475 y[cnt * 3 + 2] = (PetscVTUReal)0.0; in DMPlexVTKWriteAll_VTU()
477 y[cnt * 3 + 0] = (PetscVTUReal)PetscRealPart(x[off + 0]); in DMPlexVTKWriteAll_VTU()
478 y[cnt * 3 + 1] = (PetscVTUReal)PetscRealPart(x[off + 1]); in DMPlexVTKWriteAll_VTU()
479 y[cnt * 3 + 2] = (PetscVTUReal)PetscRealPart(x[off + 2]); in DMPlexVTKWriteAll_VTU()
481 cnt++; in DMPlexVTKWriteAll_VTU()
489 y[cnt * 3 + 0] = (PetscVTUReal)PetscRealPart(cx[off + i * dimEmbed + 0]); in DMPlexVTKWriteAll_VTU()
[all …]
/petsc/src/dm/impls/plex/tutorials/ !
H A Ddmplexgetrestoreclosureindices.F9018 PetscInt :: cdim, nIdx, idx, cnt, Nf
54 cnt = 0
56 cnt = cnt + count(idxMatrix(idx, 1) == idxMatrix(1:nIdx, cEnd))
58 PetscCheckA(cnt == sharedNodes*cdim, PETSC_COMM_WORLD, PETSC_ERR_PLIB, "Wrong DOF indices")
/petsc/src/sys/error/ !
H A Derrtrace.c196 static int cnt = 1; in PetscTraceBackErrorHandler() local
197 PetscBool python = (n == PETSC_ERR_PYTHON && cnt == 1) ? PETSC_TRUE : PETSC_FALSE; in PetscTraceBackErrorHandler()
203 if (cnt > 1) { in PetscTraceBackErrorHandler()
210 cnt = 1; in PetscTraceBackErrorHandler()
213 if (cnt == 1) { in PetscTraceBackErrorHandler()
242 …if (fun) (void)(*PetscErrorPrintf)("#%d %s() at %s:%d\n", cnt++, fun, PetscCIFilename(file), Petsc… in PetscTraceBackErrorHandler()
243 …else if (file) (void)(*PetscErrorPrintf)("#%d %s:%d\n", cnt++, PetscCIFilename(file), PetscCILinen… in PetscTraceBackErrorHandler()

12345