anchor.diff:  	self%nTracer = 0
   end subroutine
   
  -subroutine CopyPrivate(self, other)
  -	type(PlaneMesh), intent(inout) :: self
  -	type(PlaneMesh), intent(in) :: other
  -
  -	! TO DO
  +subroutine CopyPrivate(newMesh, oldMesh)
  +	type(PlaneMesh), intent(inout) :: newMesh
  +	type(PlaneMesh), intent(in) :: oldMesh
  +
  +	newMesh%initNest = oldMesh%initNest
  +	newMesh%AMR = oldMesh%AMR
  +	newMesh%nTracer = oldMesh%nTracer
  +	newMesh%nRootPanels = oldMesh%nRootPanels
  +
  +	call Copy(newMesh%particles, oldMesh%particles)
  +	call Copy(newMesh%edges, oldMesh%edges)
  +	call Copy(newMesh%panels, oldMesh%panels)
  +
   end subroutine
   
   !
  
positive.code: 	type(PlaneMesh), intent(in) :: self
  	integer(kint), intent(in) :: panelindex
  	!
  	integer(kint) :: edgeList(8), vertList(8), nVerts, j, k
  	type(Edges), pointer :: anEdges
  
  	call CCWEdgesAndParticlesAroundPanel(edgelist,vertlist, nverts, self, panelindex)
  
negative.code: 	integer(kint), intent(in) :: startPanel
  	!
  	real(kreal) :: currentMin, testDist, centroid(2)
  	integer(kint) :: adjPanels(8), nAdj, currentPanel, j
  	type(Particles), pointer :: aparticles
  	type(Panels), pointer :: apanels
  
  