Lines Matching refs:S
9 PetscScalar *S, *T; in main() local
32 PetscCall(PetscMalloc2(p * q, &S, p * q, &T)); in main()
33 for (i = 0; i < p * q; i++) S[i] = 0; in main()
38 S[i + p * j] = ((PetscReal)((i + 1) * (j + 1))) / ((PetscReal)(p + q)); in main()
46 PetscCall(MatCreateKAIJ(A, p, q, S, T, &TA)); in main()
90 PetscCall(MatCreateKAIJ(A, p, q, S, NULL, &TA)); in main()
120 PetscCall(MatCreateKAIJ(A, p, q, S, T, &TA)); in main()
147 if (i == j) S[i + j * p] = T[i + j * p] = 2.0; in main()
148 else S[i + j * p] = T[i + j * p] = 0.0; in main()
151 PetscCall(MatCreateKAIJ(A, p, q, S, T, &TA)); in main()
160 PetscCall(PetscFree2(S, T)); in main()