Home
last modified time | relevance | path

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

12345678910>>...43

/dports/science/PETSc/petsc-3.14.1/src/sys/tests/
H A Dex35.c17 ierr = PetscPrintf(PETSC_COMM_SELF,"1st test\n");CHKERRQ(ierr); in main()
18 for (i=0; i<5; i++) {ierr = PetscPrintf(PETSC_COMM_SELF," %g\n",(double)x[i]);CHKERRQ(ierr);} in main()
19 ierr = PetscPrintf(PETSC_COMM_SELF,"---------------\n");CHKERRQ(ierr); in main()
21 for (i=0; i<5; i++) {ierr = PetscPrintf(PETSC_COMM_SELF," %g\n",(double)x[i]);CHKERRQ(ierr);} in main()
23 ierr = PetscPrintf(PETSC_COMM_SELF,"\n2nd test\n");CHKERRQ(ierr); in main()
25 ierr = PetscPrintf(PETSC_COMM_SELF,"---------------\n");CHKERRQ(ierr); in main()
29 ierr = PetscPrintf(PETSC_COMM_SELF,"\n3rd test\n");CHKERRQ(ierr); in main()
31 ierr = PetscPrintf(PETSC_COMM_SELF,"---------------\n");CHKERRQ(ierr); in main()
35 ierr = PetscPrintf(PETSC_COMM_SELF,"\n4th test\n");CHKERRQ(ierr); in main()
37 ierr = PetscPrintf(PETSC_COMM_SELF,"---------------\n");CHKERRQ(ierr); in main()
[all …]
H A Dex52.c39 ierr = PetscRandomCreate(PETSC_COMM_SELF,&rdm);CHKERRQ(ierr); in main()
52 ierr = PetscRandomCreate(PETSC_COMM_SELF,&rdm2);CHKERRQ(ierr); in main()
87 …for (i=0; i<n-1; i++) {if (X[i] > X[i+1]) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"PetscSortInt() p… in main()
93 …ierr = PetscPrintf(PETSC_COMM_SELF,"PetscSortInt() with %D integers, %D duplicate(s) … in main()
94 …ierr = PetscPrintf(PETSC_COMM_SELF,"PetscIntSortSemiOrdered() with %D integers, %D duplicate(s) … in main()
95 …ierr = PetscPrintf(PETSC_COMM_SELF,"Speedup of PetscIntSortSemiOrdered() was %g (0:1 = slower, >1 … in main()
129 …for (i=0; i<n-1; i++) {if (Y[i] > Y[i+1]) {PetscIntView(n,Y,0);SETERRQ(PETSC_COMM_SELF,PETSC_ERR_P… in main()
130 …for (i=0; i<n-1; i++) {if (W[i] > W[i+1]) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"PetscSortIntWith… in main()
139 …ierr = PetscPrintf(PETSC_COMM_SELF,"PetscSortIntWithArrayPair() with %D integers, %D duplic… in main()
142 …ierr = PetscPrintf(PETSC_COMM_SELF,"Speedup of PetscIntSortSemiOrderedWithArray() was %g (0:1 = sl… in main()
[all …]
/dports/science/PETSc/petsc-3.14.1/src/ts/impls/implicit/radau5/
H A Dradau5.c20 ierr = VecPlaceArray(cvode->work,Y);CHKERRABORT(PETSC_COMM_SELF,ierr); in FVPOL()
24 ierr = TSGetDM(ts,&dm);CHKERRABORT(PETSC_COMM_SELF,ierr); in FVPOL()
25 ierr = DMGetDMTS(dm,&tsdm);CHKERRABORT(PETSC_COMM_SELF,ierr); in FVPOL()
33 ierr = VecZeroEntries(yydot);CHKERRABORT(PETSC_COMM_SELF,ierr); in FVPOL()
36 ierr = VecDestroy(&yydot);CHKERRABORT(PETSC_COMM_SELF,ierr); in FVPOL()
54 ierr = VecGetSize(yydot,&n);CHKERRABORT(PETSC_COMM_SELF,ierr); in JVPOL()
55 ierr = MatCreateSeqDense(PETSC_COMM_SELF,n,n,DFY,&mat);CHKERRABORT(PETSC_COMM_SELF,ierr); in JVPOL()
56 ierr = VecZeroEntries(yydot);CHKERRABORT(PETSC_COMM_SELF,ierr); in JVPOL()
58 ierr = MatScale(mat,-1.0);CHKERRABORT(PETSC_COMM_SELF,ierr); in JVPOL()
59 ierr = MatDestroy(&mat);CHKERRABORT(PETSC_COMM_SELF,ierr); in JVPOL()
[all …]
/dports/science/PETSc/petsc-3.14.1/src/vec/is/is/tests/
H A Dex1.c28 ierr = ISCreateGeneral(PETSC_COMM_SELF,0,&n,PETSC_COPY_VALUES,&is);CHKERRQ(ierr); in main()
30 if (n != 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISGetSize"); in main()
42 if (ii[i] != indices[i]) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISGetIndices"); in main()
51 if (flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISPermutation"); in main()
56 if (!rank && !flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISIdentity"); in main()
57 if (rank && flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISIdentity"); in main()
75 if (!flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISEqual"); in main()
82 if (!flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISSort"); in main()
86 if (!flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISSort"); in main()
94 if (flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISStride"); in main()
[all …]
H A Dex1f.F9028 call ISCreateGeneral(PETSC_COMM_SELF,n,indices,PETSC_COPY_VALUES,is,ierr);CHKERRA(ierr)
30 … if (n .ne. 0) then; SETERRA(PETSC_COMM_SELF,PETSC_ERR_PLIB,'Error getting size of zero IS'); endif
40 call ISCreateGeneral(PETSC_COMM_SELF,n,indices,PETSC_COPY_VALUES,is,ierr);CHKERRA(ierr)
43 …if (ii(i+iis) .ne. indices(i)) then; SETERRA(PETSC_COMM_SELF,PETSC_ERR_PLIB,'Error getting indices…
52 if (flag) then; SETERRA(PETSC_COMM_SELF,PETSC_ERR_PLIB,'Error checking permutation'); endif
64 …if (.not. flag) then; SETERRA(PETSC_COMM_SELF,PETSC_ERR_PLIB,'Error checking identity second time'…
70 if (.not. flag) then; SETERRA(PETSC_COMM_SELF,PETSC_ERR_PLIB,'Error checking equal'); endif
76 if (.not. flag) then; SETERRA(PETSC_COMM_SELF,PETSC_ERR_PLIB,'Error checking sorted'); endif
81 if (flag) then; SETERRA(PETSC_COMM_SELF,PETSC_ERR_PLIB,'Error checking stride'); endif
83 if (flag) then; SETERRA(PETSC_COMM_SELF,PETSC_ERR_PLIB,'Error checking block'); endif
[all …]
H A Dex2f.F9026 call ISCreateStride(PETSC_COMM_SELF,ssize,stride,first,is,ierr)
28 …if (n .ne. 0) then; SETERRA(PETSC_COMM_SELF,PETSC_ERR_PLIB,'Wrong result from ISCreateStride'); en…
31 …if (start .ne. 0) then; SETERRA(PETSC_COMM_SELF,PETSC_ERR_PLIB,'Wrong result from ISStrideGetInfo'…
33 …if (stride .ne. 2) then; SETERRA(PETSC_COMM_SELF,PETSC_ERR_PLIB,'Wrong result from ISStrideGetInfo…
36 …if (.not. flag) then; SETERRA(PETSC_COMM_SELF,PETSC_ERR_PLIB,'Wrong result from PetscObjectTypeCom…
46 call ISCreateStride(PETSC_COMM_SELF,ssize,stride,first,is,ierr)
50 …if (ii(i+iis) .ne. -11 + 3*i) then; SETERRA(PETSC_COMM_SELF,PETSC_ERR_PLIB,'Wrong result from ISGe…
H A Dex2.c24 ierr = ISCreateStride(PETSC_COMM_SELF,0,0,2,&is);CHKERRQ(ierr); in main()
26 if (n != 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISCreateStride"); in main()
28 if (start != 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISStrideGetInfo"); in main()
29 if (stride != 2) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISStrideGetInfo"); in main()
31 if (!flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISStride"); in main()
39 ierr = ISCreateStride(PETSC_COMM_SELF,10000,-8,3,&is);CHKERRQ(ierr); in main()
43 if (ii[i] != -8 + 3*i) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"ISGetIndices"); in main()
/dports/science/PETSc/petsc-3.14.1/src/mat/tests/
H A Dex78.c63 ierr = PetscPrintf(PETSC_COMM_SELF,"\n Read matrix in ascii format ...\n");CHKERRQ(ierr); in main()
64 ierr = PetscFOpen(PETSC_COMM_SELF,Ain,"r",&Afile);CHKERRQ(ierr); in main()
75 ierr = PetscPrintf(PETSC_COMM_SELF,"m: %d, n: %d, nz: %d \n", m,n,nz);CHKERRQ(ierr); in main()
77 ierr = MatCreate(PETSC_COMM_SELF,&A);CHKERRQ(ierr); in main()
95 ierr = VecCreate(PETSC_COMM_SELF,&b);CHKERRQ(ierr); in main()
98 ierr = PetscPrintf(PETSC_COMM_SELF,"\n Read rhs in ascii format ...\n");CHKERRQ(ierr); in main()
99 ierr = PetscFOpen(PETSC_COMM_SELF,rhs,"r",&bfile);CHKERRQ(ierr); in main()
111 ierr = VecCreate(PETSC_COMM_SELF,&u);CHKERRQ(ierr); in main()
114 … ierr = PetscPrintf(PETSC_COMM_SELF,"\n Read exact solution in ascii format ...\n");CHKERRQ(ierr); in main()
115 ierr = PetscFOpen(PETSC_COMM_SELF,solu,"r",&ufile);CHKERRQ(ierr); in main()
[all …]
H A Dex72.c49 ierr = PetscFOpen(PETSC_COMM_SELF,filein,"r",&file);CHKERRQ(ierr); in main()
52 SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Could not process Matrix Market banner."); in main()
67 SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Size of sparse matrix is wrong."); in main()
70 ierr = PetscPrintf(PETSC_COMM_SELF,"M: %d, N: %d, nnz: %d\n",M,N,nz);CHKERRQ(ierr); in main()
83 … if (ninput < 2) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_FILE_UNEXPECTED,"Badly formatted input file\n"); in main()
87 … if (ninput < 3) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_FILE_UNEXPECTED,"Badly formatted input file\n"); in main()
97 ierr = PetscFClose(PETSC_COMM_SELF,file);CHKERRQ(ierr); in main()
98 ierr = PetscPrintf(PETSC_COMM_SELF,"Reading matrix completes.\n");CHKERRQ(ierr); in main()
101 ierr = MatCreate(PETSC_COMM_SELF,&A);CHKERRQ(ierr); in main()
148 ierr = PetscViewerBinaryOpen(PETSC_COMM_SELF,fileout,FILE_MODE_WRITE,&view);CHKERRQ(ierr); in main()
[all …]
H A Dex152.c20 …if (n == METIS_ERROR_INPUT) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_LIB,"ParMETIS error due to wrong inp…
21 …else if (n == METIS_ERROR_MEMORY) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_LIB,"ParMETIS error due to ins…
22 else if (n == METIS_ERROR) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_LIB,"ParMETIS general error"); \
58 ierr = PetscFOpen(PETSC_COMM_SELF,fname,"r",&fp);CHKERRQ(ierr); in main()
60 …st, sizeof(idx_t), size+1, fp);if (red != (size_t) (size+1)) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SYS… in main()
66 …red = fread(xadj, sizeof(idx_t), ni+1, fp);if (red != (size_t) (ni+1)) SETERRQ(PETSC_COMM_SELF,PET… in main()
71 …j[i+1]-xadj[i], fp);if (red != (size_t) (xadj[i+1]-xadj[i])) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SYS… in main()
74 ierr = PetscFClose(PETSC_COMM_SELF,fp);CHKERRQ(ierr); in main()
77 ierr = PetscFOpen(PETSC_COMM_SELF,fname,"r",&fp);CHKERRQ(ierr); in main()
82 …of(PetscReal), ndims*ni, fp);if (red != (size_t) (ndims*ni)) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SYS… in main()
[all …]
H A Dex48.c24 ierr = MatCreateSeqBAIJ(PETSC_COMM_SELF,bs,M,M,1,NULL,&A);CHKERRQ(ierr); in main()
26 ierr = MatCreateSeqAIJ(PETSC_COMM_SELF,M,M,15,NULL,&B);CHKERRQ(ierr); in main()
28 ierr = PetscRandomCreate(PETSC_COMM_SELF,&rdm);CHKERRQ(ierr); in main()
30 ierr = VecCreateSeq(PETSC_COMM_SELF,M,&xx);CHKERRQ(ierr); in main()
132 ierr = PetscPrintf(PETSC_COMM_SELF,"Error: MatMult()\n");CHKERRQ(ierr); in main()
138 ierr = PetscPrintf(PETSC_COMM_SELF,"Error: MatMultAdd()\n");CHKERRQ(ierr); in main()
144 ierr = PetscPrintf(PETSC_COMM_SELF,"Error: MatMultTranspose()\n");CHKERRQ(ierr); in main()
154 ierr = MatCreateSeqDense(PETSC_COMM_SELF,M,40,NULL,&C);CHKERRQ(ierr); in main()
159 ierr = PetscPrintf(PETSC_COMM_SELF,"Error: MatMatMult()\n");CHKERRQ(ierr); in main()
162 ierr = MatCreateSeqDense(PETSC_COMM_SELF,M,40,NULL,&D);CHKERRQ(ierr); in main()
[all …]
H A Dex4.c37 ierr = ISCreateStride(PETSC_COMM_SELF,m,0,1,&irow);CHKERRQ(ierr); in main()
38 ierr = ISCreateStride(PETSC_COMM_SELF,n,0,1,&icol);CHKERRQ(ierr); in main()
46 … ierr = PetscViewerGetSubViewer(PETSC_VIEWER_STDOUT_WORLD,PETSC_COMM_SELF,&sviewer);CHKERRQ(ierr); in main()
48 …ierr = PetscViewerRestoreSubViewer(PETSC_VIEWER_STDOUT_WORLD,PETSC_COMM_SELF,&sviewer);CHKERRQ(ier… in main()
61 ierr = ISCreateStride(PETSC_COMM_SELF,3,2,1,&irow);CHKERRQ(ierr); in main()
62 ierr = ISCreateStride(PETSC_COMM_SELF,5,4,1,&icol);CHKERRQ(ierr); in main()
71 ierr = PetscViewerGetSubViewer(PETSC_VIEWER_STDOUT_WORLD,PETSC_COMM_SELF,&sviewer);CHKERRQ(ierr); in main()
73 …ierr = PetscViewerRestoreSubViewer(PETSC_VIEWER_STDOUT_WORLD,PETSC_COMM_SELF,&sviewer);CHKERRQ(ier… in main()
81 ierr = ISCreateStride(PETSC_COMM_SELF,10,0,1,&icol);CHKERRQ(ierr); in main()
87 ierr = PetscViewerGetSubViewer(PETSC_VIEWER_STDOUT_WORLD,PETSC_COMM_SELF,&sviewer);CHKERRQ(ierr); in main()
[all …]
/dports/science/PETSc/petsc-3.14.1/src/sys/fileio/
H A Dfdir.c24 …if ((l1+l2+2)>n) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_SIZ,"Path length is greater than buffer siz… in PetscPathJoin()
45 if (err) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_FILE_UNEXPECTED,"Could not create dir: %s",dir); in PetscMkdir()
109 …if (flg) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_FILE_UNEXPECTED,"Cannot access directory to delete: %s… in PetscRMTree()
111 …if (flg) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_FILE_UNEXPECTED,"Specified path is a file - not a dir:… in PetscRMTree()
122 …if (remove(loc)) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_FILE_UNEXPECTED,"Could not delete file: %s",lo… in PetscRMTree()
126 …if (_rmdir(dir)) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_FILE_UNEXPECTED,"Could not delete dir: %s",dir… in PetscRMTree()
146 …if (flg) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_FILE_UNEXPECTED,"Cannot access directory to delete: %s… in PetscRMTree()
148 …if (flg) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_FILE_UNEXPECTED,"Specified path is a file - not a dir:… in PetscRMTree()
156 …if (lstat(loc,&statbuf) <0) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_FILE_UNEXPECTED,"cannot run lstat()… in PetscRMTree()
160 …if (unlink(loc)) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_FILE_UNEXPECTED,"Could not delete file: %s",lo… in PetscRMTree()
[all …]
/dports/science/PETSc/petsc-3.14.1/src/vec/is/is/tutorials/
H A Dex3.c31 ierr = ISCreateBlock(PETSC_COMM_SELF,bs,n,inputindices,PETSC_COPY_VALUES,&set);CHKERRQ(ierr); in main()
39 ierr = PetscPrintf(PETSC_COMM_SELF,"Printing indices directly\n");CHKERRQ(ierr); in main()
41 ierr = PetscPrintf(PETSC_COMM_SELF,"%D\n",indices[i]);CHKERRQ(ierr); in main()
49 ierr = PetscPrintf(PETSC_COMM_SELF,"Printing block indices directly\n");CHKERRQ(ierr); in main()
51 ierr = PetscPrintf(PETSC_COMM_SELF,"%D\n",indices[i]);CHKERRQ(ierr); in main()
59 if (!isblock) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Index set is not blocked!"); in main()
65 if (bs != 3) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Block size is not 3!"); in main()
71 if (n != 4) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Number of blocks not 4!"); in main()
/dports/science/PETSc/petsc-3.14.1/src/dm/impls/plex/tests/
H A Dex37.c44 ierr = PetscPrintf(PETSC_COMM_SELF, " Number of SHELLS: %d \n", Nsh);CHKERRQ(ierr); in PrintEGADS()
48 ierr = PetscPrintf(PETSC_COMM_SELF, " Number of FACES: %d \n", Nf);CHKERRQ(ierr); in PrintEGADS()
52 ierr = PetscPrintf(PETSC_COMM_SELF, " Number of LOOPS: %d \n", Nl);CHKERRQ(ierr); in PrintEGADS()
55 ierr = PetscPrintf(PETSC_COMM_SELF, " Number of EDGES: %d \n", Ne);CHKERRQ(ierr); in PrintEGADS()
59 ierr = PetscPrintf(PETSC_COMM_SELF, " Number of NODES: %d \n", Nv);CHKERRQ(ierr); in PrintEGADS()
66 ierr = PetscPrintf(PETSC_COMM_SELF, " LOOP ID: %d\n", id);CHKERRQ(ierr); in PrintEGADS()
219 ierr = PetscPrintf(PETSC_COMM_SELF, " Node ID = %d (%d)\n", id, id-1); in main()
262 ierr = PetscPrintf(PETSC_COMM_SELF, " Edge ID = %d (%D) \n", eid, v); in main()
422 if (c > 0) {ierr = PetscPrintf(PETSC_COMM_SELF, ", ");} in main()
425 ierr = PetscPrintf(PETSC_COMM_SELF, ")\n"); in main()
[all …]
/dports/math/deal.ii/dealii-803d21ff957e349b3799cd3ef2c840bc78734305/include/deal.II/lac/
H A Dpetsc_solver.h355 const MPI_Comm & mpi_communicator = PETSC_COMM_SELF,
405 const MPI_Comm & mpi_communicator = PETSC_COMM_SELF,
455 const MPI_Comm & mpi_communicator = PETSC_COMM_SELF,
522 const MPI_Comm & mpi_communicator = PETSC_COMM_SELF,
573 const MPI_Comm & mpi_communicator = PETSC_COMM_SELF,
622 const MPI_Comm & mpi_communicator = PETSC_COMM_SELF,
672 const MPI_Comm & mpi_communicator = PETSC_COMM_SELF,
727 const MPI_Comm & mpi_communicator = PETSC_COMM_SELF,
777 const MPI_Comm & mpi_communicator = PETSC_COMM_SELF,
828 const MPI_Comm & mpi_communicator = PETSC_COMM_SELF,
[all …]
/dports/science/PETSc/petsc-3.14.1/src/dm/impls/plex/
H A Dplexply.c45 if (!match) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "File is not a valid PLY file"); in DMPlexCreatePLYFromFile()
49 if (!match) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "File is not a valid PLY file"); in DMPlexCreatePLYFromFile()
54 if (isAscii) SETERRQ(PETSC_COMM_SELF, PETSC_ERR_SUP, "PLY ascii format not yet supported"); in DMPlexCreatePLYFromFile()
58 …if (!match) SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Invalid version of PLY file, %s", line… in DMPlexCreatePLYFromFile()
69 …if (!match) SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unable to parse PLY file header: %s", … in DMPlexCreatePLYFromFile()
72 …if (!match) SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unable to parse PLY file header: %s", … in DMPlexCreatePLYFromFile()
112 …if (!match) SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unable to parse PLY file header: %s", … in DMPlexCreatePLYFromFile()
115 …if (!match) SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Unable to parse PLY file header: %s", … in DMPlexCreatePLYFromFile()
129 …if (!match) SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "File is not a valid PLY file: %s", lin… in DMPlexCreatePLYFromFile()
149 ierr = VecCreate(PETSC_COMM_SELF, &coordinates);CHKERRQ(ierr); in DMPlexCreatePLYFromFile()
[all …]
/dports/science/PETSc/petsc-3.14.1/src/sys/classes/matlabengine/
H A Dmatlab.c67 if (!e->ep) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_LIB,"Unable to start MATLAB engine on %s",machine); in PetscMatlabEngineCreate()
107 if (ierr) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_LIB,"Error closing Matlab engine"); in PetscMatlabEngineDestroy()
228 …if (!put) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_SUP,"Object %s cannot be put into MATLAB engine",obj-… in PetscMatlabEnginePut()
258 …if (!obj->name) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"Cannot get object that has no na… in PetscMatlabEngineGet()
260 …if (!get) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_SUP,"Object %s cannot be gotten from MATLAB engine",o… in PetscMatlabEngineGet()
305 …if (ierr) {PetscError(PETSC_COMM_SELF,__LINE__,"PETSC_MATLAB_ENGINE_",__FILE__,PETSC_ERR_PLIB,PETS… in PETSC_MATLAB_ENGINE_()
308 …if (ierr) {PetscError(PETSC_COMM_SELF,__LINE__,"PETSC_MATLAB_ENGINE_",__FILE__,PETSC_ERR_PLIB,PETS… in PETSC_MATLAB_ENGINE_()
313 …if (ierr) {PetscError(PETSC_COMM_SELF,__LINE__,"PETSC_MATLAB_ENGINE_",__FILE__,PETSC_ERR_PLIB,PETS… in PETSC_MATLAB_ENGINE_()
316 …if (ierr) {PetscError(PETSC_COMM_SELF,__LINE__,"PETSC_MATLAB_ENGINE_",__FILE__,PETSC_ERR_PLIB,PETS… in PETSC_MATLAB_ENGINE_()
318 …if (ierr) {PetscError(PETSC_COMM_SELF,__LINE__,"PETSC_MATLAB_ENGINE_",__FILE__,PETSC_ERR_PLIB,PETS… in PETSC_MATLAB_ENGINE_()
[all …]
/dports/science/PETSc/petsc-3.14.1/src/dm/impls/swarm/
H A Ddata_bucket.c358 if (pid < 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_USER,"index must be >= 0"); in DMSwarmDataFieldAccessPoint()
376 if (pid < 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_USER,"index must be >= 0"); in DMSwarmDataFieldAccessPointOffset()
477 if (index < 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_USER,"index must be >= 0"); in DMSwarmDataFieldInsertPoint()
494 if (index < 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_USER,"index must be >= 0"); in DMSwarmDataBucketRemovePointAtIndex()
630 ierr = DMSwarmDataBucketView_stdout(PETSC_COMM_SELF,db);CHKERRQ(ierr); in DMSwarmDataBucketView_SEQ()
633 SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"No support for ascii output"); in DMSwarmDataBucketView_SEQ()
636 SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"No support for binary output"); in DMSwarmDataBucketView_SEQ()
639 SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"No support for HDF5 output"); in DMSwarmDataBucketView_SEQ()
656 SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"No support for ascii output"); in DMSwarmDataBucketView_MPI()
659 SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"No support for binary output"); in DMSwarmDataBucketView_MPI()
[all …]
/dports/science/PETSc/petsc-3.14.1/src/snes/tutorials/ex10d/
H A Dex10.c168 if (!fptr) SETERRQ(PETSC_COMM_SELF,0,"Could not open adj.in"); in main()
176 if (!fptr1) SETERRQ(PETSC_COMM_SELF,0,"Could no open output file"); in main()
204 ierr = PetscFPrintf(PETSC_COMM_SELF,fptr1,"\n");CHKERRQ(ierr); in main()
248 ierr = PetscFPrintf(PETSC_COMM_SELF,fptr1,"\n");CHKERRQ(ierr); in main()
258 ierr = PetscFPrintf(PETSC_COMM_SELF,fptr1,"\n");CHKERRQ(ierr); in main()
272 ierr = PetscFPrintf(PETSC_COMM_SELF,fptr1,"\n");CHKERRQ(ierr); in main()
283 ierr = PetscFPrintf(PETSC_COMM_SELF,fptr1,"\n");CHKERRQ(ierr); in main()
330 ierr = PetscFPrintf(PETSC_COMM_SELF,fptr1,"\n");CHKERRQ(ierr); in main()
335 ierr = PetscFPrintf(PETSC_COMM_SELF,fptr1,"\n");CHKERRQ(ierr); in main()
341 ierr = PetscFPrintf(PETSC_COMM_SELF,fptr1,"\n");CHKERRQ(ierr); in main()
[all …]
/dports/science/PETSc/petsc-3.14.1/src/sys/classes/viewer/impls/matlab/
H A Dvmatlab.c87 if (!mat) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_LIB,"Unable to get array %s from matlab",name); in PetscViewerMatlabGetArray()
112 …if (type == (PetscFileMode) -1) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ORDER,"Must call PetscViewerFile… in PetscViewerFileSetName_Matlab()
119 else SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Unknown file type"); in PetscViewerFileSetName_Matlab()
269 …if (ierr) {PetscError(PETSC_COMM_SELF,__LINE__,"PETSC_VIEWER_MATLAB_",__FILE__,PETSC_ERR_PLIB,PETS… in PETSC_VIEWER_MATLAB_()
272 …if (ierr) {PetscError(PETSC_COMM_SELF,__LINE__,"PETSC_VIEWER_MATLAB_",__FILE__,PETSC_ERR_PLIB,PETS… in PETSC_VIEWER_MATLAB_()
275 …if (ierr) {PetscError(PETSC_COMM_SELF,__LINE__,"PETSC_VIEWER_MATLAB_",__FILE__,PETSC_ERR_PLIB,PETS… in PETSC_VIEWER_MATLAB_()
278 …if (ierr) {PetscError(PETSC_COMM_SELF,__LINE__,"PETSC_VIEWER_MATLAB_",__FILE__,PETSC_ERR_PLIB,PETS… in PETSC_VIEWER_MATLAB_()
281 …if (ierr) {PetscError(PETSC_COMM_SELF,__LINE__,"PETSC_VIEWER_MATLAB_",__FILE__,PETSC_ERR_PLIB,PETS… in PETSC_VIEWER_MATLAB_()
283 …if (ierr) {PetscError(PETSC_COMM_SELF,__LINE__,"PETSC_VIEWER_MATLAB_",__FILE__,PETSC_ERR_PLIB,PETS… in PETSC_VIEWER_MATLAB_()
285 …if (ierr) {PetscError(PETSC_COMM_SELF,__LINE__,"PETSC_VIEWER_MATLAB_",__FILE__,PETSC_ERR_PLIB,PETS… in PETSC_VIEWER_MATLAB_()
[all …]
/dports/science/PETSc/petsc-3.14.1/src/sys/classes/viewer/impls/socket/
H A Dsend.c72 if (ierr) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SYS,"System error closing socket"); in PetscViewerDestroy_Socket()
110 SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_SYS,"system error open connection to %s",hostname); in PetscOpenSocket()
119 perror("SEND: error socket"); SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SYS,"system error"); in PetscOpenSocket()
133 perror(NULL); SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SYS,"system error"); in PetscOpenSocket()
143 …if (refcnt > 5) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_SYS,"Connection refused by remote host %s port … in PetscOpenSocket()
147 perror(NULL); SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SYS,"system error"); in PetscOpenSocket()
192 if (!hp) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SYS,"Unable to get hostent information from system");
197 …if ((s = socket(AF_INET,SOCK_STREAM,0)) < 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SYS,"Error running …
213 SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SYS,"Error from bind()");
246 …if ((*t = accept(listenport,(struct sockaddr*)&isa,(socklen_t*)&i)) < 0) SETERRQ(PETSC_COMM_SELF,P…
[all …]
/dports/science/PETSc/petsc-3.14.1/src/ksp/pc/impls/tfs/
H A Dcomm.c41 …if (PCTFS_num_nodes> (INT_MAX >> 1)) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Can't have more then … in PCTFS_comm_init()
74 …if (!vals||!work||!oprs) SETERRQ3(PETSC_COMM_SELF,PETSC_ERR_PLIB,"PCTFS_giop() :: vals=%D, work=%D… in PCTFS_giop()
77 …if ((oprs[0] == NON_UNIFORM)&&(n<2)) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"PCTFS_giop() :: non_u… in PCTFS_giop()
86 if (n<0) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_PLIB,"PCTFS_giop() :: n=%D<0?",n); in PCTFS_giop()
155 …if ((oprs[0] == NON_UNIFORM)&&(n<2)) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"PCTFS_grop() :: non_u… in PCTFS_grop()
164 if (n<0) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_PLIB,"gdop() :: n=%D<0?",n); in PCTFS_grop()
232 …if ((oprs[0] == NON_UNIFORM)&&(n<2)) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"PCTFS_grop_hc() :: no… in PCTFS_grop_hc()
241 …if (modfl_num_nodes) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"PCTFS_grop_hc() :: PCTFS_num_nodes no… in PCTFS_grop_hc()
244 if (n<0) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_PLIB,"PCTFS_grop_hc() :: n=%D<0?",n); in PCTFS_grop_hc()
352 …if (modfl_num_nodes) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"PCTFS_giop_hc() :: PCTFS_num_nodes no… in PCTFS_giop_hc()
[all …]
/dports/science/PETSc/petsc-3.14.1/include/
H A Dpetscctable.h45 if (key <= 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"key <= 0"); in PetscTableAdd()
46 …if (key > ta->maxkey) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"key %D is greater than la… in PetscTableAdd()
47 if (!data) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Null data"); in PetscTableAdd()
69 SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"Unsupported InsertMode"); in PetscTableAdd()
84 SETERRQ(PETSC_COMM_SELF,PETSC_ERR_COR,"Full table"); in PetscTableAdd()
95 if (key <= 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"key <= 0"); in PetscTableAddCount()
96 …if (key > ta->maxkey) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"key %D is greater than la… in PetscTableAddCount()
113 SETERRQ(PETSC_COMM_SELF,PETSC_ERR_COR,"Full table"); in PetscTableAddCount()
131 if (key <= 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Key <= 0"); in PetscTableFind()
132 …if (key > ta->maxkey) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"key %D is greater than la… in PetscTableFind()
/dports/science/PETSc/petsc-3.14.1/include/petsc/private/
H A Dpetscimpl.h215 if (!(h)) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_NULL,"Null Object: Parameter # %d",arg); \
219 … else SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Wrong type of object: Parameter # %d",arg); \
225 if (!(h)) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_NULL,"Null Object: Parameter # %d",arg); \
233 if (!(h)) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_NULL,"Null Pointer: Parameter # %d",arg); \
239 if (!(h)) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_NULL,"Null Pointer: Parameter # %d",arg);\
245 if (!(h)) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_BADPTR,"Null Pointer: Parameter # %d",arg); \
251 if (!(h)) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_BADPTR,"Null Pointer: Parameter # %d",arg); \
257 if (!(h)) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_NULL,"Null Pointer: Parameter # %d",arg); \
263 if (!(h)) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_NULL,"Null Pointer: Parameter # %d",arg); \
269 …if (!(f)) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_NULL,"Null Function Pointer: Parameter # %d",arg)…
[all …]

12345678910>>...43