Searched refs:spos (Results 1 – 1 of 1) sorted by relevance
23 static PetscErrorCode KSPAGMRESLejaCfpdMax(PetscScalar *rm, PetscScalar *im, PetscInt *spos, PetscI… in KSPAGMRESLejaCfpdMax() argument34 rd = rm[i] - rm[spos[j]]; in KSPAGMRESLejaCfpdMax()35 id = im[i] - im[spos[j]]; in KSPAGMRESLejaCfpdMax()49 PetscInt *spos; in KSPAGMRESLejaOrdering() local55 PetscCall(PetscMalloc1(m, &spos)); in KSPAGMRESLejaOrdering()76 spos[0] = pos; in KSPAGMRESLejaOrdering()82 spos[j] = pos + 1; in KSPAGMRESLejaOrdering()85 PetscCall(KSPAGMRESLejaCfpdMax(re, im, spos, j, m, &pos)); in KSPAGMRESLejaOrdering()91 spos[j] = pos; in KSPAGMRESLejaOrdering()95 PetscCall(PetscFree(spos)); in KSPAGMRESLejaOrdering()