Home
last modified time | relevance | path

Searched refs:VEC_OFFSET (Results 1 – 14 of 14) sorted by relevance

/petsc/src/ksp/ksp/impls/tcqmr/
H A Dtcqmrimpl.h9 #define VEC_OFFSET 0 macro
14 #define r ksp->work[VEC_OFFSET + 1]
15 #define um1 ksp->work[VEC_OFFSET + 2]
16 #define u ksp->work[VEC_OFFSET + 3]
17 #define vm1 ksp->work[VEC_OFFSET + 4]
18 #define v ksp->work[VEC_OFFSET + 5]
19 #define v0 ksp->work[VEC_OFFSET + 6]
20 #define pvec1 ksp->work[VEC_OFFSET + 7]
21 #define pvec2 ksp->work[VEC_OFFSET + 8]
22 #define p ksp->work[VEC_OFFSET + 9]
[all …]
/petsc/src/ksp/ksp/impls/gmres/pgmres/
H A Dpgmresimpl.h19 #define VEC_OFFSET 2 macro
22 #define VEC_VV(i) pgmres->vecs[VEC_OFFSET + i] /* use to access othog basis vectors */
H A Dpgmres.c48 if (pgmres->vv_allocated <= it + VEC_OFFSET + 1) PetscCall(KSPGMRESGetNewVectors(ksp, it + 1)); in KSPPGMRESCycle()
/petsc/src/ksp/ksp/impls/gmres/fgmres/
H A Dfgmresimpl.h34 #define VEC_OFFSET 2 macro
38 fgmres->vecs[VEC_OFFSET + i] /* use to access
H A Dfgmres.c36 …PetscCall(KSPCreateVecs(ksp, fgmres->vv_allocated - VEC_OFFSET, &fgmres->prevecs_user_work[0], 0, … in KSPSetUp_FGMRES()
37 …for (k = 0; k < fgmres->vv_allocated - VEC_OFFSET; k++) fgmres->prevecs[k] = fgmres->prevecs_user_… in KSPSetUp_FGMRES()
110 if (fgmres->vv_allocated <= loc_it + VEC_OFFSET + 1) { in KSPFGMRESCycle()
382 …if (it + VEC_OFFSET + nalloc >= fgmres->vecs_allocated) nalloc = fgmres->vecs_allocated - it - VEC… in KSPFGMRESGetNewVectors()
389 for (k = 0; k < nalloc; k++) fgmres->vecs[it + VEC_OFFSET + k] = fgmres->user_work[nwork][k]; in KSPFGMRESGetNewVectors()
456 PetscCall(VecDestroyVecs(fgmres->mwork_alloc[i] - VEC_OFFSET, &fgmres->prevecs_user_work[i])); in KSPReset_FGMRES()
/petsc/src/ksp/ksp/impls/gmres/pipefgmres/
H A Dpipefgmresimpl.h35 #define VEC_OFFSET 4 macro
41 #define VEC_VV(i) pipefgmres->vecs[VEC_OFFSET + i] /* use to access othog basis vectors. Note the o…
H A Dpipefgmres.c31 PetscCall(PetscMalloc1(VEC_OFFSET + max_k, &pipefgmres->prevecs)); in KSPSetUp_PIPEFGMRES()
32 PetscCall(PetscMalloc1(VEC_OFFSET + max_k, &pipefgmres->prevecs_user_work)); in KSPSetUp_PIPEFGMRES()
37 PetscCall(PetscMalloc1(VEC_OFFSET + max_k, &pipefgmres->zvecs)); in KSPSetUp_PIPEFGMRES()
38 PetscCall(PetscMalloc1(VEC_OFFSET + max_k, &pipefgmres->zvecs_user_work)); in KSPSetUp_PIPEFGMRES()
40 PetscCall(PetscMalloc1(VEC_OFFSET + max_k, &pipefgmres->redux)); in KSPSetUp_PIPEFGMRES()
124 if (pipefgmres->vv_allocated <= loc_it + VEC_OFFSET + 1) { in KSPPIPEFGMRESCycle()
617 …if (it + VEC_OFFSET + nalloc >= pipefgmres->vecs_allocated) nalloc = pipefgmres->vecs_allocated - … in KSPPIPEFGMRESGetNewVectors()
624 …for (k = 0; k < nalloc; k++) pipefgmres->vecs[it + VEC_OFFSET + k] = pipefgmres->user_work[nwork][… in KSPPIPEFGMRESGetNewVectors()
/petsc/src/ksp/ksp/impls/gmres/lgmres/
H A Dlgmresimpl.h46 #define VEC_OFFSET 2 macro
49 #define VEC_VV(i) lgmres->vecs[VEC_OFFSET + i] /* use to access othog basis vectors */
H A Dlgmres.c163 if (lgmres->vv_allocated <= loc_it + VEC_OFFSET + 1) { in KSPLGMRESCycle()
519 …if (it + VEC_OFFSET + nalloc >= lgmres->vecs_allocated) nalloc = lgmres->vecs_allocated - it - VEC… in KSPLGMRESGetNewVectors()
529 for (k = 0; k < nalloc; k++) lgmres->vecs[it + VEC_OFFSET + k] = lgmres->user_work[nwork][k]; in KSPLGMRESGetNewVectors()
/petsc/src/ksp/ksp/impls/gmres/dgmres/
H A Ddgmresimpl.h60 #define VEC_OFFSET 2 macro
63 #define VEC_VV(i) dgmres->vecs[VEC_OFFSET + i]
H A Ddgmres.c144 if (dgmres->vv_allocated <= it + VEC_OFFSET + 1) PetscCall(KSPDGMRESGetNewVectors(ksp, it + 1)); in KSPDGMRESCycle()
426 …if (it + VEC_OFFSET + nalloc >= dgmres->vecs_allocated) nalloc = dgmres->vecs_allocated - it - VEC… in KSPDGMRESGetNewVectors()
434 for (k = 0; k < nalloc; k++) dgmres->vecs[it + VEC_OFFSET + k] = dgmres->user_work[nwork][k]; in KSPDGMRESGetNewVectors()
/petsc/src/ksp/ksp/impls/gmres/
H A Dgmresimpl.h85 #define VEC_OFFSET 2 macro
88 #define VEC_VV(i) gmres->vecs[VEC_OFFSET + i]
H A Dgmres.c58 gmres->vecs_allocated = VEC_OFFSET + 2 + max_k + gmres->nextra_vecs; in KSPSetUp_GMRES()
60 PetscCall(PetscMalloc1(VEC_OFFSET + 2 + max_k, &gmres->user_work)); in KSPSetUp_GMRES()
61 PetscCall(PetscMalloc1(VEC_OFFSET + 2 + max_k, &gmres->mwork_alloc)); in KSPSetUp_GMRES()
62 …if (gmres->q_preallocate || ksp->normtype == KSP_NORM_NONE) gmres->vv_allocated = VEC_OFFSET + 2 +… in KSPSetUp_GMRES()
63 else gmres->vv_allocated = VEC_OFFSET + 2 + PetscMin(PetscMin(5, max_k), ksp->max_it); in KSPSetUp_GMRES()
132 if (gmres->vv_allocated <= it + VEC_OFFSET + 1) PetscCall(KSPGMRESGetNewVectors(ksp, it + 1)); in KSPGMRESCycle()
410 …if (it + VEC_OFFSET + nalloc >= gmres->vecs_allocated) nalloc = gmres->vecs_allocated - it - VEC_O… in KSPGMRESGetNewVectors()
418 for (k = 0; k < nalloc; k++) gmres->vecs[it + VEC_OFFSET + k] = gmres->user_work[nwork][k]; in KSPGMRESGetNewVectors()
/petsc/src/ksp/ksp/impls/gmres/agmres/
H A Dagmresimpl.h44 #define VEC_V(i) agmres->vecs[VEC_OFFSET + i]