| /petsc/src/sys/ftn-custom/ |
| H A D | zutils.c | 48 size_t tmp1 = (size_t)base, tmp2 = 0; in PetscIntAddressToFortran() local
54 tmp2 = (tmp3 - tmp1) / sizeof(PetscInt); in PetscIntAddressToFortran()
55 itmp2 = (size_t)tmp2; in PetscIntAddressToFortran()
57 tmp2 = (tmp1 - tmp3) / sizeof(PetscInt); in PetscIntAddressToFortran()
58 itmp2 = -((size_t)tmp2); in PetscIntAddressToFortran()
62 tmp2 = (tmp3 - tmp1); in PetscIntAddressToFortran()
63 itmp2 = (size_t)tmp2; in PetscIntAddressToFortran()
65 tmp2 = (tmp1 - tmp3); in PetscIntAddressToFortran()
66 itmp2 = -((size_t)tmp2); in PetscIntAddressToFortran()
96 size_t tmp1 = (size_t)base, tmp2; in PetscScalarAddressToFortran() local
[all …]
|
| /petsc/src/sys/fileio/ |
| H A D | grpath.c | 46 char tmp1[PETSC_MAX_PATH_LEN], char tmp3[PETSC_MAX_PATH_LEN], tmp4[PETSC_MAX_PATH_LEN], *tmp2; in PetscGetRealPath() local
69 PetscCall(PetscStrchr(tmp1, '/', &tmp2)); in PetscGetRealPath()
71 PetscCall(PetscStrlen(tmp2, &len2)); in PetscGetRealPath()
87 PetscCall(PetscStrchr(tmp1, '/', &tmp2)); in PetscGetRealPath()
88 if (tmp2) { in PetscGetRealPath()
90 PetscCall(PetscStrlen(tmp2, &len2)); in PetscGetRealPath()
|
| /petsc/src/tao/leastsquares/tutorials/matlab/more_wild_probs/ |
| H A D | dfovec.m | 124 tmp2 = 16-i; variable
127 tmp3 = tmp2;
129 fvec(i) = y1(i) - (x(1) + tmp1/(x(2)*tmp2 + x(3)*tmp3));
134 tmp2 = v(i)*(v(i) + x(3)) + x(4); variable
135 fvec(i) = y2(i) - x(1)*tmp1/tmp2;
141 tmp2 = exp(tmp1); variable
142 fvec(i) = x(1)*tmp2 - y3(i);
179 tmp2 = x(3) + sin(temp)*x(4) - cos(temp); variable
180 fvec(i) = tmp1^2 + tmp2^2;
217 tmp2 = exp(-x(5)*temp); variable
[all …]
|
| H A D | g_dfovec_1d.m | 272 tmp2= 16- i; variable
273 g_tmp2= zeros(size(tmp2));
278 tmp3= tmp2;
284 g_tmp_dfovec_1d_00036= g_tmp_x_00029* tmp2+ tmp_x_00029* g_tmp2;
285 tmp_dfovec_1d_00036= tmp_x_00029* tmp2;
316 tmp2= tmp_dfovec_1d_00043+ tmp_x_00033; variable
321 tmp_dfovec_1d_00045= tmp_dfovec_1d_00044/ tmp2;
322 … g_tmp_dfovec_1d_00045= (tmp2' \ (g_tmp_dfovec_1d_00044' - g_tmp2' * tmp_dfovec_1d_00045' ))' ;
338 tmp2= exp(tmp1); variable
341 g_tmp_dfovec_1d_00047= g_tmp_x_00037* tmp2+ tmp_x_00037* g_tmp2;
[all …]
|
| /petsc/src/tao/tutorials/ |
| H A D | ex3.c | 47 Vec tmp2; member
269 PetscCall(VecDuplicate(user->data, &user->tmp2)); in CreateCtx()
285 PetscCall(VecDestroy(&user->tmp2)); in DestroyCtx()
314 PetscCall(MatMult(user->mass, user->tmp1, user->tmp2)); in ReducedFunctionGradient()
315 PetscCall(VecDot(user->tmp1, user->tmp2, &inner)); /* misfit contribution to */ in ReducedFunctionGradient()
318 …PetscCall(VecSetValues(user->tmp2, user->num_bc_dofs, user->bc_indices, user->bc_values, INSERT_VA… in ReducedFunctionGradient()
319 PetscCall(VecAssemblyBegin(user->tmp2)); in ReducedFunctionGradient()
320 PetscCall(VecAssemblyEnd(user->tmp2)); in ReducedFunctionGradient()
321 PetscCall(KSPSolve(user->ksp_laplace, user->tmp2, user->adjoint)); /* adjoint solve */ in ReducedFunctionGradient()
|
| /petsc/src/mat/impls/baij/mpi/ |
| H A D | baijov.c | 625 PetscInt **lens, is_no, ncols, *cols, mat_i, *mat_j, tmp2, jmax; local
1088 for (tmp2 = 0; tmp2 < nrqs; tmp2++) {
1089 sbuf1_i = sbuf1[pa[tmp2]];
1093 rbuf2_i = rbuf2[tmp2];
1094 rbuf3_i = rbuf3[tmp2];
1415 for (tmp2 = 0; tmp2 < nrqs; tmp2++) {
1416 sbuf1_i = sbuf1[pa[tmp2]];
1420 rbuf2_i = rbuf2[tmp2];
1421 rbuf3_i = rbuf3[tmp2];
1422 if (!ijonly) rbuf4_i = rbuf4[tmp2];
|
| /petsc/src/ksp/ksp/impls/ibcgs/ |
| H A D | ibcgs.c | 55 …PetscScalar sigman_2, sigman_1, sigman, pin_1, pin, phin_1, phin, tmp1, tmp2; in KSPSolve_IBCGS() local
177 tmp2 = alphan * deltan; in KSPSolve_IBCGS()
179 zn[i] = alphan * rn_1[i] + tmp1 * zn_1[i] - tmp2 * vn_1[i]; in KSPSolve_IBCGS()
|
| /petsc/src/dm/dt/interface/ |
| H A D | dtds.c | 1510 PetscPointJacFn **tmp0, **tmp1, **tmp2, **tmp3; in PetscDSGetJacobian() local
1517 …PetscCall(PetscWeakFormGetJacobian(ds->wf, NULL, 0, f, g, 0, &n0, &tmp0, &n1, &tmp1, &n2, &tmp2, &… in PetscDSGetJacobian()
1520 *g2 = tmp2 ? tmp2[0] : NULL; in PetscDSGetJacobian()
1648 PetscPointJacFn **tmp0, **tmp1, **tmp2, **tmp3; in PetscDSGetJacobianPreconditioner() local
1655 …tJacobianPreconditioner(ds->wf, NULL, 0, f, g, 0, &n0, &tmp0, &n1, &tmp1, &n2, &tmp2, &n3, &tmp3)); in PetscDSGetJacobianPreconditioner()
1658 *g2 = tmp2 ? tmp2[0] : NULL; in PetscDSGetJacobianPreconditioner()
1760 PetscPointJacFn **tmp0, **tmp1, **tmp2, **tmp3; in PetscDSGetDynamicJacobian() local
1767 …kFormGetDynamicJacobian(ds->wf, NULL, 0, f, g, 0, &n0, &tmp0, &n1, &tmp1, &n2, &tmp2, &n3, &tmp3)); in PetscDSGetDynamicJacobian()
1770 *g2 = tmp2 ? tmp2[0] : NULL; in PetscDSGetDynamicJacobian()
2099 PetscBdPointJacFn **tmp0, **tmp1, **tmp2, **tmp3; in PetscDSGetBdJacobian() local
[all …]
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiov.c | 2046 PetscInt **lens, is_no, ncols, *cols, mat_i, *mat_j, tmp2, jmax; in MatCreateSubMatrices_MPIAIJ_Local() local
2471 for (tmp2 = 0; tmp2 < nrqs; tmp2++) { in MatCreateSubMatrices_MPIAIJ_Local()
2472 sbuf1_i = sbuf1[pa[tmp2]]; in MatCreateSubMatrices_MPIAIJ_Local()
2476 rbuf2_i = rbuf2[tmp2]; in MatCreateSubMatrices_MPIAIJ_Local()
2477 rbuf3_i = rbuf3[tmp2]; in MatCreateSubMatrices_MPIAIJ_Local()
2730 for (tmp2 = 0; tmp2 < nrqs; tmp2++) { in MatCreateSubMatrices_MPIAIJ_Local()
2731 sbuf1_i = sbuf1[pa[tmp2]]; in MatCreateSubMatrices_MPIAIJ_Local()
2735 rbuf2_i = rbuf2[tmp2]; in MatCreateSubMatrices_MPIAIJ_Local()
2736 rbuf3_i = rbuf3[tmp2]; in MatCreateSubMatrices_MPIAIJ_Local()
2737 rbuf4_i = rbuf4[tmp2]; in MatCreateSubMatrices_MPIAIJ_Local()
|
| /petsc/src/mat/impls/aij/seq/ |
| H A D | inode.c | 2496 …PetscScalar sum1 = 0.0, sum2 = 0.0, sum3 = 0.0, sum4 = 0.0, sum5 = 0.0, tmp0, tmp1, tmp2, t… in MatSOR_SeqAIJ_Inode() local
3567 tmp2 = x1 * bdiag[cnt + 1] + x2 * bdiag[cnt + 3]; in MatSOR_SeqAIJ_Inode()
3569 t[row + 1] = b[row + 1] - tmp2; in MatSOR_SeqAIJ_Inode()
3578 tmp2 = x1 * bdiag[cnt + 1] + x2 * bdiag[cnt + 4] + x3 * bdiag[cnt + 7]; in MatSOR_SeqAIJ_Inode()
3581 t[row + 1] = b[row + 1] - tmp2; in MatSOR_SeqAIJ_Inode()
3592 …tmp2 = x1 * bdiag[cnt + 1] + x2 * bdiag[cnt + 5] + x3 * bdiag[cnt + 9] + x4 * bdiag[cnt + 13… in MatSOR_SeqAIJ_Inode()
3596 t[row + 1] = b[row + 1] - tmp2; in MatSOR_SeqAIJ_Inode()
3609 …tmp2 = x1 * bdiag[cnt + 1] + x2 * bdiag[cnt + 6] + x3 * bdiag[cnt + 11] + x4 * bdiag[cnt + 1… in MatSOR_SeqAIJ_Inode()
3614 t[row + 1] = b[row + 1] - tmp2; in MatSOR_SeqAIJ_Inode()
3811 PetscScalar *x, tmp1, tmp2, tmp3, tmp4, tmp5, x1, x2, x3, x4, x5; in MatMultDiagonalBlock_SeqAIJ_Inode() local
[all …]
|
| /petsc/src/ksp/ksp/utils/dm/ |
| H A D | dmproject.c | 287 PetscCall(DMGetGlobalVector(dmf, &tmp2)); in DMAdaptInterpolator()
288 PetscCall(KSPSolve(smoother, tmp, tmp2)); in DMAdaptInterpolator()
289 PetscCall(VecDot(vf, tmp2, &vAnorm)); in DMAdaptInterpolator()
290 PetscCall(DMRestoreGlobalVector(dmf, &tmp2)); in DMAdaptInterpolator()
|
| /petsc/src/snes/tutorials/ex10d/ |
| H A D | ex10.c | 100 PetscInt *tmp1, *tmp2; in main() local
|