Searched refs:gauss_A_real (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/impls/implicit/irk/ |
| H A D | irk.c | 91 PetscReal *gauss_A_real, *gauss_b, *b, *gauss_c; in TSIRKCreate_Gauss() local
99 PetscCall(PetscMalloc3(PetscSqr(nstages), &gauss_A_real, nstages, &gauss_b, nstages, &gauss_c)); in TSIRKCreate_Gauss()
120 …for (j = 0; j < nstages; j++) gauss_A_real[i * nstages + j] = PetscRealPart(gauss_A[i * nstages + … in TSIRKCreate_Gauss()
153 …PetscCall(TSIRKTableauCreate(ts, nstages, gauss_A_real, gauss_b, gauss_c, NULL, gauss_A_inv, gauss… in TSIRKCreate_Gauss()
154 PetscCall(PetscFree3(gauss_A_real, gauss_b, gauss_c)); in TSIRKCreate_Gauss()
|