Home
last modified time | relevance | path

Searched refs:PETSC_COMM_SELF (Results 1 – 25 of 1319) sorted by relevance

12345678910>>...53

/petsc/src/sys/tests/
H A Dex35.c17 PetscCall(PetscPrintf(PETSC_COMM_SELF, "1st test\n")); in main()
18 for (i = 0; i < 5; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g\n", (double)x[i])); in main()
19 PetscCall(PetscPrintf(PETSC_COMM_SELF, "---------------\n")); in main()
21 for (i = 0; i < 5; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g\n", (double)x[i])); in main()
23 PetscCall(PetscPrintf(PETSC_COMM_SELF, "\n2nd test\n")); in main()
24 for (i = 0; i < 10; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g\n", (double)x[i])); in main()
25 PetscCall(PetscPrintf(PETSC_COMM_SELF, "---------------\n")); in main()
27 for (i = 0; i < 10; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g\n", (double)x[i])); in main()
29 PetscCall(PetscPrintf(PETSC_COMM_SELF, "\n3rd test\n")); in main()
30 …for (i = 0; i < 5; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %2" PetscInt_FMT " %g\n", ind… in main()
[all …]
H A Dex64.cxx68 PetscCallAbort(PETSC_COMM_SELF, f.to_string(ret)); in operator <<()
103 PetscCallAbort(PETSC_COMM_SELF, b.to_string(ret)); in operator <<()
132 PetscCallAbort(PETSC_COMM_SELF, this->printer(value, this->buffer)); in operator ()()
209 …MapCheck(map, msize == map.size(), PETSC_COMM_SELF, PETSC_ERR_PLIB, "Map size appears to change ea… in check_size_capacity_coherent()
210 …MapCheck(map, mcap == map.capacity(), PETSC_COMM_SELF, PETSC_ERR_PLIB, "Map capacity appears to ch… in check_size_capacity_coherent()
211 MapCheck(map, msize >= 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Map size %zu unexpected!", msize); in check_size_capacity_coherent()
212 MapCheck(map, mcap >= 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Map capacity %zu unexpected!", mcap); in check_size_capacity_coherent()
213 …MapCheck(map, mcap >= msize, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Map capacity %zu < map size %zu!", … in check_size_capacity_coherent()
221 …MapCheck(map, map.size() == expected_size, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Map size %zu did not … in check_size_capacity_coherent()
222 …MapCheck(map, map.capacity() >= expected_min_capacity, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Map capac… in check_size_capacity_coherent()
[all …]
H A Dex14.c14 …PetscCall(PetscPrintf(PETSC_COMM_SELF, "Scalar a = %g + %gi\n", (double)PetscRealPart(a), (double)… in main()
20 PetscCall(PetscPrintf(PETSC_COMM_SELF, "Real rarray of length %" PetscInt_FMT "\n", n)); in main()
21 for (i = 0; i < n; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g,\n", (double)rarray[i])); in main()
27 PetscCall(PetscPrintf(PETSC_COMM_SELF, "Scalar rarray of length %" PetscInt_FMT "\n", n)); in main()
30 …PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g - %gi\n", (double)PetscRealPart(array[i]), (double)Pet… in main()
32 …PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g + %gi\n", (double)PetscRealPart(array[i]), (double)Pet… in main()
/petsc/src/ts/impls/implicit/radau5/
H A Dradau5.c19 PetscCallAbort(PETSC_COMM_SELF, VecPlaceArray(cvode->work, Y)); in FVPOL()
20 PetscCallAbort(PETSC_COMM_SELF, VecPlaceArray(cvode->workf, F)); in FVPOL()
23 PetscCallAbort(PETSC_COMM_SELF, TSGetDM(ts, &dm)); in FVPOL()
24 PetscCallAbort(PETSC_COMM_SELF, DMGetDMTS(dm, &tsdm)); in FVPOL()
25 PetscCallAbort(PETSC_COMM_SELF, DMTSGetIFunction(dm, &ifunction, NULL)); in FVPOL()
27 PetscCallAbort(PETSC_COMM_SELF, TSComputeRHSFunction(ts, *X, cvode->work, cvode->workf)); in FVPOL()
31 PetscCallAbort(PETSC_COMM_SELF, VecDuplicate(cvode->work, &yydot)); in FVPOL()
32 PetscCallAbort(PETSC_COMM_SELF, VecZeroEntries(yydot)); in FVPOL()
33 …PetscCallAbort(PETSC_COMM_SELF, TSComputeIFunction(ts, *X, cvode->work, yydot, cvode->workf, PETSC… in FVPOL()
34 PetscCallAbort(PETSC_COMM_SELF, VecScale(cvode->workf, -1.)); in FVPOL()
[all …]
/petsc/src/vec/is/is/tests/
H A Dex1.c28 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, 0, &n, PETSC_COPY_VALUES, &is)); in main()
30 PetscCheck(n == 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "ISGetSize"); in main()
39 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, n, indices, PETSC_COPY_VALUES, &is)); in main()
41 …for (i = 0; i < n; i++) PetscCheck(ii[i] == indices[i], PETSC_COMM_SELF, PETSC_ERR_PLIB, "ISGetInd… in main()
49 PetscCheck(!flg, PETSC_COMM_SELF, PETSC_ERR_PLIB, "ISPermutation"); in main()
51 …PetscCheck(rank != 0 || flg, PETSC_COMM_SELF, PETSC_ERR_PLIB, "ISGetInfo(IS_PERMUTATION,IS_LOCAL)"… in main()
52 …PetscCheck(rank == 0 || !flg, PETSC_COMM_SELF, PETSC_ERR_PLIB, "ISGetInfo(IS_PERMUTATION,IS_LOCAL)… in main()
54 PetscCheck(rank != 0 || flg, PETSC_COMM_SELF, PETSC_ERR_PLIB, "ISIdentity"); in main()
55 PetscCheck(rank == 0 || !flg, PETSC_COMM_SELF, PETSC_ERR_PLIB, "ISIdentity"); in main()
57 PetscCheck(rank != 0 || flg, PETSC_COMM_SELF, PETSC_ERR_PLIB, "ISGetInfo(IS_IDENTITY,IS_LOCAL)"); in main()
[all …]
H A Dex1f.F9024 PetscCallA(ISCreateGeneral(PETSC_COMM_SELF, n, indices, PETSC_COPY_VALUES, is, ierr))
26 PetscCheckA(n == 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Error getting size of zero IS')
35 PetscCallA(ISCreateGeneral(PETSC_COMM_SELF, n, indices, PETSC_COPY_VALUES, is, ierr))
38 PetscCheckA(ii(i) == indices(i), PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Error getting indices')
47 PetscCheckA(.not. flag, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Error checking permutation')
50 PetscCheckA((rank /= 0) .or. flag, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Error checking identity')
51 …PetscCheckA((rank == 0) .or. (.not. flag), PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Error checking identi…
55 PetscCheckA(flag, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Error checking permutation second time')
57 PetscCheckA(flag, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Error checking identity second time')
63 PetscCheckA(flag, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Error checking equal')
[all …]
H A Dex2.c23 PetscCall(ISCreateStride(PETSC_COMM_SELF, 0, 0, 2, &is)); in main()
25 PetscCheck(n == 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "ISCreateStride"); in main()
27 PetscCheck(start == 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "ISStrideGetInfo"); in main()
28 PetscCheck(stride == 2, PETSC_COMM_SELF, PETSC_ERR_PLIB, "ISStrideGetInfo"); in main()
30 PetscCheck(flg, PETSC_COMM_SELF, PETSC_ERR_PLIB, "ISStride"); in main()
38 PetscCall(ISCreateStride(PETSC_COMM_SELF, 10000, -8, 3, &is)); in main()
41 …for (i = 0; i < 10000; i++) PetscCheck(ii[i] == -8 + 3 * i, PETSC_COMM_SELF, PETSC_ERR_PLIB, "ISGe… in main()
H A Dex2f.F9022 PetscCallA(ISCreateStride(PETSC_COMM_SELF, ssize, stride, first, is, ierr))
24 PetscCheckA(n == 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Wrong result from ISCreateStride')
27 PetscCheckA(start == 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Wrong result from ISStrideGetInfo')
28 PetscCheckA(stride == 2, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Wrong result from ISStrideGetInfo')
31 PetscCheckA(flag, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Wrong result from PetscObjectTypeCompare')
41 PetscCallA(ISCreateStride(PETSC_COMM_SELF, ssize, stride, first, is, ierr))
45 … PetscCheckA(ii(i) == -11 + 3*i, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Wrong result from ISGetIndices')
/petsc/src/mat/tests/
H A Dex78.c61 PetscCall(PetscPrintf(PETSC_COMM_SELF, "\n Read matrix in ascii format ...\n")); in main()
62 PetscCall(PetscFOpen(PETSC_COMM_SELF, Ain, "r", &Afile)); in main()
71 …PetscCheck(fscanf(Afile, "%d %d %d", &m, &n, &nz) == 3, PETSC_COMM_SELF, PETSC_ERR_FILE_UNEXPECTED… in main()
73 PetscCall(PetscPrintf(PETSC_COMM_SELF, "m: %d, n: %d, nz: %d \n", m, n, nz)); in main()
74 …PetscCheck(m == n, PETSC_COMM_SELF, PETSC_ERR_ARG_SIZ, "Number of rows, cols must be same for this… in main()
75 PetscCall(MatCreate(PETSC_COMM_SELF, &A)); in main()
82 …PetscCheck(fscanf(Afile, "%d %d %le", &row, &col, (double *)&val) == 3, PETSC_COMM_SELF, PETSC_ERR… in main()
94 PetscCall(VecCreate(PETSC_COMM_SELF, &b)); in main()
97 PetscCall(PetscPrintf(PETSC_COMM_SELF, "\n Read rhs in ascii format ...\n")); in main()
98 PetscCall(PetscFOpen(PETSC_COMM_SELF, rhs, "r", &bfile)); in main()
[all …]
H A Dex4.c37 PetscCall(ISCreateStride(PETSC_COMM_SELF, m, 0, 1, &irow)); in main()
38 PetscCall(ISCreateStride(PETSC_COMM_SELF, n, 0, 1, &icol)); in main()
46 PetscCall(PetscViewerGetSubViewer(PETSC_VIEWER_STDOUT_WORLD, PETSC_COMM_SELF, &sviewer)); in main()
48 PetscCall(PetscViewerRestoreSubViewer(PETSC_VIEWER_STDOUT_WORLD, PETSC_COMM_SELF, &sviewer)); in main()
60 PetscCall(ISCreateStride(PETSC_COMM_SELF, 3, 2, 1, &irow)); in main()
61 PetscCall(ISCreateStride(PETSC_COMM_SELF, 5, 4, 1, &icol)); in main()
70 PetscCall(PetscViewerGetSubViewer(PETSC_VIEWER_STDOUT_WORLD, PETSC_COMM_SELF, &sviewer)); in main()
72 PetscCall(PetscViewerRestoreSubViewer(PETSC_VIEWER_STDOUT_WORLD, PETSC_COMM_SELF, &sviewer)); in main()
79 PetscCall(ISCreateStride(PETSC_COMM_SELF, 10, 0, 1, &icol)); in main()
85 PetscCall(PetscViewerGetSubViewer(PETSC_VIEWER_STDOUT_WORLD, PETSC_COMM_SELF, &sviewer)); in main()
[all …]
H A Dex152.c20 …PetscCheck(metis_ierr != METIS_ERROR_INPUT, PETSC_COMM_SELF, PETSC_ERR_LIB, "ParMETIS error due to…
21 …PetscCheck(metis_ierr != METIS_ERROR_MEMORY, PETSC_COMM_SELF, PETSC_ERR_LIB, "ParMETIS error due t…
22 … PetscCheck(metis_ierr != METIS_ERROR, PETSC_COMM_SELF, PETSC_ERR_LIB, "ParMETIS general error"); \
58 PetscCall(PetscFOpen(PETSC_COMM_SELF, fname, "r", &fp)); in main()
61 …PetscCheck(red == (size_t)(size + 1), PETSC_COMM_SELF, PETSC_ERR_SYS, "Unable to read from data fi… in main()
68 …PetscCheck(red == (size_t)(ni + 1), PETSC_COMM_SELF, PETSC_ERR_SYS, "Unable to read from data file… in main()
74 …PetscCheck(red == (size_t)(xadj[i + 1] - xadj[i]), PETSC_COMM_SELF, PETSC_ERR_SYS, "Unable to read… in main()
77 PetscCall(PetscFClose(PETSC_COMM_SELF, fp)); in main()
80 PetscCall(PetscFOpen(PETSC_COMM_SELF, fname, "r", &fp)); in main()
86 …PetscCheck(red == (size_t)(ndims * ni), PETSC_COMM_SELF, PETSC_ERR_SYS, "Unable to read from data … in main()
[all …]
H A Dex72.c47 …PetscCheck(flag, PETSC_COMM_SELF, PETSC_ERR_USER_INPUT, "Please use -fin <filename> to specify the… in main()
49 …PetscCheck(flag, PETSC_COMM_SELF, PETSC_ERR_USER_INPUT, "Please use -fout <filename> to specify th… in main()
56 PetscCall(PetscFOpen(PETSC_COMM_SELF, filein, "r", &file)); in main()
62 PetscCall(PetscFClose(PETSC_COMM_SELF, file)); in main()
63 PetscCall(PetscPrintf(PETSC_COMM_SELF, "M: %d, N: %d, nnz: %d\n", M, N, nz)); in main()
64 PetscCall(PetscPrintf(PETSC_COMM_SELF, "Reading matrix completes.\n")); in main()
74 …PetscCall(PetscPrintf(PETSC_COMM_SELF, "Writing matrix to binary file %s using PETSc %s format ...… in main()
75 PetscCall(PetscViewerBinaryOpen(PETSC_COMM_SELF, fileout, FILE_MODE_WRITE, &view)); in main()
78 PetscCall(PetscPrintf(PETSC_COMM_SELF, "Writing matrix completes.\n")); in main()
H A Dex48.c23 PetscCall(MatCreateSeqBAIJ(PETSC_COMM_SELF, bs, M, M, 1, NULL, &A)); in main()
25 PetscCall(MatCreateSeqAIJ(PETSC_COMM_SELF, M, M, 15, NULL, &B)); in main()
27 PetscCall(PetscRandomCreate(PETSC_COMM_SELF, &rdm)); in main()
29 PetscCall(VecCreateSeq(PETSC_COMM_SELF, M, &xx)); in main()
71 …if (rnorm > tol) PetscCall(PetscPrintf(PETSC_COMM_SELF, "Error: MatNorm_FROBENIUS()- NormA=%16.14e… in main()
75 …if (rnorm > tol) PetscCall(PetscPrintf(PETSC_COMM_SELF, "Error: MatNorm_INFINITY()- NormA=%16.14e … in main()
79 …if (rnorm > tol) PetscCall(PetscPrintf(PETSC_COMM_SELF, "Error: MatNorm_NORM_1()- NormA=%16.14e No… in main()
103 …if (!flg) PetscCall(PetscPrintf(PETSC_COMM_SELF, "Error: MatGetValues bs = %" PetscInt_FMT "\n", b… in main()
115 …if (rnorm < -tol || rnorm > tol) PetscCall(PetscPrintf(PETSC_COMM_SELF, "MatMult not equal to MatM… in main()
120 if (!flg) PetscCall(PetscPrintf(PETSC_COMM_SELF, "Error: MatMult()\n")); in main()
[all …]
/petsc/src/vec/vec/tests/
H A Dex60.c16 PetscCall(VecCreate(PETSC_COMM_SELF, &x)); in main()
27 PetscCall(VecCreateSeqCUDAWithArray(PETSC_COMM_SELF, bs, n, NULL, &x1)); in main()
28 PetscCall(VecCreateSeqCUDAWithArray(PETSC_COMM_SELF, bs, n, NULL, &x2)); in main()
29 PetscCall(VecCreateSeqCUDAWithArray(PETSC_COMM_SELF, bs, n, NULL, &x3)); in main()
33 PetscCall(VecCreateSeqKokkosWithArray(PETSC_COMM_SELF, bs, n, NULL, &x1)); in main()
34 PetscCall(VecCreateSeqKokkosWithArray(PETSC_COMM_SELF, bs, n, NULL, &x2)); in main()
35 PetscCall(VecCreateSeqKokkosWithArray(PETSC_COMM_SELF, bs, n, NULL, &x3)); in main()
39 PetscCall(VecCreateSeqHIPWithArray(PETSC_COMM_SELF, bs, n, NULL, &x1)); in main()
40 PetscCall(VecCreateSeqHIPWithArray(PETSC_COMM_SELF, bs, n, NULL, &x2)); in main()
41 PetscCall(VecCreateSeqHIPWithArray(PETSC_COMM_SELF, bs, n, NULL, &x3)); in main()
[all …]
H A Dex32.c39 PetscCall(PetscRandomCreate(PETSC_COMM_SELF, &rdm)); in main()
52 PetscCall(PetscRandomCreate(PETSC_COMM_SELF, &rdm2)); in main()
87 …for (i = 0; i < n - 1; i++) PetscCheck(X[i] <= X[i + 1], PETSC_COMM_SELF, PETSC_ERR_PLIB, "PetscSo… in main()
89 …PetscCheck(X[i] == X1[i], PETSC_COMM_SELF, PETSC_ERR_PLIB, "PetscIntSortSemiOrdered() rep %" Petsc… in main()
91 …for (i = 0; i < n - 1; i++) PetscCheck(X1[i] <= X1[i + 1], PETSC_COMM_SELF, PETSC_ERR_PLIB, "Petsc… in main()
95 …PetscCall(PetscPrintf(PETSC_COMM_SELF, "PetscSortInt() with %" PetscInt_FMT " integer… in main()
96 …PetscCall(PetscPrintf(PETSC_COMM_SELF, "PetscIntSortSemiOrdered() with %" PetscInt_FMT " integer… in main()
97 …PetscCall(PetscPrintf(PETSC_COMM_SELF, "Speedup of PetscIntSortSemiOrdered() was %g (0:1 = slower,… in main()
133 SETERRQ(PETSC_COMM_SELF, PETSC_ERR_PLIB, "PetscSortIntWithArray() produced wrong results!"); in main()
136 …for (i = 0; i < n - 1; i++) PetscCheck(W[i] <= W[i + 1], PETSC_COMM_SELF, PETSC_ERR_PLIB, "PetscSo… in main()
[all …]
H A Dex25.c26 PetscCall(VecCreateSeq(PETSC_COMM_SELF, N, &x)); in main()
28 PetscCall(VecCreateSeq(PETSC_COMM_SELF, 0, &x)); in main()
33 PetscCall(ISCreateStride(PETSC_COMM_SELF, N, 0, 1, &is1)); in main()
34 PetscCall(ISCreateStride(PETSC_COMM_SELF, N, 0, 1, &is2)); in main()
36 PetscCall(ISCreateStride(PETSC_COMM_SELF, 0, 0, 1, &is1)); in main()
37 PetscCall(ISCreateStride(PETSC_COMM_SELF, 0, 0, 1, &is2)); in main()
57 PetscCall(PetscPrintf(PETSC_COMM_SELF, "----\n")); in main()
/petsc/include/
H A Dpetscdevice_cuda.h39 …PetscCheckAbort(_p_cuda_err__ == cudaSuccess, PETSC_COMM_SELF, PETSC_ERR_GPU, "cuda error %d (%s) …
45 …PetscCheck(_p_cuda_err__ == cudaSuccess, PETSC_COMM_SELF, PETSC_ERR_GPU, "cuda error %d (%s) : %s"…
51 …PetscCheck(_p_cuda_err__ == cudaSuccess, PETSC_COMM_SELF, PETSC_ERR_GPU, "cuda error %d", (PetscEr…
57 …PetscCheckAbort(_p_cuda_err__ == cudaSuccess, PETSC_COMM_SELF, PETSC_ERR_GPU, "cuda error %d", (Pe…
76 SETERRQ(PETSC_COMM_SELF, PETSC_ERR_GPU_RESOURCE, \
82 …SETERRQ(PETSC_COMM_SELF, PETSC_ERR_GPU, "cuBLAS error %d (%s)", (PetscErrorCode)_p_cublas_stat__, …
95 …NITIALIZED) && (_p_cusparse_stat__ != CUSPARSE_STATUS_ALLOC_FAILED), PETSC_COMM_SELF, PETSC_ERR_GP…
99 …SETERRQ(PETSC_COMM_SELF, PETSC_ERR_GPU, "cuSPARSE errorcode %d (%s) : %s", (int)_p_cusparse_stat__…
106 …PetscCheck(_p_cusparse_stat__ == CUSPARSE_STATUS_SUCCESS, PETSC_COMM_SELF, PETSC_ERR_GPU, "cuSPARS…
117 SETERRQ(PETSC_COMM_SELF, PETSC_ERR_GPU_RESOURCE, \
[all …]
/petsc/src/sys/fileio/
H A Dfdir.c24 …PetscCheck((l1 + l2 + 2) <= n, PETSC_COMM_SELF, PETSC_ERR_ARG_SIZ, "Path length is greater than bu… in PetscPathJoin()
56 PetscCheck(!err, PETSC_COMM_SELF, PETSC_ERR_FILE_UNEXPECTED, "Could not create dir: %s", dir); in PetscMkdir()
84 …PetscCheck(!err, PETSC_COMM_SELF, PETSC_ERR_FILE_UNEXPECTED, "Could not generate a unique name usi… in PetscMkdtemp()
88 …PetscCheck(!err, PETSC_COMM_SELF, PETSC_ERR_FILE_UNEXPECTED, "Exceeds maximum retry time when crea… in PetscMkdtemp()
93 PetscCheck(dir, PETSC_COMM_SELF, PETSC_ERR_FILE_UNEXPECTED, "Could not create temporary dir"); in PetscMkdtemp()
116 …PetscCheck(!flg, PETSC_COMM_SELF, PETSC_ERR_FILE_UNEXPECTED, "Cannot access directory to delete: %… in PetscRMTree()
118 …PetscCheck(!flg, PETSC_COMM_SELF, PETSC_ERR_FILE_UNEXPECTED, "Specified path is a file - not a dir… in PetscRMTree()
129 …PetscCheck(!remove(loc), PETSC_COMM_SELF, PETSC_ERR_FILE_UNEXPECTED, "Could not delete file: %s", … in PetscRMTree()
133 …PetscCheck(!_rmdir(dir), PETSC_COMM_SELF, PETSC_ERR_FILE_UNEXPECTED, "Could not delete dir: %s", d… in PetscRMTree()
164 …PetscCheck(!flg, PETSC_COMM_SELF, PETSC_ERR_FILE_UNEXPECTED, "Cannot access directory to delete: %… in PetscRMTree()
[all …]
/petsc/src/ksp/ksp/tests/
H A Dex83.c18 PetscCall(MatCreateSeqDense(PETSC_COMM_SELF, triangle_size, triangle_size, NULL, &A)); in main()
22 PetscCall(MatCreateNest(PETSC_COMM_SELF, 1, NULL, 1, NULL, &A, &A_nest)); in main()
25 PetscCall(KSPCreate(PETSC_COMM_SELF, &ksp)); in main()
32 PetscCall(VecCreateSeq(PETSC_COMM_SELF, triangle_size, &sol)); in main()
33 PetscCall(VecCreateSeq(PETSC_COMM_SELF, triangle_size, &rhs)); in main()
43 PetscCall(VecCreateNest(PETSC_COMM_SELF, 1, NULL, &sol, &sol_nest)); in main()
44 PetscCall(VecCreateNest(PETSC_COMM_SELF, 1, NULL, &rhs, &rhs_nest)); in main()
54 PetscCall(VecCreateSeq(PETSC_COMM_SELF, triangle_size, &sol)); in main()
55 PetscCall(VecCreateSeq(PETSC_COMM_SELF, triangle_size, &rhs)); in main()
60 PetscCall(VecCreateNest(PETSC_COMM_SELF, 1, NULL, &sol, &sol_nest)); in main()
[all …]
/petsc/src/vec/is/is/tutorials/
H A Dex3.c22 PetscCall(ISCreateBlock(PETSC_COMM_SELF, bs, n, inputindices, PETSC_COPY_VALUES, &set)); in main()
30 PetscCall(PetscPrintf(PETSC_COMM_SELF, "Printing indices directly\n")); in main()
31 …for (i = 0; i < issize; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, "%" PetscInt_FMT "\n", indices… in main()
38 PetscCall(PetscPrintf(PETSC_COMM_SELF, "Printing block indices directly\n")); in main()
39 …for (i = 0; i < n; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, "%" PetscInt_FMT "\n", indices[i])); in main()
46 PetscCheck(isblock, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Index set is not blocked!"); in main()
52 PetscCheck(bs == 3, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Block size is not 3!"); in main()
58 PetscCheck(n == 4, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Number of blocks not 4!"); in main()
/petsc/src/sys/classes/matlabengine/
H A Dmatlab.c79 …PetscCheck(e->ep, PETSC_COMM_SELF, PETSC_ERR_LIB, "Unable to start MATLAB engine with %s", buffer); in PetscMatlabEngineCreate()
116 PetscCheck(!err, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error closing MATLAB engine"); in PetscMatlabEngineDestroy()
161 …PetscCheck(mengine->buffer[4] != '?', PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in evaluating MATLAB … in PetscMatlabEngineEvaluate()
186 …PetscCheck(mengine, PETSC_COMM_SELF, PETSC_ERR_ARG_NULL, "Null argument: probably PETSC_MATLAB_ENG… in PetscMatlabEngineGetOutput()
211 …PetscCheck(mengine, PETSC_COMM_SELF, PETSC_ERR_ARG_NULL, "Null argument: probably PETSC_MATLAB_ENG… in PetscMatlabEnginePrintOutput()
243 …PetscCheck(mengine, PETSC_COMM_SELF, PETSC_ERR_ARG_NULL, "Null argument: probably PETSC_MATLAB_ENG… in PetscMatlabEnginePut()
245 …PetscCheck(put, PETSC_COMM_SELF, PETSC_ERR_SUP, "Object %s cannot be put into MATLAB engine", obj-… in PetscMatlabEnginePut()
276 …PetscCheck(mengine, PETSC_COMM_SELF, PETSC_ERR_ARG_NULL, "Null argument: probably PETSC_MATLAB_ENG… in PetscMatlabEngineGet()
277 …PetscCheck(obj->name, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONGSTATE, "Cannot get object that has no na… in PetscMatlabEngineGet()
279 …PetscCheck(get, PETSC_COMM_SELF, PETSC_ERR_SUP, "Object %s cannot be gotten from MATLAB engine", o… in PetscMatlabEngineGet()
[all …]
/petsc/src/benchmarks/streams/
H A DMPIVersion.c42 …if (size == 2000) PetscCall(PetscPrintf(PETSC_COMM_SELF, "never printed %g\n", a[11])); // to prev… in main()
60 PetscCall(PetscFOpen(PETSC_COMM_SELF, "flops", "r", &fd)); in main()
61 …PetscCheck(fscanf(fd, "%lg", &prate) == 1, PETSC_COMM_SELF, PETSC_ERR_FILE_READ, "Unable to read f… in main()
62 PetscCall(PetscFClose(PETSC_COMM_SELF, fd)); in main()
63 …PetscCall(PetscPrintf(PETSC_COMM_SELF, "%3d %11.1f Rate (MB/s) %6.1f\n", size, rate, rate / prat… in main()
65 PetscCall(PetscFOpen(PETSC_COMM_SELF, "flops", "w", &fd)); in main()
66 PetscCall(PetscFPrintf(PETSC_COMM_SELF, fd, "%g\n", rate)); in main()
67 PetscCall(PetscFClose(PETSC_COMM_SELF, fd)); in main()
68 PetscCall(PetscPrintf(PETSC_COMM_SELF, "%3d %11.1f Rate (MB/s) %6.1f\n", size, rate, 1.0)); in main()
/petsc/src/dm/impls/plex/
H A Dplexply.c42 PetscCheck(match, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "File is not a valid PLY file"); in DMPlexCreatePLYFromFile()
46 PetscCheck(match, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "File is not a valid PLY file"); in DMPlexCreatePLYFromFile()
51 PetscCheck(!isAscii, PETSC_COMM_SELF, PETSC_ERR_SUP, "PLY ascii format not yet supported"); in DMPlexCreatePLYFromFile()
55 … PetscCheck(match, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Invalid version of PLY file, %s", line); in DMPlexCreatePLYFromFile()
67 …PetscCheck(match, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unable to parse PLY file header: %s", lin… in DMPlexCreatePLYFromFile()
70 …PetscCheck(match, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unable to parse PLY file header: %s", lin… in DMPlexCreatePLYFromFile()
73 …PetscCheck(snum == 1, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unable to parse PLY file header: %s",… in DMPlexCreatePLYFromFile()
82 …PetscCheck(Nvp < 16, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Cannot handle more than 16 property st… in DMPlexCreatePLYFromFile()
84 …PetscCheck(snum == 2, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unable to parse PLY file header: %s",… in DMPlexCreatePLYFromFile()
94 …PetscCheck(matchB, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unable to parse type in PLY file header:… in DMPlexCreatePLYFromFile()
[all …]
/petsc/src/snes/tutorials/ex10d/
H A Dex10.c157 PetscCheck(fptr, PETSC_COMM_SELF, PETSC_ERR_FILE_OPEN, "Could not open adj.in"); in main()
165 PetscCheck(fptr1, PETSC_COMM_SELF, PETSC_ERR_FILE_OPEN, "Could no open output file"); in main()
167 PetscCall(PetscFPrintf(PETSC_COMM_SELF, fptr1, "Rank is %d\n", rank)); in main()
169 PetscCheck(fgets(str, 256, fptr), PETSC_COMM_SELF, PETSC_ERR_FILE_READ, "fgets read failed"); in main()
173 …PetscCall(PetscFPrintf(PETSC_COMM_SELF, fptr1, "Node %" PetscInt_FMT " belongs to processor %" Pet… in main()
178 …PetscCall(PetscFPrintf(PETSC_COMM_SELF, fptr1, "Number of neighbors for the vertex %" PetscInt_FMT… in main()
190 … PetscCall(PetscFPrintf(PETSC_COMM_SELF, fptr1, "%" PetscInt_FMT " ", user.AdjM[user.Nvlocal][i])); in main()
192 PetscCall(PetscFPrintf(PETSC_COMM_SELF, fptr1, "\n")); in main()
196 …PetscCall(PetscFPrintf(PETSC_COMM_SELF, fptr1, "Total # of Local Vertices is %" PetscInt_FMT " \n"… in main()
230 …PetscCall(PetscFPrintf(PETSC_COMM_SELF, fptr1, "Before AOApplicationToPetsc, local indices are : \… in main()
[all …]
/petsc/src/sys/dll/
H A Ddlimpl.c69 …PetscCall(PetscError(PETSC_COMM_SELF, __LINE__, PETSC_FUNCTION_NAME, __FILE__, PETSC_ERR_FILE_OPEN… in PetscDLOpen()
73 …SETERRQ(PETSC_COMM_SELF, PETSC_ERR_FILE_OPEN, "Unable to open dynamic library:\n %s\n Error mess… in PetscDLOpen()
109 …SETERRQ(PETSC_COMM_SELF, PETSC_ERR_FILE_OPEN, "Unable to open dynamic library:\n %s\n Error mess… in PetscDLOpen()
115 SETERRQ(PETSC_COMM_SELF, PETSC_ERR_SUP_SYS, "Cannot use dynamic libraries on this platform"); in PetscDLOpen()
152 …SETERRQ(PETSC_COMM_SELF, PETSC_ERR_LIB, "Error closing dynamic library:\n Error message from Free… in PetscDLClose()
171 …SETERRQ(PETSC_COMM_SELF, PETSC_ERR_LIB, "Error closing dynamic library:\n Error message from dlcl… in PetscDLClose()
179 SETERRQ(PETSC_COMM_SELF, PETSC_ERR_SUP_SYS, "Cannot use dynamic libraries on this platform"); in PetscDLClose()
271 …PetscCheck(!e, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Error opening main executable as a dynamic l… in PetscDLSym()
283 SETERRQ(PETSC_COMM_SELF, PETSC_ERR_SUP_SYS, "Cannot use dynamic libraries on this platform"); in PetscDLSym()
286 SETERRQ(PETSC_COMM_SELF, PETSC_ERR_SUP_SYS, "Cannot use dynamic libraries on this platform"); in PetscDLSym()
[all …]

12345678910>>...53