51 static PetscErrorCode CheckMatrices(Mat A, Mat B, Vec left, Vec right, Vec X, Vec Y, Vec X1, Vec Y1)  in CheckMatrices()  argument
56   PetscCall(VecDuplicateVecs(right, 2, &rtmp));  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()
127   PetscCall(VecDuplicate(right, &X));  in main()
128   PetscCall(VecDuplicate(right, &X1));  in main()
134     PetscCall(VecSetRandom(right, NULL));  in main()
141     PetscCall(VecSet(right, 1.0));  in main()
148   PetscCall(CheckMatrices(Asub, Bsub, left, right, X, Y, X1, Y1));  in main()
156   PetscCall(VecDestroy(&right));  in main()