anchor.diff:      end subroutine EC_CopyNodesData
   !##############################################################################
   !##############################################################################
  -    subroutine EC_CopyElemsData(e1,e2,NodesCoordx, NodesCoordy, ElemConnect, DofIds, NodesDispl, &
  -                                ElemMaterial, usi  , freep , ym,SolStepCount)
  +    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
   
  
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:             call EC_CopyNodesData(nodesIds(i),nodesIds(i+4),NodesCoordx, NodesCoordy, DofIds, NodesDispl,usi,freep,ym)
          enddo
          !- copy elems data to the new nodes
          ! call EC_CopyElemsData(ElemId,EC_ElemCountCurrent+1,NodesCoordx, NodesCoordy, ElemConnect, DofIds, NodesDispl, &
          !                         ElemMaterial, usi  , freep , ym,SolStepCount)
          ! CALL pEC_ElemData(ElemId)%CopyElem (pEC_ElemData(EC_ElemCountCurrent+1))
  
          !---------------------------1- add Dof
          do j=1,4
  