51 static PetscErrorCode CheckMatrices(Mat A, Mat B, Vec left, Vec right, Vec X, Vec Y, Vec X1, Vec Y1)  in CheckMatrices()  argument
57   PetscCall(VecDuplicateVecs(left, 2, &ltmp));  in CheckMatrices()
60   PetscCall(MatDiagonalScale(A, left, right));  in CheckMatrices()
61   PetscCall(MatDiagonalScale(B, left, right));  in CheckMatrices()
100   Vec       left, right, X, Y, X1, Y1;  in main()  local
126   PetscCall(MatCreateVecs(Asub, &right, &left));  in main()
129   PetscCall(VecDuplicate(left, &Y));  in main()
130   PetscCall(VecDuplicate(left, &Y1));  in main()
135     PetscCall(VecSetRandom(left, NULL));  in main()
142     PetscCall(VecSet(left, 2.0));  in main()
148   PetscCall(CheckMatrices(Asub, Bsub, left, right, X, Y, X1, Y1));  in main()
155   PetscCall(VecDestroy(&left));  in main()