Lines Matching refs:cs_AIB
965 PetscScalar *cs_AIB, *AIIm1_data; in PCBDDCSubSchursSetUp() local
976 PetscCall(MatDenseGetArray(cs_AIB_mat, &cs_AIB)); in PCBDDCSubSchursSetUp()
996 …cs_AIB[i * size_schur + j] = (PetscRealPart(array[j + n_I]) / nz + PETSC_i * (PetscImaginaryPart(a… in PCBDDCSubSchursSetUp()
998 cs_AIB[i * size_schur + j] = array[j + n_I] / nz; in PCBDDCSubSchursSetUp()
1003 PetscCall(MatDenseRestoreArray(cs_AIB_mat, &cs_AIB)); in PCBDDCSubSchursSetUp()
1132 const PetscScalar *cs_AIB; in PCBDDCSubSchursSetUp() local
1146 PetscCall(MatDenseGetArrayRead(cs_AIB_mat, &cs_AIB)); in PCBDDCSubSchursSetUp()
1192 …if (B_n) PetscCallBLAS("BLASsyrk", BLASsyrk_("L", "N", &B_n, &B_k, &sum, cs_AIB + i * size_schur, … in PCBDDCSubSchursSetUp()
1193 … && B_n) PetscCallBLAS("BLASsyrk", BLASsyrk_("L", "N", &B_n, &B_k, &sum, cs_AIB + i * size_schur, … in PCBDDCSubSchursSetUp()
1196 …lBLAS("BLASsyr2k", BLASsyr2k_("L", "N", &B_n, &B_k, &sum, cs_AIB + k * size_schur, &B_n, cs_AIB + … in PCBDDCSubSchursSetUp()
1197 …lBLAS("BLASsyr2k", BLASsyr2k_("L", "N", &B_n, &B_k, &sum, cs_AIB + k * size_schur, &B_n, cs_AIB + … in PCBDDCSubSchursSetUp()
1201 …S("BLASsyr2k", BLASsyr2k_("L", "N", &B_n, &B_k, &sum, array + n_I, &B_n, cs_AIB + i * size_schur, … in PCBDDCSubSchursSetUp()
1202 …S("BLASsyr2k", BLASsyr2k_("L", "N", &B_n, &B_k, &sum, array + n_I, &B_n, cs_AIB + i * size_schur, … in PCBDDCSubSchursSetUp()
1228 PetscCall(MatDenseRestoreArrayRead(cs_AIB_mat, &cs_AIB)); in PCBDDCSubSchursSetUp()