Lines Matching refs:q
12 PetscInt m, n, M, N, p = 1, q = 1, i, j; in main() local
31 PetscCall(PetscOptionsGetInt(NULL, NULL, "-q", &q, NULL)); in main()
32 PetscCall(PetscMalloc2(p * q, &S, p * q, &T)); in main()
33 for (i = 0; i < p * q; i++) S[i] = 0; in main()
36 for (j = 0; j < q; j++) { in main()
38 S[i + p * j] = ((PetscReal)((i + 1) * (j + 1))) / ((PetscReal)(p + q)); in main()
39 T[i + p * j] = ((PetscReal)((p - i) + j)) / ((PetscReal)(p * q)); in main()
46 PetscCall(MatCreateKAIJ(A, p, q, S, T, &TA)); in main()
68 PetscCall(MatCreateKAIJ(A, p, q, NULL, T, &TA)); in main()
90 PetscCall(MatCreateKAIJ(A, p, q, S, NULL, &TA)); in main()
111 if (p == q) { in main()
113 for (j = 0; j < q; j++) { in main()
120 PetscCall(MatCreateKAIJ(A, p, q, S, T, &TA)); in main()
139 PetscCall(MatCreateKAIJ(A, p, q, NULL, T, &TA)); in main()
146 for (j = 0; j < q; j++) { in main()
151 PetscCall(MatCreateKAIJ(A, p, q, S, T, &TA)); in main()