Lines Matching refs:bmat
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()
225 bmat[0 + 0 * ss] = 1.; in TSGLLESchemeCreate()
226 bmat[0 + 1 * ss] = 0.; in TSGLLESchemeCreate()
227 bmat[0 + 2 * ss] = 0.; in TSGLLESchemeCreate()
228 bmat[1 + 0 * ss] = 1.; in TSGLLESchemeCreate()
229 bmat[1 + 1 * ss] = 1.; in TSGLLESchemeCreate()
230 bmat[1 + 2 * ss] = 0.; in TSGLLESchemeCreate()
231 bmat[2 + 0 * ss] = 0.; in TSGLLESchemeCreate()
232 bmat[2 + 1 * ss] = 0.; in TSGLLESchemeCreate()
233 bmat[2 + 2 * ss] = -1.; in TSGLLESchemeCreate()
240 …PetscCallBLAS("LAPACKgelss", LAPACKgelss_(&m, &n, &m, H, &m, bmat, &ldb, sing, &rcond, &rank, work… in TSGLLESchemeCreate()
243 …PetscCallBLAS("LAPACKgelss", LAPACKgelss_(&m, &n, &m, H, &m, bmat, &ldb, sing, &rcond, &rank, work… in TSGLLESchemeCreate()
249 for (k = 0; k < s; k++) scheme->phi[k + j * s] = bmat[k + j * ss]; in TSGLLESchemeCreate()
266 PetscCall(PetscFree7(ImV, H, bmat, workscalar, workreal, sing, ipiv)); in TSGLLESchemeCreate()