| /petsc/src/benchmarks/ |
| H A D | Index.c | 19 PetscLogDouble t1, t2; in test1() local
54 PetscCall(PetscTime(&t2)); in test1()
55 fprintf(stdout, "%-27s : %e sec\n", "x[i] = y[i]", (t2 - t1) / 2000.0); in test1()
66 PetscCall(PetscTime(&t2)); in test1()
67 fprintf(stdout, "%-27s : %e sec\n", "x[i] = y[idx[i]] - unroll 4", (t2 - t1) / 2000.0); in test1()
73 PetscCall(PetscTime(&t2)); in test1()
74 fprintf(stdout, "%-27s : %e sec\n", "x[i] = y[idx[i]]", (t2 - t1) / 2000.0); in test1()
83 PetscCall(PetscTime(&t2)); in test1()
84 fprintf(stdout, "%-27s : %e sec\n", "x[i] = y[idx[i]] - unroll 2", (t2 - t1) / 2000.0); in test1()
90 PetscCall(PetscTime(&t2)); in test1()
[all …]
|
| H A D | PetscVecNorm.c | 8 PetscLogDouble t1, t2; in main() local
31 PetscCall(PetscTime(&t2)); in main()
33 fprintf(stdout, " Time %g\n", t2 - t1); in main()
|
| /petsc/src/binding/petsc4py/demo/legacy/taosolve/ |
| H A D | rosenbrock.py | 39 t2 = 1 - x[2*i];
40 ff += alpha*t1*t1 + t2*t2;
50 t2 = 1 - x[2*i];
51 G[2*i] = -4*alpha*t1*x[2*i] - 2*t2;
62 t2 = 1 - x[2*i];
63 ff += alpha*t1*t1 + t2*t2;
64 G[2*i] = -4*alpha*t1*x[2*i] - 2*t2;
|
| /petsc/src/sys/utils/ |
| H A D | sorti.c | 19 #define SWAP2(a, b, c, d, t1, t2) \ argument
24 t2 = c; \
26 d = t2; \
28 #define SWAP3(a, b, c, d, e, f, t1, t2, t3) \ argument
33 t2 = c; \
35 d = t2; \
42 #define SWAP2Data(a, b, c, d, t1, t2, siz) \ argument
47 PetscCall(PetscMemcpy(t2, c, siz)); \
49 PetscCall(PetscMemcpy(d, t2, siz)); \
118 #define TwoWayPartition2(X, Y, pivot, t1, t2, lo, hi, l, r) \ argument
[all …]
|
| /petsc/src/sys/classes/bag/ftn-custom/ |
| H A D | zbagf90.c | 14 char *t1, *t2, *ct1; in petscbagregisterstring_() local
17 FIXCHAR(s2, l2, t2); in petscbagregisterstring_()
18 *ierr = PetscBagRegisterString(*bag, (void *)p, (PetscInt)pl, ct1, t1, t2); in petscbagregisterstring_()
22 FREECHAR(s2, t2); in petscbagregisterstring_()
|
| /petsc/src/snes/tutorials/ |
| H A D | ex75.c | 62 PetscScalar t1, t2, t3, t4, t5, t6, t7, t8, t9, t10; in SolKxSolution() local
107 t2 = kn * kn; in SolKxSolution()
108 t3 = t2 * t2; in SolKxSolution()
110 t6 = 0.4e1 * t4 * t2; in SolKxSolution()
114 t12 = 0.2e1 * t7 * t2; in SolKxSolution()
122 t2 = B - Rp; in SolKxSolution()
139 t65 = Rm * t2; in SolKxSolution()
163 …num1 = -0.4e1 * t1 * t2 * t4 * AA * t9 + ((0.2e1 * Rp * (-B * t13 + 0.3e1 * t15 * B - t19 - 0.2e1 … in SolKxSolution()
166 t2 = Rm * t1; in SolKxSolution()
174 t12 = t2 * t10 * AA; in SolKxSolution()
[all …]
|
| H A D | ex69.c | 206 PetscReal t1, t2, t3, t4, t5, t6, t7, t8, t9, t10; in SolKxSolution() local
260 t2 = km * km; in SolKxSolution()
262 t5 = pow(t2 + t3, 0.2e1); in SolKxSolution()
277 t2 = B - Rp; in SolKxSolution()
294 t65 = Rm * t2; in SolKxSolution()
318 …num1 = -0.4e1 * t1 * t2 * t4 * AA * t9 + ((0.2e1 * Rp * (0.3e1 * t13 * B - 0.2e1 * t16 - t19 - 0.2… in SolKxSolution()
321 t2 = Rm * t1; in SolKxSolution()
329 t12 = t2 * t10 * AA; in SolKxSolution()
377 t152 = t2 * t10 * BB; in SolKxSolution()
379 … ((t12 - 0.2e1 * t2 * t136 * BB) * t106 + (t12 + 0.2e1 * t2 * t142 * BB) * t115 + (-0.2e1 * t2 * t… in SolKxSolution()
[all …]
|
| /petsc/src/sys/utils/ftn-custom/ |
| H A D | zstrf.c | 11 char *t1, *t2; in petscstrncpy_() local
15 t2 = s2; in petscstrncpy_()
19 *ierr = PetscStrncpy(t1, t2, m); in petscstrncpy_()
|
| /petsc/src/sys/classes/draw/impls/x/ |
| H A D | xtone.c | 10 …dTriangle_X(PetscDraw_X *win, int x1, int y_1, int t1, int x2, int y2, int t2, int x3, int y3, int… in PetscDrawInterpolatedTriangle_X() argument
27 t2 = t2 << SHIFT_VAL; in PetscDrawInterpolatedTriangle_X()
40 SWAP(t1, t2); in PetscDrawInterpolatedTriangle_X()
50 SWAP(t2, t3); in PetscDrawInterpolatedTriangle_X()
60 t2_t1 = t2 - t1; in PetscDrawInterpolatedTriangle_X()
107 t3_t2 = t3 - t2; in PetscDrawInterpolatedTriangle_X()
118 lc = (int)(lfrac * ((PetscReal)t3_t2) + (PetscReal)t2); in PetscDrawInterpolatedTriangle_X()
|
| /petsc/src/sys/classes/viewer/impls/draw/ftn-custom/ |
| H A D | zdrawvf.c | 24 char *t1, *t2, *t3; in petscviewermonitorlgsetup_() local
27 FIXCHAR(label, len2, t2); in petscviewermonitorlgsetup_()
29 *ierr = PetscViewerMonitorLGSetUp(*v, t1, t2, t3, l, names, *x, *y, *m, *n); in petscviewermonitorlgsetup_()
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex10.c | 203 PetscReal t2[20] = {-1.0, -1.0, -1.0, -1.0, -1.0, -1.0, -1.0, -1.0, 0.0, 0.0, 0.0, 0.0, 1.0, 1.0,… variable
372 …j]) * (1.0 + s2[i] * rst[1][j]) * (1.0 + t2[i] * rst[2][j]) * (-2.0 + r2[i] * rst[0][j] + s2[i] * … in paulsetup20()
373 …2[i] * (1 + s2[i] * rst[1][j]) * (1 + t2[i] * rst[2][j]) * (-1.0 + 2.0 * r2[i] * rst[0][j] + s2[i]… in paulsetup20()
374 …2[i] * (1 + r2[i] * rst[0][j]) * (1 + t2[i] * rst[2][j]) * (-1.0 + r2[i] * rst[0][j] + 2.0 * s2[i]… in paulsetup20()
375 …_N[2][i][j] = c * t2[i] * (1 + r2[i] * rst[0][j]) * (1 + s2[i] * rst[1][j]) * (-1.0 + r2[i] * rst[… in paulsetup20()
377 … = .25 * (1.0 - rst[0][j] * rst[0][j]) * (1.0 + s2[i] * rst[1][j]) * (1.0 + t2[i] * rst[2][j]); in paulsetup20()
378 part_N[0][i][j] = -.5 * rst[0][j] * (1 + s2[i] * rst[1][j]) * (1 + t2[i] * rst[2][j]); in paulsetup20()
379 part_N[1][i][j] = .25 * s2[i] * (1 + t2[i] * rst[2][j]) * (1.0 - rst[0][j] * rst[0][j]); in paulsetup20()
380 part_N[2][i][j] = .25 * t2[i] * (1.0 - rst[0][j] * rst[0][j]) * (1 + s2[i] * rst[1][j]); in paulsetup20()
382 … = .25 * (1.0 - rst[1][j] * rst[1][j]) * (1.0 + r2[i] * rst[0][j]) * (1.0 + t2[i] * rst[2][j]); in paulsetup20()
[all …]
|
| /petsc/lib/petsc/bin/maint/generators/ |
| H A D | java.py | 132 t2 = 'a2'
137 t2 = t2 +', (*a0)->GetStringUTFChars(a0, a'+str(cnt)+',0)'
139 t2 = t2 +', a'+str(cnt)
144 …, A-Za-z]*)\)','JNIEXPORT void JNICALL Java_'+i+'\\1'+j+' (JNIEnv *a0'+t1+') {'+i+j+'('+t2+');}',w)
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | rosenbrock1f.F90 | 39 PetscReal ff, t1, t2
57 t2 = 1.0 - x_v(1 + 2*i)
58 ff = ff + alpha*t1*t1 + t2*t2
59 g_v(1 + 2*i) = -4*alpha*t1*x_v(1 + 2*i) - 2.0*t2
|
| H A D | rosenbrock1.c | 141 PetscReal ff = 0, t1, t2, alpha = user->alpha; in FormFunctionGradient() local
162 t2 = 1 - x[2 * i]; in FormFunctionGradient()
163 ff += alpha * t1 * t1 + t2 * t2; in FormFunctionGradient()
164 g[2 * i] = -4 * alpha * t1 * x[2 * i] - 2.0 * t2; in FormFunctionGradient()
|
| H A D | rosenbrock2.c | 132 PetscReal ff = 0, t1, t2, alpha = user->alpha; in FormFunctionGradient() local
153 t2 = 1 - x[2 * i]; in FormFunctionGradient()
154 ff += alpha * t1 * t1 + t2 * t2; in FormFunctionGradient()
155 g[2 * i] = -4 * alpha * t1 * x[2 * i] - 2.0 * t2; in FormFunctionGradient()
|
| H A D | rosenbrock3.c | 137 PetscReal ff = 0, t1, t2, alpha = user->alpha; in FormFunctionGradient() local
158 t2 = 1 - x[2 * i]; in FormFunctionGradient()
159 ff += alpha * t1 * t1 + t2 * t2; in FormFunctionGradient()
160 g[2 * i] = -4 * alpha * t1 * x[2 * i] - 2.0 * t2; in FormFunctionGradient()
|
| /petsc/src/tao/util/ |
| H A D | tao_util.c | 250 const PetscScalar *x, *f, *l, *u, *t2; in MatDFischer() local
263 PetscCall(VecGetArrayRead(T2, &t2)); in MatDFischer()
284 PetscCall(VecRestoreArrayRead(T2, &t2)); in MatDFischer()
286 PetscCall(VecGetArrayRead(T2, &t2)); in MatDFischer()
294 ai = fischnorm(1.0, PetscRealPart(t2[i])); in MatDFischer()
297 db[i] = -t2[i] / ai - 1.0; in MatDFischer()
308 ai = fischnorm(1.0, PetscRealPart(t2[i])); in MatDFischer()
311 db[i] = t2[i] / ai - 1.0; in MatDFischer()
325 ai = fischnorm(1.0, PetscRealPart(t2[i])); in MatDFischer()
328 di = PetscRealPart(t2[i]) / ai + 1.0; in MatDFischer()
[all …]
|
| /petsc/src/benchmarks/streams/ |
| H A D | BasicVersion.c | 147 double t1, t2, timesfound[M]; in checktick() local
153 while (((t2 = second()) - t1) < 1.0E-6); in checktick()
154 timesfound[i] = t1 = t2; in checktick()
|
| /petsc/src/snes/impls/tr/ |
| H A D | tr.c | 752 else if (rho > neP->eta3 && on_boundary) delta *= neP->t2; /* expand the region */ in SNESSolve_NEWTONTR()
851 …PetscOptionsReal("-snes_tr_t2", "t2", "SNESNewtonTRSetUpdateParameters", ctx->t2, &ctx->t2, NULL)); in SNESSetFromOptions_NEWTONTR()
883 PetscCall(PetscViewerASCIIPrintf(viewer, " t1=%g, t2=%g\n", (double)tr->t1, (double)tr->t2)); in SNESView_NEWTONTR()
1021 …teParameters(SNES snes, PetscReal eta1, PetscReal eta2, PetscReal eta3, PetscReal t1, PetscReal t2) in SNESNewtonTRSetUpdateParameters() argument
1031 PetscValidLogicalCollectiveReal(snes, t2, 6); in SNESNewtonTRSetUpdateParameters()
1040 if (t2 == PETSC_DETERMINE) t2 = tr->default_t2; in SNESNewtonTRSetUpdateParameters()
1045 if (t2 != PETSC_CURRENT) tr->t2 = t2; in SNESNewtonTRSetUpdateParameters()
1069 …ameters(SNES snes, PetscReal *eta1, PetscReal *eta2, PetscReal *eta3, PetscReal *t1, PetscReal *t2) in SNESNewtonTRGetUpdateParameters() argument
1080 if (t2) PetscAssertPointer(t2, 6); in SNESNewtonTRGetUpdateParameters()
1088 if (t2) *t2 = tr->t2; in SNESNewtonTRGetUpdateParameters()
[all …]
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex43-solcx.h | 12 …PetscReal t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t2… in evaluate_solCx() local
74 t2 = PetscSinReal(t1); in evaluate_solCx()
75 t3 = nx * t2; in evaluate_solCx()
117 t64 = t25 * t2; in evaluate_solCx()
120 t74 = t72 * t2 * t5; in evaluate_solCx()
128 t89 = xc * t2; in evaluate_solCx()
138 t106 = t2 * ZB; in evaluate_solCx()
149 t142 = t72 * t2; in evaluate_solCx()
150 …0.2e1 * t26 * t2 * t16 * t29 - 0.8e1 * t38 * t39 * t41 + 0.4e1 * t47 * t48 * t49 - 0.8e1 * t56 * t… in evaluate_solCx()
151 t149 = ZA * t25 * t2; in evaluate_solCx()
[all …]
|
| H A D | ex61f.F90 | 90 integer :: t1, t2, count_rate
255 call system_clock(t2, count_rate)
256 ttime = real(t2 - t1)/real(count_rate)
|
| /petsc/src/tao/complementarity/impls/asls/ |
| H A D | asils.c | 53 PetscCall(VecDuplicate(tao->solution, &asls->t2)); in TaoSetUp_ASILS()
78 …cobian, tao->solution, tao->constraints, tao->XL, tao->XU, asls->t1, asls->t2, asls->da, asls->db)… in Tao_ASLS_FunctionGradient()
97 PetscCall(VecDestroy(&ssls->t2)); in TaoDestroy_ASILS()
170 PetscCall(VecSet(asls->t2, asls->identifier)); in TaoSolve_ASILS()
174 PetscCall(VecWhichBetweenOrEqual(asls->t1, asls->db, asls->t2, &asls->fixed)); in TaoSolve_ASILS()
300 asls->t2 = NULL; in TaoCreate_ASILS()
|
| H A D | asfls.c | 53 PetscCall(VecDuplicate(tao->solution, &asls->t2)); in TaoSetUp_ASFLS()
78 …cobian, tao->solution, tao->constraints, tao->XL, tao->XU, asls->t1, asls->t2, asls->da, asls->db)… in Tao_ASLS_FunctionGradient()
97 PetscCall(VecDestroy(&ssls->t2)); in TaoDestroy_ASFLS()
173 PetscCall(VecSet(asls->t2, asls->identifier)); in TaoSolve_ASFLS()
177 PetscCall(VecWhichBetweenOrEqual(asls->t1, asls->db, asls->t2, &asls->fixed)); in TaoSolve_ASFLS()
305 asls->t2 = NULL; in TaoCreate_ASFLS()
|
| /petsc/src/binding/petsc4py/demo/legacy/perftest/ |
| H A D | driver.c | 54 double t1,t2; in RunTest() local
94 PetscCall(PetscTime(&t2)); in RunTest()
95 *wt = PetscMin(*wt,t2-t1); in RunTest()
|
| /petsc/src/tao/leastsquares/tutorials/matlab/more_wild_probs/ |
| H A D | dfovec.m | 185 t2 = 2*x(j) - 1; variable
186 t = 2*t2;
188 fvec(i) = fvec(i) + t2;
189 th = t*t2 - t1;
190 t1 = t2;
191 t2 = th; variable
|