Searched refs:GammaInv (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/impls/rosw/ |
| H A D | rosw.c | 39 PetscReal *GammaInv; /* Inverse of Gamma, used for transformed variables */ member
763 PetscCall(PetscFree5(t->At, t->bt, t->GammaInv, t->GammaZeroDiag, t->GammaExplicitCorr)); in TSRosWRegisterDestroy()
835 PetscScalar *GammaInv; in TSRosWRegister() local
851 …PetscCall(PetscMalloc5(s * s, &t->At, s, &t->bt, s * s, &t->GammaInv, s, &t->GammaZeroDiag, s * s,… in TSRosWRegister()
868 …PetscCall(PetscMalloc1(s * s, &GammaInv)); /* Need to use Scalar for inverse, then convert back to… in TSRosWRegister()
869 for (i = 0; i < s * s; i++) GammaInv[i] = Gamma[i]; in TSRosWRegister()
872 GammaInv[i * s + i] = 1.0; in TSRosWRegister()
881 GammaInv[0] = 1. / GammaInv[0]; in TSRosWRegister()
884 PetscCall(PetscKernel_A_gets_inverse_A_2(GammaInv, 0, PETSC_FALSE, NULL)); in TSRosWRegister()
887 PetscCall(PetscKernel_A_gets_inverse_A_3(GammaInv, 0, PETSC_FALSE, NULL)); in TSRosWRegister()
[all …]
|