Searched refs:tetai (Results 1 – 3 of 3) sorted by relevance
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex82.c | 10 PetscReal *tetar, *tetai; in main() local
30 PetscCall(PetscMalloc2(N, &tetar, N, &tetai)); in main()
42 …scCall(KSPComputeRitz(ksp, harmonic ? PETSC_FALSE : PETSC_TRUE, PETSC_TRUE, &Na, S, tetar, tetai)); in main()
47 if (tetai[i]) { in main()
48 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%+gi", (double)tetai[i])); in main()
51 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%+gi", (double)-tetai[i])); in main()
58 if (tetai[i]) { in main()
66 PetscCall(PetscFree2(tetar, tetai)); in main()
|
| /petsc/src/ksp/ksp/impls/gmres/ |
| H A D | gmreig.c | 114 … ksp, PetscBool ritz, PetscBool small, PetscInt *nrit, Vec S[], PetscReal *tetar, PetscReal *tetai) in KSPComputeRitz_GMRES() argument
214 tetai[i] = PetscImaginaryPart(wr[perm[i]]); in KSPComputeRitz_GMRES()
218 tetai[i] = PetscImaginaryPart(wr[perm[bn - nb + i]]); in KSPComputeRitz_GMRES()
235 tetai[i] = wi[perm[i]]; in KSPComputeRitz_GMRES()
249 tetai[i] = wi[perm[bn - nb + i]]; in KSPComputeRitz_GMRES()
|
| /petsc/src/ksp/ksp/interface/ |
| H A D | itfunc.c | 179 …sp, PetscBool ritz, PetscBool small, PetscInt *nrit, Vec S[], PetscReal tetar[], PetscReal tetai[]) in KSPComputeRitz() argument
184 PetscTryTypeMethod(ksp, computeritz, ritz, small, nrit, S, tetar, tetai); in KSPComputeRitz()
|