anchor.diff:          INTEGER mElemEdgeNeighborsList(6)
           ! integer EdgeNode1,EdgeNode2,EdgeNode1N(4),EdgeNode2N(4),j
           type ( EC_ElemCrackingClass ) :: ElemCrackingClassMain(4),ElemCrackingClassOverlapping(4)
  -        INTEGER bElemValidMain(4),bElemValidOverlapping(4)
  +        INTEGER bElemValidMain(4),bElemValidOverlapping(4),ElemIdsNewMain(4),ElemIdsNewOverlapping(4)
           INTEGER edgeNodeOld1,edgeNodeOld2,edgeNodeNew1,edgeNodeNew2
           INTEGER bEdgeCracked !-- 0=not cracked, 1= cracked with elems added
  +        INTEGER nodeIdLocal,edge1,edge2,mMyEdgeId,mElemOther,mEdgeOther
   
           !- get new and old edge nodes
           edgeNodeOld1=ElemConnect(EC_ElemEdgesConnect(1,ElemEdgeId),ElemId)
  
positive.code: 
          bElemValidMain=0
          bElemValidOverlapping=0
          !-- crack the edge of the current elem,create 2 nodes, add 1 elem
          call EC_CreateElemsTemp(ElemId,ElemEdgeId,ElemConnect,ElemCrackingClassMain(1),ElemCrackingClassOverlapping(1), &
                                  edgeNodeNew1,edgeNodeNew2)
  
          !-- check that the elem are vaild wrt the connectivity
          bElemValidMain(1)= ElemCrackingClassMain(1)%EC_CheckElemValid ()
          bElemValidOverlapping(1)= ElemCrackingClassOverlapping(1)%EC_CheckElemValid ()
  
          !-- find the edge neighbors and crack their edges
          call pEC_ElemData(ElemId)%EC_GetElemEdgeNeighbors (ElemEdgeId,mElemEdgeNeighborsList)
  
negative.code:     end subroutine EC_CopyNodesData
  !##############################################################################
  !##############################################################################
      subroutine EC_CopyElemsData(ElemFrom,ElemTo,ElemCrackingClassMain,ElemCrackingClassOverlapping,ElemMaterial, freep,ym )
                               !-a(k03)    ,a(k04)      ,a(k02)      ,a(k57  ,a(k18)     , a(k08)      ,a(k20), a(k07), a(k09))
      use mod_parameters
      use CN_Objects_manager
      use EC_ElemCrackingBaseClass
  
      implicit none
      type ( EC_ElemCrackingClass ), intent(inout) :: ElemCrackingClassMain,ElemCrackingClassOverlapping
      integer, intent(in) :: ElemFrom,ElemTo
  
  
      common/wblock8/  abc(573,nume,4), his(573,nume,4)
      real abc,his
  
  