| /petsc/src/ts/impls/glee/ |
| H A D | glee.c | 37 PetscInt pinterp; /* Interpolation order */ member
389 …l Fembed[], const PetscReal Ferror[], const PetscReal Serror[], PetscInt pinterp, const PetscReal … in TSGLEERegister() argument
424 t->pinterp = pinterp; in TSGLEERegister()
425 PetscCall(PetscMalloc1(s * pinterp, &t->binterp)); in TSGLEERegister()
426 PetscCall(PetscArraycpy(t->binterp, binterp, s * pinterp)); in TSGLEERegister()
593 PetscInt s = glee->tableau->s, pinterp = glee->tableau->pinterp, i, j; in TSInterpolate_GLEE() local
615 for (j = 0, tt = t; j < pinterp; j++, tt *= t) { in TSInterpolate_GLEE()
616 for (i = 0; i < s; i++) b[i] += h * B[i * pinterp + j] * tt; in TSInterpolate_GLEE()
|
| /petsc/src/ts/impls/arkimex/ |
| H A D | arkimex.h | 10 PetscInt pinterp; /* Interpolation order */ member
|
| H A D | arkimex.c | 1104 …cReal c[], const PetscReal bembedt[], const PetscReal bembed[], PetscInt pinterp, const PetscReal … in TSARKIMEXRegister() argument
1170 t->pinterp = pinterp; in TSARKIMEXRegister()
1171 PetscCall(PetscMalloc2(s * pinterp, &t->binterpt, s * pinterp, &t->binterp)); in TSARKIMEXRegister()
1172 PetscCall(PetscArraycpy(t->binterpt, binterpt, s * pinterp)); in TSARKIMEXRegister()
1173 PetscCall(PetscArraycpy(t->binterp, binterp ? binterp : binterpt, s * pinterp)); in TSARKIMEXRegister()
1203 …etscReal bt[], const PetscReal ct[], const PetscReal bembedt[], PetscInt pinterp, const PetscReal … in TSDIRKRegister() argument
1206 …PetscCall(TSARKIMEXRegister(name, order, s, At, bt, ct, NULL, NULL, NULL, bembedt, NULL, pinterp, … in TSDIRKRegister()
1673 PetscInt s = tab->s, pinterp = tab->pinterp, i, j; in TSInterpolate_ARKIMEX() local
1695 for (j = 0, tt = t; j < pinterp; j++, tt *= t) { in TSInterpolate_ARKIMEX()
1697 bt[i] += h * Bt[i * pinterp + j] * tt; in TSInterpolate_ARKIMEX()
[all …]
|
| H A D | fsarkimex.c | 79 PetscInt s = tab->s, pinterp = tab->pinterp, i, j; in TSExtrapolate_ARKIMEX_FastSlowSplit() local
91 for (j = 0, tt = t; j < pinterp; j++, tt *= t) { in TSExtrapolate_ARKIMEX_FastSlowSplit()
93 bt[i] += h * Bt[i * pinterp + j] * tt; in TSExtrapolate_ARKIMEX_FastSlowSplit()
94 b[i] += h * B[i * pinterp + j] * tt; in TSExtrapolate_ARKIMEX_FastSlowSplit()
|
| /petsc/src/ts/impls/rosw/ |
| H A D | rosw.c | 27 PetscInt pinterp; /* Interpolation order */ member
830 …tscReal Gamma[], const PetscReal b[], const PetscReal bembed[], PetscInt pinterp, const PetscReal … in TSRosWRegister() argument
931 t->pinterp = pinterp; in TSRosWRegister()
932 PetscCall(PetscMalloc1(s * pinterp, &t->binterpt)); in TSRosWRegister()
933 PetscCall(PetscArraycpy(t->binterpt, binterpt, s * pinterp)); in TSRosWRegister()
1243 PetscInt s = ros->tableau->s, pinterp = ros->tableau->pinterp, i, j; in TSInterpolate_RosW() local
1270 for (j = 0, tt = t; j < pinterp; j++, tt *= t) { in TSInterpolate_RosW()
1271 for (i = 0; i < s; i++) bt[i] += Bt[i * pinterp + j] * tt; in TSInterpolate_RosW()
|
| /petsc/src/ts/impls/implicit/irk/ |
| H A D | irk.c | 32 PetscInt pinterp; /* Interpolation order */ member
368 PetscInt nstages = irk->nstages, pinterp = irk->pinterp, i, j; in TSInterpolate_IRK() local
391 for (j = 0, tt = t; j < pinterp; j++, tt *= t) { in TSInterpolate_IRK()
392 for (i = 0; i < nstages; i++) bt[i] += h * B[i * pinterp + j] * tt; in TSInterpolate_IRK()
|