From 34f97efa350b2e30f4fb3bc1680a0f51ddb54c38 Mon Sep 17 00:00:00 2001
From: Ansgar Burchardt <Ansgar.Burchardt@tu-dresden.de>
Date: Fri, 1 Sep 2017 11:47:49 +0200
Subject: [PATCH] remove unused local function `RecreateBNDSofNode`
---
gm/ugm.cc | 81 -------------------------------------------------------
1 file changed, 81 deletions(-)
diff --git a/gm/ugm.cc b/gm/ugm.cc
index e04560792..6d583da86 100644
--- a/gm/ugm.cc
+++ b/gm/ugm.cc
@@ -4763,87 +4763,6 @@ ELEMENT * NS_DIM_PREFIX FindFather (VERTEX *theVertex)
return(NULL);
}
-/****************************************************************************/
-/** \brief Search the boundary sides and recreate the corresponding BNDS
-
- * @param theMG - multigrid structure
- * @param theNode - node with new BNDP
-
- This function searches the boundary sides located at 'theNode' and recreate
- the corresponding BNDSs of these sides.
- It assumes that 'theNode' and the neighbour boundary nodes are in the same patch.
-
- @return <ul>
- <li> GM_OK if ok </li>
- <li> GM_ERROR when error occured. </li>
- </ul> */
-/****************************************************************************/
-
-static INT RecreateBNDSofNode (MULTIGRID *theMG, NODE *theNode)
-{
- ELEMENT *theElement, *sonElem, *NBElem;
- ELEMENT *SonList[MAX_SONS];
- BNDS *bnds;
- BNDP *sidebndp[MAX_CORNERS_OF_SIDE];
- INT m,i,j,k,l;
-
- /* first scan father element of theNode */
- theElement = VFATHER(MYVERTEX(theNode));
- GetAllSons(theElement, SonList);
- for (i=0; i<NSONS(theElement); i++)
- {
- /* search side in son element with theNode as a corner */
- sonElem = SonList[i];
- if (OBJT(sonElem)!=BEOBJ) continue;
- for (j=0; j<SIDES_OF_ELEM(sonElem); j++)
- for (k=0; k<CORNERS_OF_SIDE(sonElem,j); k++)
- if (CORNER(sonElem,CORNER_OF_SIDE(sonElem,j,k))==theNode)
- {
- bnds = ELEM_BNDS(sonElem,j);
- if (bnds==NULL) continue;
- if (BNDS_Dispose(MGHEAP(theMG),bnds))
- return(GM_ERROR);
- /* create BNDS from BNDPs of this element side */
- for (l=0; l<CORNERS_OF_SIDE(sonElem,j); l++)
- sidebndp[l] = V_BNDP(MYVERTEX(CORNER(sonElem,CORNER_OF_SIDE(sonElem,j,l))));
- bnds = BNDP_CreateBndS(MGHEAP(theMG),sidebndp,CORNERS_OF_SIDE(sonElem,j));
- SET_BNDS(sonElem,j,bnds);
- }
- }
-
- if (NTYPE(theNode)==MID_NODE) return(GM_OK);
-
- /* scan all neighbour elements of the father element */
- for (m=0; m<SIDES_OF_ELEM(theElement); m++)
- {
- NBElem = NBELEM(theElement,m);
- if (NBElem==NULL) continue;
- if (OBJT(NBElem)!=BEOBJ) continue;
- GetAllSons(NBElem, SonList);
- for (i=0; i<NSONS(NBElem); i++)
- {
- /* search side in son element with theNode as a corner */
- sonElem = SonList[i];
- if (OBJT(sonElem)!=BEOBJ) continue;
- for (j=0; j<SIDES_OF_ELEM(sonElem); j++)
- for (k=0; k<CORNERS_OF_SIDE(sonElem,j); k++)
- if (CORNER(sonElem,CORNER_OF_SIDE(sonElem,j,k))==theNode)
- {
- bnds = ELEM_BNDS(sonElem,j);
- if (bnds==NULL) continue;
- if (BNDS_Dispose(MGHEAP(theMG),bnds))
- return(GM_ERROR);
- /* create BNDS from BNDPs of this element side */
- for (l=0; l<CORNERS_OF_SIDE(sonElem,j); l++)
- sidebndp[l] = V_BNDP(MYVERTEX(CORNER(sonElem,CORNER_OF_SIDE(sonElem,j,l))));
- bnds = BNDP_CreateBndS(MGHEAP(theMG),sidebndp,CORNERS_OF_SIDE(sonElem,j));
- SET_BNDS(sonElem,j,bnds);
- }
- }
- }
- return(GM_OK);
-}
-
#ifdef __TWODIM__
--
GitLab