Searched refs:dbg_work (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 7071 PetscScalar *dbg_work = NULL; in PCBDDCConstraintsSetUp() local
7170 …Call(PetscMalloc1(max_size_of_constraint * (max_constraints + max_size_of_constraint), &dbg_work)); in PCBDDCConstraintsSetUp()
7193 …if (pcbddc->dbg_flag) PetscCall(PetscArraycpy(dbg_work, &constraints_data[constraints_data_ptr[tot… in PCBDDCConstraintsSetUp()
7271 …mm_("T", "N", &Blas_M, &Blas_N, &Blas_K, &one, dbg_work, &Blas_LDA, qr_basis, &Blas_LDB, &zero, &d… in PCBDDCConstraintsSetUp()
7275 …if (ii != jj && PetscAbsScalar(dbg_work[size_of_constraint * primal_dofs + jj * primal_dofs + ii])… in PCBDDCConstraintsSetUp()
7276 …if (ii == jj && PetscAbsScalar(dbg_work[size_of_constraint * primal_dofs + jj * primal_dofs + ii] … in PCBDDCConstraintsSetUp()
7283 …if (ii != jj && PetscAbsScalar(dbg_work[size_of_constraint * primal_dofs + jj * primal_dofs + ii])… in PCBDDCConstraintsSetUp()
7284 …nstraint %" PetscInt_FMT " (%1.14e)!\n", jj, ii, (double)PetscAbsScalar(dbg_work[size_of_constrain… in PCBDDCConstraintsSetUp()
7286 …if (ii == jj && PetscAbsScalar(dbg_work[size_of_constraint * primal_dofs + jj * primal_dofs + ii] … in PCBDDCConstraintsSetUp()
7287 …nstraint %" PetscInt_FMT " (%1.14e)!\n", jj, ii, (double)PetscAbsScalar(dbg_work[size_of_constrain… in PCBDDCConstraintsSetUp()
[all …]
|