435   PetscBLASInt    j, ddesc[9], d2desc[9], mb, nb, lszd, zero = 0, one = 1, dlld, info;  in MatGetDiagonal_ScaLAPACK()  local
445     PetscCall(PetscBLASIntCast(PetscMax(1, A->rmap->n), &dlld));  in MatGetDiagonal_ScaLAPACK()
446 … SCALAPACKdescinit_(ddesc, &a->M, &one, &mb, &one, &zero, &zero, &a->grid->ictxcol, &dlld, &info));  in MatGetDiagonal_ScaLAPACK()
452     PetscCall(PetscBLASIntCast(PetscMax(1, lszd), &dlld));  in MatGetDiagonal_ScaLAPACK()
455 …CALAPACKdescinit_(d2desc, &a->M, &one, &a->mb, &one, &zero, &zero, &a->grid->ictxt, &dlld, &info));  in MatGetDiagonal_ScaLAPACK()
473     dlld = 1;  in MatGetDiagonal_ScaLAPACK()
474 … SCALAPACKdescinit_(ddesc, &one, &a->N, &one, &nb, &zero, &zero, &a->grid->ictxrow, &dlld, &info));  in MatGetDiagonal_ScaLAPACK()
482 …CALAPACKdescinit_(d2desc, &one, &a->N, &one, &a->nb, &zero, &zero, &a->grid->ictxt, &dlld, &info));  in MatGetDiagonal_ScaLAPACK()
508   PetscBLASInt       i, j, ddesc[9], d2desc[9], mb, nb, lszd, zero = 0, one = 1, dlld, info;  in MatDiagonalScale_ScaLAPACK()  local
516     dlld = 1;  in MatDiagonalScale_ScaLAPACK()
517 … SCALAPACKdescinit_(ddesc, &one, &a->N, &one, &nb, &zero, &zero, &a->grid->ictxrow, &dlld, &info));  in MatDiagonalScale_ScaLAPACK()
525 …CALAPACKdescinit_(d2desc, &one, &a->N, &one, &a->nb, &zero, &zero, &a->grid->ictxt, &dlld, &info));  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()
547     PetscCall(PetscBLASIntCast(PetscMax(1, A->rmap->n), &dlld));  in MatDiagonalScale_ScaLAPACK()
548 … SCALAPACKdescinit_(ddesc, &a->M, &one, &mb, &one, &zero, &zero, &a->grid->ictxcol, &dlld, &info));  in MatDiagonalScale_ScaLAPACK()
554     PetscCall(PetscBLASIntCast(PetscMax(1, lszd), &dlld));  in MatDiagonalScale_ScaLAPACK()
557 …CALAPACKdescinit_(d2desc, &a->M, &one, &a->mb, &one, &zero, &zero, &a->grid->ictxt, &dlld, &info));  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()