/dports/science/PETSc/petsc-3.14.1/src/dm/dt/tests/ |
H A D | ex1.c | 42 …if (x[i] <= x[i-1]) SETERRQ6(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Quadrature points not monotonically i… in CheckQuadrature_Basics() 45 …if (w[i] <= 0.) SETERRQ5(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Quadrature weight not positive, %D points… in CheckQuadrature_Basics() 79 …if ((PetscReal) ibeta != beta) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"lgamma() - math routine is u… in CheckQuadrature() 86 …if (norm2diff > eps * I_exact) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_PLIB, "Jacobi norm error %g\n", … in CheckQuadrature() 93 …if (err > tol) SETERRQ7(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Incorrectly integrated P_%D * P_%D using %… in CheckQuadrature() 131 …if (xdiff > xtol) SETERRQ5(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Mismatch quadrature point: %D points, a… in CheckJacobiQuadrature() 132 …if (wdiff > wtol) SETERRQ5(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Mismatch quadrature weight: %D points, … in CheckJacobiQuadrature()
|
/dports/science/PETSc/petsc-3.14.1/src/dm/impls/plex/tests/ |
H A D | ex11.c | 13 ierr = DMLabelCreate(PETSC_COMM_SELF, "Test Label", &label);CHKERRQ(ierr); in TestInsertion() 23 …if (val != values[i%5]) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Value %d for point %d shou… in TestInsertion() 32 if (!stratum) SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Stratum %d is empty!", v); in TestInsertion() 36 …if (points[i] != i*5+v) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Point %d should be %d", po… in TestInsertion() 46 …if (val != values[i%5]) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Value %d should be %d", va… in TestInsertion() 54 …if (val != values[i%5]) SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Value %d should be %d", va… in TestInsertion() 177 SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "FAIL: Vector size %d != 2\n", N); in TestEmptyStrata()
|
/dports/science/PETSc/petsc-3.14.1/src/mat/tests/ |
H A D | ex54.c | 97 ierr = ISCreateGeneral(PETSC_COMM_SELF,sz*bs,idx,PETSC_COPY_VALUES,is1+i);CHKERRQ(ierr); in main() 98 ierr = ISCreateGeneral(PETSC_COMM_SELF,sz*bs,idx,PETSC_COPY_VALUES,is2+i);CHKERRQ(ierr); in main() 107 …ierr = PetscPrintf(PETSC_COMM_SELF,"i=%D, flg=%d :bs=%D m=%D ov=%D nd=%D np=%D\n",i,flg,bs,m,ov,nd… in main() 122 ierr = VecCreateSeq(PETSC_COMM_SELF,mm,&xx);CHKERRQ(ierr); in main() 133 …ierr = PetscPrintf(PETSC_COMM_SELF,"[%d]Error:MatMult - Norm1=%16.14e Norm2=%16.14e\n",rank,s1norm… in main() 148 ierr = VecCreateSeq(PETSC_COMM_SELF,mm,&xx);CHKERRQ(ierr); in main() 159 …ierr = PetscPrintf(PETSC_COMM_SELF,"[%d]Error:MatMult - Norm1=%16.14e Norm2=%16.14e\n",rank,s1norm… in main()
|
H A D | ex109.c | 85 if (!equal) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"C != D"); in main() 92 if (!equal) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"D != AT*B (transpose(aij)*dense)"); in main() 100 if (!equal) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"D != C*A (dense*aij)"); in main() 107 if (!equal) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"D != A*C (aij*dense)"); in main() 116 if (!equal) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"D != B*C (dense*dense)"); in main() 124 if (!equal) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"D != B*C^T (dense*dense)"); in main()
|
H A D | ex198.c | 19 …if (!flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_USER,"Must indicate binary file with the -fA options"); in main() 22 …if (!flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_USER,"Must indicate binary file with the -fB options"); in main() 25 …if (!flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_USER,"Must indicate binary file with the -fC options"); in main()
|
H A D | ex34.c | 37 if (!flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_NOTSAMETYPE,"Error in MatMatMult() for C"); in main() 43 if (!flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_NOTSAMETYPE,"Error in MatMatMult() for C1"); in main() 53 if (!flg) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_NOTSAMETYPE,"Error in MatTransposeMatMult()"); in main()
|
/dports/science/PETSc/petsc-3.14.1/include/petsc/private/ |
H A D | petscfptimpl.h | 59 if (n < 0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"n < 0"); in PetscFPTCreate() 84 if (!data) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Null function name"); in PetscFPTAdd() 99 SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Function pointer table is full"); in PetscFPTAdd()
|
H A D | viewerhdf5impl.h | 16 …PetscStackPush(#func);_status = func args;PetscStackPop; if (_status) SETERRQ2(PETSC_COMM_SELF,PET… 20 …PetscStackPush(#func);ret = func args;PetscStackPop; if (ret < 0) SETERRQ2(PETSC_COMM_SELF,PETSC_E…
|
/dports/science/PETSc/petsc-3.14.1/src/ksp/pc/impls/tfs/ |
H A D | bitmask.c | 84 …if ((numer<0)||(denom<=0)) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_PLIB,"PCTFS_div_ceil() :: numer=%D !… in PCTFS_div_ceil() 97 …if (num_items<0) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Value Sent To PCTFS_len_bit_mask() Must b… in PCTFS_len_bit_mask() 115 …if (PCTFS_len_bit_mask(val)>len) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_PLIB,"The Bit Mask Isn't That L… in PCTFS_set_bit_mask()
|
/dports/science/PETSc/petsc-3.14.1/src/ksp/pc/tests/ |
H A D | ex4.c | 18 ierr = VecCreateSeq(PETSC_COMM_SELF,n,&b);CHKERRQ(ierr); in main() 19 ierr = VecCreateSeq(PETSC_COMM_SELF,n,&u);CHKERRQ(ierr); in main() 22 ierr = MatCreateSeqDense(PETSC_COMM_SELF,n,n,NULL,&mat);CHKERRQ(ierr); in main()
|
/dports/science/PETSc/petsc-3.14.1/src/dm/impls/da/ |
H A D | dalocal.c | 55 ierr = VecCreate(PETSC_COMM_SELF,g);CHKERRQ(ierr); in DMCreateLocalVector_DA() 136 …if (dim > 0) {if ((i < info.gxs) || (i >= info.gxs+info.gxm)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_… in DMDAGetCellPoint() 137 …if (dim > 1) {if ((j < info.gys) || (j >= info.gys+info.gym)) SETERRQ3(PETSC_COMM_SELF, PETSC_ERR_… in DMDAGetCellPoint() 297 …} else SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Point %d should be in [0, %d)", p, nC+… in DMDAGetConeSize() 298 } else SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Negative point %d is invalid", p); in DMDAGetConeSize() 301 SETERRQ(PETSC_COMM_SELF, PETSC_ERR_SUP, "Too lazy to do 3D"); in DMDAGetConeSize() 329 SETERRQ(PETSC_COMM_SELF, PETSC_ERR_SUP, "Too lazy to do cell cones"); in DMDAGetCone() 343 …} else SETERRQ2(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Point %d should be in [0, %d)", p, nC+… in DMDAGetCone() 344 } else SETERRQ1(PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Negative point %d is invalid", p); in DMDAGetCone() 347 SETERRQ(PETSC_COMM_SELF, PETSC_ERR_SUP, "Too lazy to do 3D"); in DMDAGetCone() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/vec/vscat/tests/ |
H A D | ex5.c | 101 ierr = VecCreateSeq(PETSC_COMM_SELF,n,&x);CHKERRQ(ierr); in main() 113 ierr = ISCreateGeneral(PETSC_COMM_SELF,n,ix,PETSC_COPY_VALUES,&isx);CHKERRQ(ierr); in main() 156 ierr = VecCreateSeq(PETSC_COMM_SELF,n,&x);CHKERRQ(ierr); in main() 157 ierr = VecCreateSeq(PETSC_COMM_SELF,n/2,&y);CHKERRQ(ierr); in main() 168 ierr = ISCreateGeneral(PETSC_COMM_SELF,n/2,ix,PETSC_COPY_VALUES,&isx);CHKERRQ(ierr); in main() 171 ierr = ISCreateStride(PETSC_COMM_SELF,32,0,1,&isy);CHKERRQ(ierr); in main()
|
H A D | ex4.c | 43 ierr = VecCreateSeq(PETSC_COMM_SELF,n,&y);CHKERRQ(ierr); in main() 58 ierr = ISCreateGeneral(PETSC_COMM_SELF,2,ix,PETSC_COPY_VALUES,&isx);CHKERRQ(ierr); in main() 59 ierr = ISCreateGeneral(PETSC_COMM_SELF,2,iy,PETSC_COPY_VALUES,&isy);CHKERRQ(ierr); in main() 113 ierr = ISCreateBlock(PETSC_COMM_SELF,bs,2,ix,PETSC_COPY_VALUES,&isx);CHKERRQ(ierr); in main() 114 ierr = ISCreateBlock(PETSC_COMM_SELF,bs,2,iy,PETSC_COPY_VALUES,&isy);CHKERRQ(ierr); in main()
|
/dports/science/PETSc/petsc-3.14.1/src/sys/objects/ |
H A D | prefix.c | 91 …if (prefix[0] == '-') SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Options prefix should not begin… in PetscObjectSetOptionsPrefix() 132 …if (prefix[0] == '-') SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Options prefix should not begin… in PetscObjectAppendOptionsPrefix() 200 …if (prefix[0] == '-') SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Options prefix should not begin… in PetscObjectPrependOptionsPrefix()
|
/dports/science/PETSc/petsc-3.14.1/src/sys/classes/draw/interface/ |
H A D | drect.c | 71 …if (!draw->ops->coordinatetopixel) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_SUP,"This draw type %s does … in PetscDrawCoordinateToPixel() 97 …if (!draw->ops->pixeltocoordinate) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_SUP,"This draw type %s does … in PetscDrawPixelToCoordinate() 124 …if (!draw->ops->rectangle) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_SUP,"This draw type %s does not supp… in PetscDrawRectangle()
|
/dports/science/PETSc/petsc-3.14.1/src/sys/tests/ |
H A D | ex37.c | 22 if (sz != 27) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Format size %d should be 27\n",(int)sz); in main() 24 if (sz != 29) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Format size %d should be 29\n",(int)sz); in main() 34 …if (sz != fullLength+1) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_PLIB,"PetscSNPrintfCount() count should… in main()
|
/dports/science/PETSc/petsc-3.14.1/src/mat/impls/sell/mpi/ |
H A D | mmsell.c | 44 ierr = MatCreate(PETSC_COMM_SELF,&Bnew);CHKERRQ(ierr); in MatDisAssemble_MPISELL() 186 ierr = VecCreateSeq(PETSC_COMM_SELF,ec,&sell->lvec);CHKERRQ(ierr); in MatSetUpMultiply_MPISELL() 188 ierr = ISCreateGeneral(PETSC_COMM_SELF,ec,garray,PETSC_COPY_VALUES,&from);CHKERRQ(ierr); in MatSetUpMultiply_MPISELL() 189 ierr = ISCreateStride(PETSC_COMM_SELF,ec,0,1,&to);CHKERRQ(ierr); in MatSetUpMultiply_MPISELL() 233 if (nt != n) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Hmm nt %D n %D",nt,n); in MatMPISELLDiagonalScaleLocalSetUp() 241 ierr = VecCreateSeq(PETSC_COMM_SELF,n,&auglydd);CHKERRQ(ierr); in MatMPISELLDiagonalScaleLocalSetUp() 255 if (nt > no) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_PLIB,"Hmm nt %D no %D",nt,n); in MatMPISELLDiagonalScaleLocalSetUp() 264 ierr = VecCreateSeq(PETSC_COMM_SELF,nt,&auglyoo);CHKERRQ(ierr); in MatMPISELLDiagonalScaleLocalSetUp()
|
/dports/science/PETSc/petsc-3.14.1/src/benchmarks/streams/ |
H A D | CUDAVersion.cu | 372 …ierr = PetscPrintf(PETSC_COMM_SELF, "\n[streamBenchmark] - results:\t%s\n\n", (ierr == 0) ? "PASSE… in main() 393 ierr = PetscPrintf(PETSC_COMM_SELF, "!!!!!No devices found!!!!!\n");CHKERRQ(ierr); in setupStream() 407 …ierr = PetscPrintf(PETSC_COMM_SELF, " Unable to determine device %d properties, exiting\n");CHKERR… in setupStream() 568 …ierr = PetscPrintf(PETSC_COMM_SELF, " device STREAM_Copy:\t\tError detected in device STREAM_Copy,… in runStream() 596 …ierr = PetscPrintf(PETSC_COMM_SELF, " device STREAM_Scale:\t\tError detected in device STREAM_Scal… in runStream() 611 …ierr = PetscPrintf(PETSC_COMM_SELF, " device STREAM_Add:\t\tError detected in device STREAM_Add, e… in runStream() 626 …ierr = PetscPrintf(PETSC_COMM_SELF, " device STREAM_Triad:\t\tError detected in device STREAM_Tria… in runStream() 784 …ierr = PetscPrintf(PETSC_COMM_SELF, " device STREAM_Copy:\t\tError detected in device STREAM_Copy,… in runStreamDouble() 811 …ierr = PetscPrintf(PETSC_COMM_SELF, " device STREAM_Scale:\t\tError detected in device STREAM_Scal… in runStreamDouble() 826 …ierr = PetscPrintf(PETSC_COMM_SELF, " device STREAM_Add:\t\tError detected in device STREAM_Add, e… in runStreamDouble() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/ksp/ksp/utils/schurm/ |
H A D | schurm.c | 244 …if (A00->rmap->n != A00->cmap->n) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_ARG_SIZ,"Local rows of A00 %D… in MatSchurComplementSetSubMatrices() 245 …if (A00->rmap->n != Ap00->rmap->n) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_ARG_SIZ,"Local rows of A00 %… in MatSchurComplementSetSubMatrices() 246 …if (Ap00->rmap->n != Ap00->cmap->n) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_ARG_SIZ,"Local rows of Ap00… in MatSchurComplementSetSubMatrices() 247 …if (A00->cmap->n != A01->rmap->n) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_ARG_SIZ,"Local columns of A00… in MatSchurComplementSetSubMatrices() 248 …if (A10->cmap->n != A00->rmap->n) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_ARG_SIZ,"Local columns of A10… in MatSchurComplementSetSubMatrices() 252 …if (A10->rmap->n != A11->rmap->n) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_ARG_SIZ,"Local rows of A10 %D… in MatSchurComplementSetSubMatrices() 385 …if (A00->rmap->n != A00->cmap->n) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_ARG_SIZ,"Local rows of A00 %D… in MatSchurComplementUpdateSubMatrices() 387 …if (Ap00->rmap->n != Ap00->cmap->n) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_ARG_SIZ,"Local rows of Ap00… in MatSchurComplementUpdateSubMatrices() 393 …if (A10->rmap->n != A11->rmap->n) SETERRQ2(PETSC_COMM_SELF,PETSC_ERR_ARG_SIZ,"Local rows of A10 %D… in MatSchurComplementUpdateSubMatrices() 766 …if ((!A01 || !A10) & !A11) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"Cannot assemble Spmat… in MatCreateSchurComplementPmat() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/sys/classes/viewer/impls/string/ |
H A D | stringv.c | 55 …if (!vstr->string) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ORDER,"Must call PetscViewerStringSetString()… in PetscViewerStringSPrintf() 108 …ierr = PetscViewerStringOpen(PETSC_COMM_SELF,vstr->head,vstr->maxlen-vstr->curlen,sviewer);CHKERRQ… in PetscViewerGetSubViewer_String() 183 if (!isstring) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONG,"Only for PETSCVIEWERSTRING"); in PetscViewerStringGetStringRead() 221 …if (len <= 2) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"String must have length at least 2… in PetscViewerStringSetString()
|
/dports/science/PETSc/petsc-3.14.1/src/mat/interface/ |
H A D | matrix.c | 559 …if (!mat->assembled) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"Not for unassembled matrix"… in MatGetRow() 560 if (mat->factortype) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"Not for factored matrix"); in MatGetRow() 675 if (mat->factortype) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"Not for factored matrix"); in MatGetRowUpperTriangular() 706 if (mat->factortype) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"Not for factored matrix"); in MatRestoreRowUpperTriangular() 1919 if (mat->factortype) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"Not for factored matrix"); in MatGetValues() 4001 if (b == x) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_IDN,"b and x vector cannot be the same"); in MatSOR() 6260 ierr = ISCreateGeneral(PETSC_COMM_SELF,numRows,rows,PETSC_COPY_VALUES,&is);CHKERRQ(ierr); in MatZeroRowsLocal() 6372 ierr = ISCreateGeneral(PETSC_COMM_SELF,numRows,rows,PETSC_COPY_VALUES,&is);CHKERRQ(ierr); in MatZeroRowsColumnsLocal() 6644 if (cols) {ierr = ISCreateStride(PETSC_COMM_SELF,A->cmap->N,0,1,cols);CHKERRQ(ierr);} in MatGetOwnershipIS() 9669 ierr = ISCreateStride(PETSC_COMM_SELF,mloc_sub,rstart,1,&isrow);CHKERRQ(ierr); in MatCreateRedundantMatrix() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/ksp/ksp/tutorials/ |
H A D | ex8.c | 162 …ierr = PetscPrintf(PETSC_COMM_SELF,"Nmesh points: %D x %D; subdomain partition: %D x %D; overlap: … in main() 163 ierr = PetscPrintf(PETSC_COMM_SELF,"IS:\n");CHKERRQ(ierr); in main() 165 ierr = PetscPrintf(PETSC_COMM_SELF," IS[%D]\n",i);CHKERRQ(ierr); in main() 168 ierr = PetscPrintf(PETSC_COMM_SELF,"IS_local:\n");CHKERRQ(ierr); in main() 170 ierr = PetscPrintf(PETSC_COMM_SELF," IS_local[%D]\n",i);CHKERRQ(ierr); in main()
|
/dports/science/PETSc/petsc-3.14.1/src/sys/f90-mod/ |
H A D | petscsysmod.F90 | 249 MPI_Comm PETSC_COMM_SELF 314 PETSC_COMM_SELF = c2 381 MPI_Comm PETSC_COMM_SELF 383 common /petscfortran10/ PETSC_COMM_SELF 385 data PETSC_COMM_SELF /0/
|
/dports/science/PETSc/petsc-3.14.1/src/snes/interface/ |
H A D | snespc.c | 105 } else SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"Preconditioner has no function"); in SNESGetNPCFunction() 111 } else SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"Preconditioner has no solution"); in SNESGetNPCFunction() 113 } else SETERRQ(PETSC_COMM_SELF,PETSC_ERR_ARG_WRONGSTATE,"No preconditioner set"); in SNESGetNPCFunction()
|
/dports/science/PETSc/petsc-3.14.1/src/vec/is/tests/ |
H A D | ex4f.F90 | 22 call ISCreateGeneral(PETSC_COMM_SELF,n,indices,PETSC_USE_POINTER,is,ierr);CHKERRA(ierr) 28 call ISCreateBlock(PETSC_COMM_SELF,bs,n,indices,PETSC_USE_POINTER,is,ierr);CHKERRA(ierr)
|