Exemplo n.º 1
0
 int ME_OppVertexID(MEdge_ptr e, int vid) {
   int vid0 = MEnt_ID(e->vertex[0]);
   int vid1 = MEnt_ID(e->vertex[1]);
   if (vid0 == vid)
     return vid1;
   else if (vid1 == vid)
     return vid0;
   else
     return 0;
 }
Exemplo n.º 2
0
  int   ME_GlobalID(MEdge_ptr e) {
#ifdef MSTK_HAVE_MPI
    return   MEnt_GlobalID((MEntity_ptr) e);
#else
    return MEnt_ID((MEntity_ptr) e);
#endif
  }
Exemplo n.º 3
0
 void MR_VertexIDs_FNR3R4(MRegion_ptr r, int *nrv, int *rvertids) {
   int i;
   List_ptr rverts = MR_Vertices(r);
   *nrv = List_Num_Entries(rverts);
   for (i = 0; i < *nrv; i++)
     rvertids[i] = MEnt_ID(List_Entry(rverts,i));
 }
Exemplo n.º 4
0
  int   MR_GlobalID(MRegion_ptr r) {
#ifdef MSTK_HAVE_MPI
    return   MEnt_GlobalID((MEntity_ptr) r);
#else
    return MEnt_ID((MEntity_ptr) r);
#endif
  }
Exemplo n.º 5
0
 void ME_FaceIDs_F1(MEdge_ptr e, int *nef, int *efaceids) {
   List_ptr efaces = ((MEdge_Adj_F1 *)e->adj)->efaces; 
   *nef = 0;
   if (efaces) {
     int i;
     *nef = List_Num_Entries(efaces);
     for (i = 0; i < *nef; i++) 
       efaceids[i] = MEnt_ID(List_Entry(efaces,i));
   }
 }
Exemplo n.º 6
0
  void MF_VertexIDs_R2(MFace_ptr f, int dir, int startvertid, int *nfv,
                       int *fvertids) {
    MFace_Adj_R2 *adj;
    List_ptr fverts;
    int i, k=0, nv, fnd=0;

    adj = (MFace_Adj_R2 *) f->adj;
    nv = List_Num_Entries(adj->fvertices);

    if (!startvertid) {
      if (dir) {
        for (i = 0; i < nv; i++)
          fvertids[i] = MEnt_ID(List_Entry(adj->fvertices,i));
      }
      else {
	for (i = nv-1; i >= 0; i--)
          fvertids[i] = MEnt_ID(List_Entry(adj->fvertices,i));
      }
    }
    else {
      for (i = 0; i < nv; i++) {
	if (MEnt_ID(List_Entry(adj->fvertices,i)) == startvertid) {
	  fnd = 1;
	  k = i;
	  break;
	}
      }

      if (!fnd) {
	MSTK_Report("MF_VertexIDs_R2","Cannot find starting vertex",MSTK_FATAL);
      }

      if (dir) {
        for (i = 0; i < nv; i++)
          fvertids[i] = MEnt_ID(List_Entry(adj->fvertices,(k+i)%nv));
      }
      else {
        for (i = 0; i < nv; i++)
          fvertids[i] = MEnt_ID(List_Entry(adj->fvertices,(k+nv-i)%nv));
      }
    }
  }
Exemplo n.º 7
0
 void ME_FaceIDs_R1R2(MEdge_ptr e, int *nef, int *efaceids) {
   List_ptr efaces = ME_Faces_R1R2(e);
   if (efaces) {
     int i;
     *nef = List_Num_Entries(efaces);
     for (i = 0; i < *nef; i++) 
       efaceids[i] = MEnt_ID(List_Entry(efaces,i));
   }
   else
     *nef = 0;
 }
Exemplo n.º 8
0
 void ME_RegionIDs_F1(MEdge_ptr e, int *ner, int *eregionids) {
   int i;
   List_ptr eregs = ME_Regions_F1(e);
   *ner = 0;
   if (eregs) {
     *ner = List_Num_Entries(eregs);
     for (i = 0; i < *ner; i++)
       eregionids[i] = MEnt_ID(List_Entry(eregs,i));
     List_Delete(eregs);
   }
 }
Exemplo n.º 9
0
 int ME_VertexID(MEdge_ptr e, int i) {
   return MEnt_ID(e->vertex[i]);
 }
Exemplo n.º 10
0
 int ME_ID(MEdge_ptr e) {
   return MEnt_ID((MEntity_ptr) e);
 }
Exemplo n.º 11
0
 int MR_ID(MRegion_ptr r) {
   return MEnt_ID((MEntity_ptr) r);
 }