Searched refs:A_inv_rowsum (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/impls/implicit/irk/ |
| H A D | irk.c | 21 PetscScalar *A_inv, *A_inv_rowsum, *I_s; member
67 …onst PetscReal *binterp, const PetscScalar *A_inv, const PetscScalar *A_inv_rowsum, const PetscSca… in TSIRKTableauCreate() argument
75 …cMalloc4(nstages, &tab->b, nstages, &tab->c, nstages, &tab->binterp, nstages, &tab->A_inv_rowsum)); in TSIRKTableauCreate()
82 if (A_inv_rowsum) PetscCall(PetscArraycpy(tab->A_inv_rowsum, A_inv_rowsum, nstages)); in TSIRKTableauCreate()
310 PetscScalar *A_inv = tab->A_inv, *A_inv_rowsum = tab->A_inv_rowsum; in TSStep_IRK() local
337 PetscCall(VecAXPY(irk->YdotI[i], -A_inv_rowsum[i] / ts->time_step, irk->U)); in TSStep_IRK()
406 PetscCall(PetscFree4(tab->b, tab->c, tab->binterp, tab->A_inv_rowsum)); in TSIRKTableauReset()
462 const PetscScalar *A_inv = tab->A_inv, *A_inv_rowsum = tab->A_inv_rowsum; in SNESTSFormFunction_IRK() local
477 …PetscCall(VecAXPY(Ydot, -A_inv_rowsum[i] / h, U)); /* Ydot = (S \otimes In)*Z - (Se \otimes In) U … in SNESTSFormFunction_IRK()
|