Lines Matching refs:p

34   PetscInt      i, j, m = adctx->m, n = adctx->n, p = adctx->p;  in PetscAdolcComputeRHSJacobian()  local
38 PetscCall(AdolcMalloc2(m, p, &J)); in PetscAdolcComputeRHSJacobian()
39 if (adctx->Seed) fov_forward(tag, m, n, p, u_vec, adctx->Seed, NULL, J); in PetscAdolcComputeRHSJacobian()
42 PetscCall(RecoverJacobian(A, INSERT_VALUES, m, p, adctx->Rec, J, NULL)); in PetscAdolcComputeRHSJacobian()
72 PetscInt i, j, m = adctx->m, n = adctx->n, p = adctx->p; in PetscAdolcComputeRHSJacobianLocal() local
76 PetscCall(AdolcMalloc2(m, p, &J)); in PetscAdolcComputeRHSJacobianLocal()
77 if (adctx->Seed) fov_forward(tag, m, n, p, u_vec, adctx->Seed, NULL, J); in PetscAdolcComputeRHSJacobianLocal()
80 PetscCall(RecoverJacobianLocal(A, INSERT_VALUES, m, p, adctx->Rec, J, NULL)); in PetscAdolcComputeRHSJacobianLocal()
111 PetscInt i, j, m = adctx->m, n = adctx->n, p = adctx->p; in PetscAdolcComputeIJacobian() local
115 PetscCall(AdolcMalloc2(m, p, &J)); in PetscAdolcComputeIJacobian()
118 if (adctx->Seed) fov_forward(tag1, m, n, p, u_vec, adctx->Seed, NULL, J); in PetscAdolcComputeIJacobian()
122 PetscCall(RecoverJacobian(A, INSERT_VALUES, m, p, adctx->Rec, J, NULL)); in PetscAdolcComputeIJacobian()
134 if (adctx->Seed) fov_forward(tag2, m, n, p, u_vec, adctx->Seed, NULL, J); in PetscAdolcComputeIJacobian()
137 PetscCall(RecoverJacobian(A, ADD_VALUES, m, p, adctx->Rec, J, &a)); in PetscAdolcComputeIJacobian()
171 PetscInt i, j, m = adctx->m, n = adctx->n, p = adctx->p; in PetscAdolcComputeIJacobianIDMass() local
175 PetscCall(AdolcMalloc2(m, p, &J)); in PetscAdolcComputeIJacobianIDMass()
178 if (adctx->Seed) fov_forward(tag, m, n, p, u_vec, adctx->Seed, NULL, J); in PetscAdolcComputeIJacobianIDMass()
182 PetscCall(RecoverJacobian(A, INSERT_VALUES, m, p, adctx->Rec, J, NULL)); in PetscAdolcComputeIJacobianIDMass()
216 PetscInt i, j, m = adctx->m, n = adctx->n, p = adctx->p; in PetscAdolcComputeIJacobianLocal() local
220 PetscCall(AdolcMalloc2(m, p, &J)); in PetscAdolcComputeIJacobianLocal()
223 if (adctx->Seed) fov_forward(tag1, m, n, p, u_vec, adctx->Seed, NULL, J); in PetscAdolcComputeIJacobianLocal()
226 PetscCall(RecoverJacobianLocal(A, INSERT_VALUES, m, p, adctx->Rec, J, NULL)); in PetscAdolcComputeIJacobianLocal()
238 if (adctx->Seed) fov_forward(tag2, m, n, p, u_vec, adctx->Seed, NULL, J); in PetscAdolcComputeIJacobianLocal()
241 PetscCall(RecoverJacobianLocal(A, ADD_VALUES, m, p, adctx->Rec, J, &a)); in PetscAdolcComputeIJacobianLocal()
275 PetscInt i, j, m = adctx->m, n = adctx->n, p = adctx->p; in PetscAdolcComputeIJacobianLocalIDMass() local
279 PetscCall(AdolcMalloc2(m, p, &J)); in PetscAdolcComputeIJacobianLocalIDMass()
282 if (adctx->Seed) fov_forward(tag, m, n, p, u_vec, adctx->Seed, NULL, J); in PetscAdolcComputeIJacobianLocalIDMass()
285 PetscCall(RecoverJacobianLocal(A, INSERT_VALUES, m, p, adctx->Rec, J, NULL)); in PetscAdolcComputeIJacobianLocalIDMass()
321 PetscInt i, j = 0, m = adctx->m, n = adctx->n, p = adctx->num_params; in PetscAdolcComputeRHSJacobianP() local
326 PetscCall(AdolcMalloc2(m, p, &J)); in PetscAdolcComputeRHSJacobianP()
327 PetscCall(PetscMalloc1(n + p, &concat)); in PetscAdolcComputeRHSJacobianP()
328 PetscCall(AdolcMalloc2(n + p, p, &S)); in PetscAdolcComputeRHSJacobianP()
329 PetscCall(Subidentity(p, n, S)); in PetscAdolcComputeRHSJacobianP()
331 for (i = 0; i < p; i++) concat[n + i] = params[i]; in PetscAdolcComputeRHSJacobianP()
334 fov_forward(tag, m, n + p, p, concat, S, NULL, J); in PetscAdolcComputeRHSJacobianP()
340 for (j = 0; j < p; j++) { in PetscAdolcComputeRHSJacobianP()
365 PetscInt i, j = 0, m = adctx->m, n = adctx->n, p = adctx->num_params; in PetscAdolcComputeRHSJacobianPLocal() local
370 PetscCall(AdolcMalloc2(m, p, &J)); in PetscAdolcComputeRHSJacobianPLocal()
371 PetscCall(PetscMalloc1(n + p, &concat)); in PetscAdolcComputeRHSJacobianPLocal()
372 PetscCall(AdolcMalloc2(n + p, p, &S)); in PetscAdolcComputeRHSJacobianPLocal()
373 PetscCall(Subidentity(p, n, S)); in PetscAdolcComputeRHSJacobianPLocal()
375 for (i = 0; i < p; i++) concat[n + i] = params[i]; in PetscAdolcComputeRHSJacobianPLocal()
378 fov_forward(tag, m, n + p, p, concat, S, NULL, J); in PetscAdolcComputeRHSJacobianPLocal()
384 for (j = 0; j < p; j++) { in PetscAdolcComputeRHSJacobianPLocal()
414 PetscInt i, m = adctx->m, n = adctx->n, p = adctx->p; in PetscAdolcComputeIJacobianAndDiagonalLocal() local
418 PetscCall(AdolcMalloc2(m, p, &J)); in PetscAdolcComputeIJacobianAndDiagonalLocal()
421 if (adctx->Seed) fov_forward(tag1, m, n, p, u_vec, adctx->Seed, NULL, J); in PetscAdolcComputeIJacobianAndDiagonalLocal()
434 if (adctx->Seed) fov_forward(tag2, m, n, p, u_vec, adctx->Seed, NULL, J); in PetscAdolcComputeIJacobianAndDiagonalLocal()