Searched refs:ScalingMat (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcfetidp.c | 125 Mat ScalingMat, BD1, BD2; in PCBDDCSetupFETIDPMatContext() local
472 PetscCall(MatCreate(PETSC_COMM_SELF, &ScalingMat)); in PCBDDCSetupFETIDPMatContext()
473 …PetscCall(MatSetSizes(ScalingMat, n_local_lambda, n_local_lambda, n_local_lambda, n_local_lambda)); in PCBDDCSetupFETIDPMatContext()
474 PetscCall(MatSetType(ScalingMat, MATSEQAIJ)); in PCBDDCSetupFETIDPMatContext()
475 PetscCall(MatSeqAIJSetPreallocation(ScalingMat, 1, NULL)); in PCBDDCSetupFETIDPMatContext()
476 …for (i = 0; i < n_local_lambda; i++) PetscCall(MatSetValue(ScalingMat, i, i, scaling_factors[i], I… in PCBDDCSetupFETIDPMatContext()
477 PetscCall(MatAssemblyBegin(ScalingMat, MAT_FINAL_ASSEMBLY)); in PCBDDCSetupFETIDPMatContext()
478 PetscCall(MatAssemblyEnd(ScalingMat, MAT_FINAL_ASSEMBLY)); in PCBDDCSetupFETIDPMatContext()
479 …PetscCall(MatMatMult(ScalingMat, fetidpmat_ctx->B_delta, MAT_INITIAL_MATRIX, PETSC_DETERMINE, &fet… in PCBDDCSetupFETIDPMatContext()
480 PetscCall(MatDestroy(&ScalingMat)); in PCBDDCSetupFETIDPMatContext()
|