Lines Matching refs:B_N
3419 PetscBLASInt B_N, idummy = 0; in PCBDDCAdaptiveSelection() local
3424 PetscCall(PetscBLASIntCast(mss, &B_N)); in PCBDDCAdaptiveSelection()
3439 …gvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &zero, &thresh, B_iwork, B_iwork, &eps, &B_… in PCBDDCAdaptiveSelection()
3441 …gvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &zero, &thresh, B_iwork, B_iwork, &eps, &B_… in PCBDDCAdaptiveSelection()
3496 PetscBLASInt B_N; in PCBDDCAdaptiveSelection() local
3515 PetscCall(PetscBLASIntCast(subset_size, &B_N)); in PCBDDCAdaptiveSelection()
3597 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3599 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3617 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3619 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3627 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3629 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3640 …pe, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs2, eigs + … in PCBDDCAdaptiveSelection()
3642 …pe, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs2, eigs + … in PCBDDCAdaptiveSelection()
3653 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3655 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3669 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3671 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3682 …pe, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs2, eigs + … in PCBDDCAdaptiveSelection()
3684 …pe, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs2, eigs + … in PCBDDCAdaptiveSelection()
3700 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3702 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3706 if (recipe_m > 0 && B_N - B_neigs > 0) { in PCBDDCAdaptiveSelection()
3709 PetscCall(PetscBLASIntCast(PetscMin(recipe_m, B_N - B_neigs), &B_IU)); in PCBDDCAdaptiveSelection()
3713 …pe, "V", "I", "L", &B_N, St, &B_N, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs2, eigs + … in PCBDDCAdaptiveSelection()
3715 …pe, "V", "I", "L", &B_N, St, &B_N, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs2, eigs + … in PCBDDCAdaptiveSelection()
3725 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3727 …sygvx_(&B_itype, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3738 …pe, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs2, eigs + … in PCBDDCAdaptiveSelection()
3740 …pe, "V", "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs2, eigs + … in PCBDDCAdaptiveSelection()
3748 …sygvx_(&B_itype, "V", "A", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3750 …sygvx_(&B_itype, "V", "A", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3757 for (k = 0; k < B_N; k++) S[ne * B_N + k] = eigv[e * B_N + k]; in PCBDDCAdaptiveSelection()
3762 PetscCall(PetscArraycpy(eigv, S, B_N * ne)); in PCBDDCAdaptiveSelection()
3771 PetscCall(PetscBLASIntCast(PetscMax(1, PetscMin(B_N, nmax)), &B_IU)); in PCBDDCAdaptiveSelection()
3773 …sygvx_(&B_itype, "V", "I", "L", &B_N, St, &B_N, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3775 …sygvx_(&B_itype, "V", "I", "L", &B_N, St, &B_N, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_ne… in PCBDDCAdaptiveSelection()
3793 …PetscCheck(B_ierr > B_N, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in SYGVX Lapack routine: %" PetscB… in PCBDDCAdaptiveSelection()
3794 …routine: leading minor of order %" PetscBLASInt_FMT " is not positive definite", B_ierr - B_N - 1); in PCBDDCAdaptiveSelection()
3803 nmin_s = PetscMin(nmin, B_N); in PCBDDCAdaptiveSelection()
3812 PetscCall(PetscBLASIntCast(B_N - nmin_s + 1, &B_IL)); in PCBDDCAdaptiveSelection()
3813 B_IU = B_N - B_neigs; in PCBDDCAdaptiveSelection()
3836 …"V", "I", "L", &B_N, St, &B_N, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs2, eigs + B_ne… in PCBDDCAdaptiveSelection()
3838 …"V", "I", "L", &B_N, St, &B_N, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs2, eigs + B_ne… in PCBDDCAdaptiveSelection()
3846 …PetscCheck(B_ierr > B_N, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in SYGVX Lapack routine: %" PetscB… in PCBDDCAdaptiveSelection()
3847 …routine: leading minor of order %" PetscBLASInt_FMT " is not positive definite", B_ierr - B_N - 1); in PCBDDCAdaptiveSelection()
3877 …(old basis) %" PetscInt_FMT "/%" PetscBLASInt_FMT " (%" PetscBLASInt_FMT ")\n", ii, B_neigs, B_N)); in PCBDDCAdaptiveSelection()
3878 for (j = 0; j < B_N; j++) { in PCBDDCAdaptiveSelection()
3904 …Eigenvector %" PetscInt_FMT "/%" PetscBLASInt_FMT " (%" PetscBLASInt_FMT ")\n", ii, B_neigs, B_N)); in PCBDDCAdaptiveSelection()
3905 for (j = 0; j < B_N; j++) { in PCBDDCAdaptiveSelection()