Commits

Lisandro Dalcin  committed 69946e1

Extend IGAPointGetDims() to return number of properties

  • Participants
  • Parent commits 683567b

Comments (0)

Files changed (7)

File demo/AdvectionDiffusion.c

 
   PetscInt nen,dim;
   IGAPointGetSizes(p,0,&nen,0);
-  IGAPointGetDims(p,&dim,0);
+  IGAPointGetDims(p,&dim,0,0);
 
   const PetscReal *N;
   const PetscReal *N1;

File demo/BoundaryIntegral.c

 {
   PetscInt nen,dim;
   IGAPointGetSizes(p,0,&nen,0);
-  IGAPointGetDims(p,&dim,0);
+  IGAPointGetDims(p,&dim,0,0);
 
   const PetscReal *N1;
   IGAPointGetShapeFuns(p,1,&N1);

File demo/Laplace.c

 {
   PetscInt nen,dim;
   IGAPointGetSizes(p,0,&nen,0);
-  IGAPointGetDims(p,&dim,0);
+  IGAPointGetDims(p,&dim,0,0);
 
   const PetscReal *N1;
   IGAPointGetShapeFuns(p,1,&N1);
 {
   PetscInt nen,dim;
   IGAPointGetSizes(p,0,&nen,0);
-  IGAPointGetDims(p,&dim,0);
+  IGAPointGetDims(p,&dim,0,0);
 
   const PetscReal *N;
   IGAPointGetShapeFuns(p,0,&N);
 {
   PetscInt nen,dim;
   IGAPointGetSizes(p,0,&nen,0);
-  IGAPointGetDims(p,&dim,0);
+  IGAPointGetDims(p,&dim,0,0);
 
   PetscInt Nb[3] = {0,0,0};
   Nb[0] = p->parent->BD[0]->nnp;

File demo/Neumann.c

 {
   PetscInt nen,dim;
   IGAPointGetSizes(p,0,&nen,0);
-  IGAPointGetDims(p,&dim,0);
+  IGAPointGetDims(p,&dim,0,0);
 
   PetscReal x[3] = {0,0,0};
   IGAPointFormPoint(p,x);

File demo/Poisson.c

 {
   PetscInt  nen,dim;
   IGAPointGetSizes(p,0,&nen,0);
-  IGAPointGetDims(p,&dim,0);
+  IGAPointGetDims(p,&dim,0,0);
 
   PetscReal x[3] = {0,0,0};
   IGAPointFormPoint(p,x);

File include/petiga.h

 PETSC_EXTERN PetscErrorCode IGAPointGetIndex(IGAPoint point,PetscInt *index);
 PETSC_EXTERN PetscErrorCode IGAPointGetCount(IGAPoint point,PetscInt *count);
 PETSC_EXTERN PetscErrorCode IGAPointGetSizes(IGAPoint point,PetscInt *neq,PetscInt *nen,PetscInt *dof);
-PETSC_EXTERN PetscErrorCode IGAPointGetDims(IGAPoint point,PetscInt *dim,PetscInt *nsd);
+PETSC_EXTERN PetscErrorCode IGAPointGetDims(IGAPoint point,PetscInt *dim,PetscInt *nsd,PetscInt *npd);
 PETSC_EXTERN PetscErrorCode IGAPointGetQuadrature(IGAPoint point,PetscReal *weigth,PetscReal *detJac);
 PETSC_EXTERN PetscErrorCode IGAPointGetBasisFuns(IGAPoint point,PetscInt der,const PetscReal *basisfuns[]);
 PETSC_EXTERN PetscErrorCode IGAPointGetShapeFuns(IGAPoint point,PetscInt der,const PetscReal *shapefuns[]);

File src/petigapoint.c

 
 #undef  __FUNCT__
 #define __FUNCT__ "IGAPointGetDims"
-PetscErrorCode IGAPointGetDims(IGAPoint point,PetscInt *dim,PetscInt *nsd)
+PetscErrorCode IGAPointGetDims(IGAPoint point,PetscInt *dim,PetscInt *nsd,PetscInt *npd)
 {
   PetscFunctionBegin;
   PetscValidPointer(point,1);
   if (dim) PetscValidIntPointer(dim,2);
   if (nsd) PetscValidIntPointer(nsd,3);
+  if (npd) PetscValidIntPointer(npd,4);
   if (dim) *dim = point->dim;
   if (nsd) *nsd = point->nsd;
+  if (npd) *nsd = point->npd;
   PetscFunctionReturn(0);
 }