Commits

Lisandro Dalcin committed 27d0471

Add boundary flags to IGAPoint

  • Participants
  • Parent commits 580cee8

Comments (0)

Files changed (3)

 struct _n_IGAPoint {
   PetscInt refct;
   /**/
+  PetscBool atboundary;
+  PetscInt  boundary_id;
+  /**/
   PetscInt count;
   PetscInt index;
   /**/
   point->index = -1;
   point->count = element->nqp;
 
+  point->atboundary  = element->atboundary;
+  point->boundary_id = element->boundary_id;
+
   point->neq = element->neq;
   point->nen = element->nen;
   point->dof = element->dof;

src/petigaftn.F90

   type, bind(C) :: IGAPoint
      integer(kind=IGA_INTEGER_KIND) :: private_refct
 
+     integer(kind=IGA_LOGICAL_KIND) :: atboundary
+     integer(kind=IGA_INTEGER_KIND) :: boundary_id
+
      integer(kind=IGA_INTEGER_KIND) :: count
      integer(kind=IGA_INTEGER_KIND) :: index
      integer(kind=IGA_INTEGER_KIND) :: neq