/dports/science/PETSc/petsc-3.14.1/src/sys/tests/ |
H A D | ex35.c | 17 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 D | ex52.c | 39 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 D | radau5.c | 20 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 D | ex1.c | 28 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 D | ex1f.F90 | 28 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 D | ex2f.F90 | 26 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 D | ex2.c | 24 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 D | ex78.c | 63 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 D | ex72.c | 49 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 D | ex152.c | 20 …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 D | ex48.c | 24 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 D | ex4.c | 37 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 D | fdir.c | 24 …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 D | ex3.c | 31 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 D | ex37.c | 44 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 D | petsc_solver.h | 355 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 D | plexply.c | 45 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 D | matlab.c | 67 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 D | data_bucket.c | 358 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 D | ex10.c | 168 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 D | vmatlab.c | 87 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 D | send.c | 72 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 D | comm.c | 41 …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 D | petscctable.h | 45 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 D | petscimpl.h | 215 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 …]
|