17   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()
80   PetscCall(PetscMalloc1(nevs + 1, &evecs));  in main()
81   for (i = 0; i < nevs; i++) {  in main()
92   for (i = 0; i < nevs; i++) PetscCall(VecResetArray(evecs[i]));  in main()
98   for (i = 0; i < nevs; i++) PetscCall(VecDestroy(&evecs[i]));  in main()