Lines Matching refs:block
22 Mat block[4], H, R, C, M; in main() local
66 block[0] = R; in main()
67 block[1] = C; in main()
69 PetscCall(MatCreateHermitianTranspose(C, &block[2])); in main()
70 PetscCall(MatScale(block[2], PetscConj(b))); in main()
71 PetscCall(MatShift(block[2], d)); in main()
72 PetscCall(MatCreateTranspose(R, &block[3])); in main()
73 PetscCall(MatScale(block[3], PetscConj(d))); in main()
74 PetscCall(MatShift(block[3], b)); in main()
75 PetscCall(MatCreateNest(PetscObjectComm((PetscObject)R), 2, NULL, 2, NULL, block, &H)); in main()
76 PetscCall(MatDestroy(&block[2])); in main()
77 PetscCall(MatDestroy(&block[3])); in main()