Searched refs:n_cmpl (Results 1 – 1 of 1) sorted by relevance
50 PetscScalar *n_cmpl, temp; in KSPAGMRESLejaOrdering() local54 PetscCall(PetscMalloc1(m, &n_cmpl)); in KSPAGMRESLejaOrdering()69 for (i = 0; i < m; i++) n_cmpl[i] = PetscSqrtReal(re[i] * re[i] + im[i] * im[i]); in KSPAGMRESLejaOrdering()70 PetscCall(KSPAGMRESLejafmaxarray(n_cmpl, 0, m, &pos)); in KSPAGMRESLejaOrdering()96 PetscCall(PetscFree(n_cmpl)); in KSPAGMRESLejaOrdering()