Home
last modified time | relevance | path

Searched refs:Jdense (Results 1 – 2 of 2) sorted by relevance

/petsc/src/ts/tutorials/
H A Dextchem.c47 double *Jdense; /* Dense array workspace where Tchem computes the Jacobian */ member
122 …PetscCall(PetscMalloc3(user.Nspec + 1, &user.tchemwork, PetscSqr(user.Nspec + 1), &user.Jdense, us… in main()
222 PetscCall(PetscFree3(user.tchemwork, user.Jdense, user.rows)); in main()
258 PetscCall(TC_getJacTYN(user->tchemwork, user->Nspec, user->Jdense, 1)); in FormRHSJacobian()
260 …for (i = 0; i < M; i++) user->Jdense[i + 0 * M] /= user->Tini; /* Non-dimensionalize first column … in FormRHSJacobian()
261 for (i = 0; i < M; i++) user->Jdense[0 + i * M] /= user->Tini; /* Non-dimensionalize first row */ in FormRHSJacobian()
266 PetscCall(MatSetValues(Pmat, M, user->rows, M, user->rows, user->Jdense, INSERT_VALUES)); in FormRHSJacobian()
H A Dextchemfield.c74 double *Jdense; /* Dense array workspace where Tchem computes the Jacobian */ member
146 …PetscCall(PetscMalloc3(user.Nspec + 1, &user.tchemwork, PetscSqr(user.Nspec + 1), &user.Jdense, us… in main()
234 PetscCall(PetscFree3(user.tchemwork, user.Jdense, user.rows)); in main()
360 PetscCall(TC_getJacTYN(user->tchemwork, user->Nspec, user->Jdense, 1)); in FormRHSJacobian()
362 …for (j = 0; j < M; j++) user->Jdense[j + 0 * M] /= user->Tini; /* Non-dimensionalize first column … in FormRHSJacobian()
363 … for (j = 0; j < M; j++) user->Jdense[0 + j * M] /= user->Tini; /* Non-dimensionalize first row */ in FormRHSJacobian()
365 PetscCall(MatSetValues(Pmat, M, user->rows, M, user->rows, user->Jdense, INSERT_VALUES)); in FormRHSJacobian()