70   IRKTableau tab = irk->tableau;  in TSIRKTableauCreate()  local
74 …PetscCall(PetscMalloc3(PetscSqr(nstages), &tab->A, PetscSqr(nstages), &tab->A_inv, PetscSqr(nstage…  in TSIRKTableauCreate()
75 …PetscCall(PetscMalloc4(nstages, &tab->b, nstages, &tab->c, nstages, &tab->binterp, nstages, &tab->…  in TSIRKTableauCreate()
76   PetscCall(PetscArraycpy(tab->A, A, PetscSqr(nstages)));  in TSIRKTableauCreate()
77   PetscCall(PetscArraycpy(tab->b, b, nstages));  in TSIRKTableauCreate()
78   PetscCall(PetscArraycpy(tab->c, c, nstages));  in TSIRKTableauCreate()
80   if (binterp) PetscCall(PetscArraycpy(tab->binterp, binterp, nstages));  in TSIRKTableauCreate()
81   if (A_inv) PetscCall(PetscArraycpy(tab->A_inv, A_inv, PetscSqr(nstages)));  in TSIRKTableauCreate()
82   if (A_inv_rowsum) PetscCall(PetscArraycpy(tab->A_inv_rowsum, A_inv_rowsum, nstages));  in TSIRKTableauCreate()
83   if (I_s) PetscCall(PetscArraycpy(tab->I_s, I_s, PetscSqr(nstages)));  in TSIRKTableauCreate()
272   IRKTableau   tab   = irk->tableau;  in TSEvaluateStep_IRK()  local
292   for (j = 0; j < irk->nstages; j++) w[j] = h * tab->b[j];  in TSEvaluateStep_IRK()
309   IRKTableau     tab   = irk->tableau;  in TSStep_IRK()  local
310   PetscScalar   *A_inv = tab->A_inv, *A_inv_rowsum = tab->A_inv_rowsum;  in TSStep_IRK()
401   IRKTableau tab = irk->tableau;  in TSIRKTableauReset()  local
404   if (!tab) PetscFunctionReturn(PETSC_SUCCESS);  in TSIRKTableauReset()
405   PetscCall(PetscFree3(tab->A, tab->A_inv, tab->I_s));  in TSIRKTableauReset()
406   PetscCall(PetscFree4(tab->b, tab->c, tab->binterp, tab->A_inv_rowsum));  in TSIRKTableauReset()
459   IRKTableau         tab     = irk->tableau;  in SNESTSFormFunction_IRK()  local
461   const PetscReal   *c       = tab->c;  in SNESTSFormFunction_IRK()
462   const PetscScalar *A_inv = tab->A_inv, *A_inv_rowsum = tab->A_inv_rowsum;  in SNESTSFormFunction_IRK()
495   IRKTableau       tab     = irk->tableau;  in SNESTSFormJacobian_IRK()  local
497   const PetscReal *c       = tab->c;  in SNESTSFormJacobian_IRK()
517     for (j = 0; j < nstages; j++) S[i + nstages * j] = tab->A_inv[i + nstages * j] / ts->time_step;  in SNESTSFormJacobian_IRK()
570   IRKTableau     tab = irk->tableau;  in TSSetUp_IRK()  local
602     PetscCall(MatCreateKAIJ(J, nstages, nstages, tab->A_inv, tab->I_s, &irk->TJ));  in TSSetUp_IRK()
636     IRKTableau tab = irk->tableau;  in TSView_IRK()  local
642     PetscCall(PetscFormatRealArray(buf, sizeof(buf), "% 8.6f", irk->nstages, tab->c));  in TSView_IRK()
645     PetscCall(PetscFormatRealArray(buf, sizeof(buf), "% 8.6f", PetscSqr(irk->nstages), tab->A));  in TSView_IRK()