Lines Matching refs:B_neigs
3355 PetscBLASInt B_neigs, B_ierr, B_lwork; in PCBDDCAdaptiveSelection() local
3439 …, "L", &B_N, St, &B_N, S, &B_N, &zero, &thresh, B_iwork, B_iwork, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3441 …, "L", &B_N, St, &B_N, S, &B_N, &zero, &thresh, B_iwork, B_iwork, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3572 B_neigs = 0; in PCBDDCAdaptiveSelection()
3580 B_neigs = 0; in PCBDDCAdaptiveSelection()
3597 … "V", "L", &B_N, St, &B_N, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3599 … "V", "L", &B_N, St, &B_N, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3617 … "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3619 … "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3627 … "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3629 … "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3640 …, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs2, eigs + B_neigs, eigv + B_neigs * B_N, &B… in PCBDDCAdaptiveSelection()
3642 …, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs2, eigs + B_neigs, eigv + B_neigs * B_N, &B… in PCBDDCAdaptiveSelection()
3645 B_neigs += B_neigs2; in PCBDDCAdaptiveSelection()
3653 … "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3655 … "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3669 … "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3671 … "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3682 …, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs2, eigs + B_neigs, eigv + B_neigs * B_N, &B… in PCBDDCAdaptiveSelection()
3684 …, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs2, eigs + B_neigs, eigv + B_neigs * B_N, &B… in PCBDDCAdaptiveSelection()
3687 B_neigs += B_neigs2; in PCBDDCAdaptiveSelection()
3700 … "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3702 … "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… 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 …, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs2, eigs + B_neigs, eigv + B_neigs * B_N, &B… in PCBDDCAdaptiveSelection()
3715 …, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs2, eigs + B_neigs, eigv + B_neigs * B_N, &B… in PCBDDCAdaptiveSelection()
3718 B_neigs += B_neigs2; in PCBDDCAdaptiveSelection()
3725 … "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3727 … "V", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3738 …, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs2, eigs + B_neigs, eigv + B_neigs * B_N, &B… in PCBDDCAdaptiveSelection()
3740 …, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs2, eigs + B_neigs, eigv + B_neigs * B_N, &B… in PCBDDCAdaptiveSelection()
3743 B_neigs += B_neigs2; in PCBDDCAdaptiveSelection()
3748 … "A", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3750 … "A", "L", &B_N, St, &B_N, S, &B_N, &bb[0], &bb[1], &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3755 for (e = 0, ne = 0; e < B_neigs; e++) { in PCBDDCAdaptiveSelection()
3763 PetscCall(PetscBLASIntCast(ne, &B_neigs)); in PCBDDCAdaptiveSelection()
3773 … "I", "L", &B_N, St, &B_N, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3775 … "I", "L", &B_N, St, &B_N, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs, eigs, eigv, &B_N… in PCBDDCAdaptiveSelection()
3782 PetscCall(PetscBLASIntCast(nmax, &B_neigs)); in PCBDDCAdaptiveSelection()
3797 if (B_neigs > nmax) { in PCBDDCAdaptiveSelection()
3798 …ound %" PetscBLASInt_FMT " eigs, more than maximum required %" PetscInt_FMT ".\n", B_neigs, nmax)); in PCBDDCAdaptiveSelection()
3799 if (upart) eigs_start = scal ? 0 : B_neigs - nmax; in PCBDDCAdaptiveSelection()
3800 PetscCall(PetscBLASIntCast(nmax, &B_neigs)); in PCBDDCAdaptiveSelection()
3804 if (B_neigs < nmin_s) { in PCBDDCAdaptiveSelection()
3810 B_IL = B_neigs + 1; in PCBDDCAdaptiveSelection()
3813 B_IU = B_N - B_neigs; in PCBDDCAdaptiveSelection()
3816 B_IL = B_neigs + 1; in PCBDDCAdaptiveSelection()
3820 …r %" PetscBLASInt_FMT " to %" PetscBLASInt_FMT " incl (fortran like)\n", B_neigs, nmin, B_IL, B_IU… in PCBDDCAdaptiveSelection()
3836 …, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs2, eigs + B_neigs, eigv + B_neigs * subset_… in PCBDDCAdaptiveSelection()
3838 …, S, &B_N, &lower, &upper, &B_IL, &B_IU, &eps, &B_neigs2, eigs + B_neigs, eigv + B_neigs * subset_… in PCBDDCAdaptiveSelection()
3842 B_neigs += B_neigs2; in PCBDDCAdaptiveSelection()
3850 …werASCIISynchronizedPrintf(pcbddc->dbg_viewer, " -> Got %" PetscBLASInt_FMT " eigs\n", B_neigs)); in PCBDDCAdaptiveSelection()
3851 for (j = 0; j < B_neigs; j++) { in PCBDDCAdaptiveSelection()
3876 for (ii = 0; ii < B_neigs; ii++) { in PCBDDCAdaptiveSelection()
3877 …(old basis) %" PetscInt_FMT "/%" PetscBLASInt_FMT " (%" PetscBLASInt_FMT ")\n", ii, B_neigs, B_N)); in PCBDDCAdaptiveSelection()
3890 …PetscCall(MatCreateSeqDense(PETSC_COMM_SELF, subset_size, B_neigs, eigv + eigs_start * subset_size… in PCBDDCAdaptiveSelection()
3896 maxneigs = PetscMax(B_neigs, maxneigs); in PCBDDCAdaptiveSelection()
3897 pcbddc->adaptive_constraints_n[i + nv] = B_neigs; in PCBDDCAdaptiveSelection()
3898 if (B_neigs) { in PCBDDCAdaptiveSelection()
3899 …bddc->adaptive_constraints_data_ptr[cum], eigv + eigs_start * subset_size, B_neigs * subset_size)); in PCBDDCAdaptiveSelection()
3903 for (ii = 0; ii < B_neigs; ii++) { in PCBDDCAdaptiveSelection()
3904 …Eigenvector %" PetscInt_FMT "/%" PetscBLASInt_FMT " (%" PetscBLASInt_FMT ")\n", ii, B_neigs, B_N)); in PCBDDCAdaptiveSelection()
3918 …constraints_data_ptr[cum + 1] = pcbddc->adaptive_constraints_data_ptr[cum] + subset_size * B_neigs; in PCBDDCAdaptiveSelection()