Searched refs:ImV (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/impls/implicit/glle/ |
| H A D | glle.c | 133 …PetscScalar *ImV, *H, *bmat, *workscalar, *c = scheme->c, *a = scheme->a, *b = scheme->b, *u = sch… in TSGLLESchemeCreate() local
137 …PetscCall(PetscMalloc7(PetscSqr(r), &ImV, 3 * s, &H, 3 * ss, &bmat, lwork, &workscalar, 5 * (3 + r… in TSGLLESchemeCreate()
141 for (j = 0; j < r - 1; j++) ImV[i + j * r] = 1.0 * (i == j) - v[(i + 1) * r + j + 1]; in TSGLLESchemeCreate()
150 PetscCallBLAS("LAPACKgesv", LAPACKgesv_(&m, &one, ImV, &n, ipiv, scheme->alpha + 1, &n, &info)); in TSGLLESchemeCreate()
159 …PetscCallBLAS("LAPACKgetrs", LAPACKgetrs_("No transpose", &m, &one, ImV, &n, ipiv, scheme->beta + … in TSGLLESchemeCreate()
184 …PetscCallBLAS("LAPACKgetrs", LAPACKgetrs_("No transpose", &m, &one, ImV, &n, ipiv, scheme->gamma +… in TSGLLESchemeCreate()
266 PetscCall(PetscFree7(ImV, H, bmat, workscalar, workreal, sing, ipiv)); in TSGLLESchemeCreate()
|