Searched refs:len_slow2 (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/tutorials/multirate/ |
| H A D | ex5.c | 396 PetscInt i, j, k, Mx, dof, xs, xm, len_slow1, len_slow2; in FVRHSFunctionslow2() local
415 PetscCall(ISGetSize(ctx->iss2, &len_slow2)); in FVRHSFunctionslow2()
427 if (i < len_slow1 + len_slow2 + 1 && i > len_slow1 - 2) { in FVRHSFunctionslow2()
457 if (i < len_slow1 + len_slow2 && i > len_slow1) { /* slow parts can be changed based on a */ in FVRHSFunctionslow2()
473 if (i == len_slow1 + len_slow2) { /* slow parts can be changed based on a */ in FVRHSFunctionslow2()
511 PetscInt i, j, k, Mx, dof, xs, xm, len_slow1, len_slow2; in FVRHSFunctionfast2() local
530 PetscCall(ISGetSize(ctx->iss2, &len_slow2)); in FVRHSFunctionfast2()
543 if (i > len_slow1 + len_slow2 - 2) { in FVRHSFunctionfast2()
573 if (i > len_slow1 + len_slow2) { in FVRHSFunctionfast2()
583 for (j = 0; j < dof; j++) f[(i - len_slow1 - len_slow2 - 1) * dof + j] -= ctx->flux[j] / hx; in FVRHSFunctionfast2()
[all …]
|