Home
last modified time | relevance | path

Searched refs:nevs (Results 1 – 3 of 3) sorted by relevance

/petsc/src/mat/tests/
H A Dex118.c17 PetscBLASInt n, il = 1, iu = 5, *iblock, *isplit, *iwork, nevs, *ifail, cklvl = 2; in main()
32 nevs = iu - il; in main()
48 PetscCall(PetscPrintf(PETSC_COMM_SELF, " LAPACKstebz_: compute %d eigenvalues...\n", nevs)); in main()
49 …LAPACKstebz_("I", "E", &n, &vl, &vu, &il, &iu, &tol, (PetscReal *)D, (PetscReal *)E, &nevs, &nspli… in main()
52 …PetscCall(PetscPrintf(PETSC_COMM_SELF, " LAPACKstein_: compute %d found eigenvectors...\n", nevs)); in main()
53 PetscCall(PetscMalloc1(n * nevs, &evecs_array)); in main()
54 PetscCall(PetscMalloc1(nevs, &ifail)); in main()
55 …LAPACKstein_(&n, (PetscReal *)D, (PetscReal *)E, &nevs, (PetscReal *)evals, iblock, isplit, evecs_… in main()
60 PetscCall(PetscPrintf(PETSC_COMM_SELF, " %d evals: \n", nevs)); in main()
61 …for (i = 0; i < nevs; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, "%" PetscInt_FMT " %g\n", i, (d… in main()
[all …]
H A Dex116.c26 PetscBLASInt nevs, il, iu, in; in main() local
75 PetscCall(PetscBLASIntCast(m, &nevs)); in main()
90 …LAPACKsyevx_("V", "I", "U", &bn, arrayA, &bn, &vl, &vu, &il, &iu, &abstol, &nevs, evals, evecs_arr… in main()
94 …PetscCheck(nevs > 0, PETSC_COMM_SELF, PETSC_ERR_CONV_FAILED, "nev=%" PetscBLASInt_FMT ", no eigens… in main()
99 PetscCall(PetscPrintf(PETSC_COMM_SELF, " %" PetscBLASInt_FMT " evals: \n", nevs)); in main()
100 …for (i = 0; i < nevs; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, "%" PetscInt_FMT " %g\n", (Pets… in main()
104 PetscCall(PetscMalloc1(nevs + 1, &evecs)); in main()
105 for (i = 0; i < nevs; i++) { in main()
116 for (i = 0; i < nevs; i++) PetscCall(VecDestroy(&evecs[i])); in main()
H A Dex120.c20 PetscBLASInt nn, nevs, il, iu, *iwork, *ifail, lwork, lierr, bn, one = 1; in main() local
146 nevs = m; in main()
163 …LAPACKsyevx_("V", "I", "U", &bn, arrayA, &bn, &vl, &vu, &il, &iu, &abstol, &nevs, evals, evecs_arr… in main()
174 nevs = m; in main()
192 …", "I", "U", &bn, arrayA, &bn, arrayB, &bn, &vl, &vu, &il, &iu, &abstol, &nevs, evals, evecs_array… in main()
198 …PetscCheck(nevs > 0, PETSC_COMM_SELF, PETSC_ERR_CONV_FAILED, "nev=%d, no eigensolution has found",… in main()
203 PetscCall(PetscPrintf(PETSC_COMM_WORLD, " %d evals: \n", nevs)); in main()
204 …for (i = 0; i < nevs; i++) PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%" PetscInt_FMT " %g\n", i + … in main()
208 PetscCall(PetscMalloc1(nevs + 1, &evecs)); in main()
209 for (i = 0; i < nevs; i++) { in main()
[all …]