121 static PetscErrorCode MatSuperluDistGetDiagU_SuperLU_DIST(Mat F, PetscScalar *diagU)  in MatSuperluDistGetDiagU_SuperLU_DIST()  argument
126 …SuperLU_DIST:pGetDiagU", pGetDiagU(F->rmap->N, &lu->LUstruct, &lu->grid, CASTDOUBLECOMPLEX diagU));  in MatSuperluDistGetDiagU_SuperLU_DIST()
130 PetscErrorCode MatSuperluDistGetDiagU(Mat F, PetscScalar *diagU)  in MatSuperluDistGetDiagU()  argument
134   PetscTryMethod(F, "MatSuperluDistGetDiagU_C", (Mat, PetscScalar *), (F, diagU));  in MatSuperluDistGetDiagU()
407   PetscScalar      *diagU = NULL;  in MatGetInertia_SuperLU_DIST()  local
418   PetscCall(PetscMalloc1(M, &diagU));  in MatGetInertia_SuperLU_DIST()
419   PetscCall(MatSuperluDistGetDiagU(F, diagU));  in MatGetInertia_SuperLU_DIST()
422     r = PetscAbsReal(PetscImaginaryPart(diagU[i]));  in MatGetInertia_SuperLU_DIST()
423 …MT "]=%g + i %g is non-real", i, (double)PetscRealPart(diagU[i]), (double)PetscImaginaryPart(diagU…  in MatGetInertia_SuperLU_DIST()
424     r = PetscRealPart(diagU[i]);  in MatGetInertia_SuperLU_DIST()
426     r = diagU[i];  in MatGetInertia_SuperLU_DIST()
435   PetscCall(PetscFree(diagU));  in MatGetInertia_SuperLU_DIST()