Searched refs:cs_AIB (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcschurs.c | 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()
[all …]
|