| /petsc/src/sys/ftn-custom/ |
| H A D | zutils.c | 49 size_t tmp3 = (size_t)addr; in PetscIntAddressToFortran() local
53 if (tmp3 > tmp1) { in PetscIntAddressToFortran()
54 tmp2 = (tmp3 - tmp1) / sizeof(PetscInt); in PetscIntAddressToFortran()
57 tmp2 = (tmp1 - tmp3) / sizeof(PetscInt); in PetscIntAddressToFortran()
61 if (tmp3 > tmp1) { in PetscIntAddressToFortran()
62 tmp2 = (tmp3 - tmp1); in PetscIntAddressToFortran()
65 tmp2 = (tmp1 - tmp3); in PetscIntAddressToFortran()
73 …PETSC_COMM_SELF, (*PetscErrorPrintf)("by an integer. Locations: C %zu Fortran %zu\n", tmp1, tmp3)); in PetscIntAddressToFortran()
97 size_t tmp3 = (size_t)addr; in PetscScalarAddressToFortran() local
103 if (tmp3 > tmp1) { /* C is bigger than Fortran */ in PetscScalarAddressToFortran()
[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
64 n = readlink(tmp1, tmp3, PETSC_MAX_PATH_LEN); in PetscGetRealPath()
67 tmp3[n] = 0; /* readlink does not automatically add 0 to string end */ in PetscGetRealPath()
68 if (tmp3[0] != '/') { in PetscGetRealPath()
77 PetscCall(PetscStrlcat(tmp4, tmp3, PETSC_MAX_PATH_LEN)); in PetscGetRealPath()
81 PetscCall(PetscGetRealPath(tmp3, tmp1)); in PetscGetRealPath()
|
| /petsc/src/tao/leastsquares/tutorials/matlab/more_wild_probs/ |
| H A D | dfovec.m | 125 tmp3 = tmp1; variable
127 tmp3 = tmp2; variable
129 fvec(i) = y1(i) - (x(1) + tmp1/(x(2)*tmp2 + x(3)*tmp3));
225 tmp3 = exp(-x(7)*(temp-x(10))^2); variable
228 x(3)*tmp3 + x(4)*tmp4);
|
| H A D | g_dfovec_1d.m | 275 tmp3= tmp1; variable
278 tmp3= tmp2; variable
288 g_tmp_dfovec_1d_00037= g_tmp_x_00030* tmp3+ tmp_x_00030* g_tmp3;
289 tmp_dfovec_1d_00037= tmp_x_00030* tmp3;
644 tmp3= exp(tmp_dfovec_1d_00091); variable
669 g_tmp_dfovec_1d_00098= g_tmp_x_00070* tmp3+ tmp_x_00070* g_tmp3;
670 tmp_dfovec_1d_00098= tmp_x_00070* tmp3;
|
| /petsc/src/dm/dt/interface/ |
| H A D | dtds.c | 1510 PetscPointJacFn **tmp0, **tmp1, **tmp2, **tmp3; in PetscDSGetJacobian() local
1517 …etscWeakFormGetJacobian(ds->wf, NULL, 0, f, g, 0, &n0, &tmp0, &n1, &tmp1, &n2, &tmp2, &n3, &tmp3)); in PetscDSGetJacobian()
1521 *g3 = tmp3 ? tmp3[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()
1659 *g3 = tmp3 ? tmp3[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()
1771 *g3 = tmp3 ? tmp3[0] : NULL; in PetscDSGetDynamicJacobian()
2099 PetscBdPointJacFn **tmp0, **tmp1, **tmp2, **tmp3; in PetscDSGetBdJacobian() local
[all …]
|
| /petsc/src/mat/impls/aij/seq/ |
| H A D | inode.c | 2496 …scScalar sum1 = 0.0, sum2 = 0.0, sum3 = 0.0, sum4 = 0.0, sum5 = 0.0, tmp0, tmp1, tmp2, tmp3; in MatSOR_SeqAIJ_Inode() local
3579 tmp3 = x1 * bdiag[cnt + 2] + x2 * bdiag[cnt + 5] + x3 * bdiag[cnt + 8]; in MatSOR_SeqAIJ_Inode()
3582 t[row + 2] = b[row + 2] - tmp3; in MatSOR_SeqAIJ_Inode()
3593 …tmp3 = x1 * bdiag[cnt + 2] + x2 * bdiag[cnt + 6] + x3 * bdiag[cnt + 10] + x4 * bdiag[cnt + 1… in MatSOR_SeqAIJ_Inode()
3597 t[row + 2] = b[row + 2] - tmp3; in MatSOR_SeqAIJ_Inode()
3610 …tmp3 = x1 * bdiag[cnt + 2] + x2 * bdiag[cnt + 7] + x3 * bdiag[cnt + 12] + x4 * bdiag[cnt + 1… in MatSOR_SeqAIJ_Inode()
3615 t[row + 2] = b[row + 2] - tmp3; in MatSOR_SeqAIJ_Inode()
3811 PetscScalar *x, tmp1, tmp2, tmp3, tmp4, tmp5, x1, x2, x3, x4, x5; in MatMultDiagonalBlock_SeqAIJ_Inode() local
3844 tmp3 = x1 * bdiag[cnt + 2] + x2 * bdiag[cnt + 5] + x3 * bdiag[cnt + 8]; in MatMultDiagonalBlock_SeqAIJ_Inode()
3847 x[row++] = tmp3; in MatMultDiagonalBlock_SeqAIJ_Inode()
[all …]
|