| /petsc/src/ksp/ksp/utils/lmvm/dense/ |
| H A D | denseqn.c | 263 PetscCall(PetscFree(lqn->workscalar)); in MatDestroy_LMVMDQN()
870 PetscScalar stz, ytx, stp, sjtpi, yjtsi, *workscalar; in MatMult_LMVMDBFGS() local
888 PetscCall(VecGetArrayAndMemType(lbfgs->rwork3, &workscalar, &memtype)); in MatMult_LMVMDBFGS()
894 yjtsi = workscalar[idx_j]; in MatMult_LMVMDBFGS()
897 … PetscCall(PetscDeviceRegisterMemory(workscalar, memtype, local_n * sizeof(*workscalar))); in MatMult_LMVMDBFGS()
898 PetscCall(PetscDeviceArrayCopy(dctx, &yjtsi, &workscalar[idx_j], 1)); in MatMult_LMVMDBFGS()
916 PetscCall(VecGetArrayAndMemType(lbfgs->rwork1, &workscalar, &memtype)); in MatMult_LMVMDBFGS()
922 ytx = workscalar[idx]; in MatMult_LMVMDBFGS()
925 PetscCall(PetscDeviceRegisterMemory(workscalar, memtype, local_n * sizeof(*workscalar))); in MatMult_LMVMDBFGS()
926 PetscCall(PetscDeviceArrayCopy(dctx, &ytx, &workscalar[idx], 1)); in MatMult_LMVMDBFGS()
[all …]
|
| H A D | denseqn.h | 36 PetscScalar *workscalar; member
|
| /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()
240 …lss", LAPACKgelss_(&m, &n, &m, H, &m, bmat, &ldb, sing, &rcond, &rank, workscalar, &lwork, workrea… in TSGLLESchemeCreate()
243 …lss", LAPACKgelss_(&m, &n, &m, H, &m, bmat, &ldb, sing, &rcond, &rank, workscalar, &lwork, &info)); in TSGLLESchemeCreate()
266 PetscCall(PetscFree7(ImV, H, bmat, workscalar, workreal, sing, ipiv)); in TSGLLESchemeCreate()
|
| /petsc/src/ksp/ksp/utils/dm/ |
| H A D | dmproject.c | 228 PetscScalar *A, *b, *x, *workscalar; in DMAdaptInterpolator() local
273 …PetscMax(Nc, maxcols), &b, Nc, &w, maxcols, &x, maxcols, &sing, lwrk, &workscalar, 5 * PetscMin(Nc… in DMAdaptInterpolator()
351 …Kgelss_(&M, &N, &one, A, &M, b, M > N ? &M : &N, sing, &rcond, &irank, workscalar, &lwrk, workreal… in DMAdaptInterpolator()
354 …CKgelss_(&M, &N, &one, A, &M, b, M > N ? &M : &N, sing, &rcond, &irank, workscalar, &lwrk, &info)); in DMAdaptInterpolator()
381 PetscCall(PetscFree7(A, b, w, x, sing, workscalar, workreal)); in DMAdaptInterpolator()
|