Lines Matching refs:il
20 PetscBLASInt nn, nevs, il, iu, *iwork, *ifail, lwork, lierr, bn, one = 1; in main() local
147 il = 1; in main()
151 il = 1; in main()
153 …ll(PetscPrintf(PETSC_COMM_WORLD, " LAPACKsyevx: compute %d to %d-th eigensolutions...\n", il, iu)); in main()
163 …LAPACKsyevx_("V", "I", "U", &bn, arrayA, &bn, &vl, &vu, &il, &iu, &abstol, &nevs, evals, evecs_arr… in main()
175 il = 1; in main()
181 il = 1; in main()
183 …all(PetscPrintf(PETSC_COMM_WORLD, " LAPACKsygv: compute %d to %d-th eigensolutions...\n", il, iu)); in main()
192 …LAPACKsygvx_(&one, "V", "I", "U", &bn, arrayA, &bn, arrayB, &bn, &vl, &vu, &il, &iu, &abstol, &nev… in main()
204 …i++) PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%" PetscInt_FMT " %g\n", i + il, (double)evals[i])); in main()
218 PetscCall(CkEigenSolutions(cklvl, A, il - 1, iu - 1, evals, evecs, tols)); in main()
246 PetscErrorCode CkEigenSolutions(PetscInt cklvl, Mat A, PetscInt il, PetscInt iu, PetscReal *eval, V… in CkEigenSolutions() argument
254 nev = iu - il; in CkEigenSolutions()
263 for (i = il; i < iu; i++) { in CkEigenSolutions()
265 for (j = il; j < iu; j++) { in CkEigenSolutions()
283 for (i = il; i < iu; i++) { in CkEigenSolutions()