435   PetscBLASInt    j, ddesc[9], d2desc[9], mb, nb, lszd, zero = 0, one = 1, dlld, info;  in MatGetDiagonal_ScaLAPACK()  local
450     lszd = SCALAPACKnumroc_(&a->M, &a->mb, &a->grid->myrow, &a->rsrc, &a->grid->nprow);  in MatGetDiagonal_ScaLAPACK()
451     PetscCall(PetscCalloc1(lszd, &d2d));  in MatGetDiagonal_ScaLAPACK()
452     PetscCall(PetscBLASIntCast(PetscMax(1, lszd), &dlld));  in MatGetDiagonal_ScaLAPACK()
478     lszd = SCALAPACKnumroc_(&a->N, &a->nb, &a->grid->mycol, &a->csrc, &a->grid->npcol);  in MatGetDiagonal_ScaLAPACK()
479     PetscCall(PetscCalloc1(lszd, &d2d));  in MatGetDiagonal_ScaLAPACK()
508   PetscBLASInt       i, j, ddesc[9], d2desc[9], mb, nb, lszd, zero = 0, one = 1, dlld, info;  in MatDiagonalScale_ScaLAPACK()  local
521     lszd = SCALAPACKnumroc_(&a->N, &a->nb, &a->grid->mycol, &a->csrc, &a->grid->npcol);  in MatDiagonalScale_ScaLAPACK()
522     PetscCall(PetscCalloc1(lszd, &d2d));  in MatDiagonalScale_ScaLAPACK()
532     if (!a->grid->myrow) Cdgebs2d(a->grid->ictxt, "C", " ", 1, lszd, d2d, dlld);  in MatDiagonalScale_ScaLAPACK()
533     else Cdgebr2d(a->grid->ictxt, "C", " ", 1, lszd, d2d, dlld, 0, a->grid->mycol);  in MatDiagonalScale_ScaLAPACK()
552     lszd = SCALAPACKnumroc_(&a->M, &a->mb, &a->grid->myrow, &a->rsrc, &a->grid->nprow);  in MatDiagonalScale_ScaLAPACK()
553     PetscCall(PetscCalloc1(lszd, &d2d));  in MatDiagonalScale_ScaLAPACK()
554     PetscCall(PetscBLASIntCast(PetscMax(1, lszd), &dlld));  in MatDiagonalScale_ScaLAPACK()
564     if (!a->grid->mycol) Cdgebs2d(a->grid->ictxt, "R", " ", lszd, 1, d2d, dlld);  in MatDiagonalScale_ScaLAPACK()
565     else Cdgebr2d(a->grid->ictxt, "R", " ", lszd, 1, d2d, dlld, a->grid->myrow, 0);  in MatDiagonalScale_ScaLAPACK()