anchor.diff:      sigfrac0(ElemTo)=sigfrac0(ElemFrom)
       sigfrac(ElemTo)=sigfrac(ElemFrom)
       decfrac(ElemTo)=decfrac(ElemFrom)
  -
  -    CALL CNmanager_CopyElemnt(ElemFrom,ElemTo)
  -    CALL pEC_ElemData(ElemFrom)%EC_CopyElem (pEC_ElemData(ElemTo))
  -
  -    !--- copy stress
  -    RetVal4=0
  -    RetVal8=0
  -    CALL CNmanager_Get_sigalt(ElemFrom,RetVal8)
  -    RetVal4=RetVal8*ElemCrackingClassOverlapping%rAreaRatio
  -    CALL CNmanager_Set_sigalt(ElemTo,RetVal4)
  -    !--- try to set the stress to half its value --- for testing
  -    RetVal4=RetVal8*ElemCrackingClassMain%rAreaRatio
  -    CALL CNmanager_Set_sigalt(ElemFrom,RetVal4)
   
       end subroutine EC_CopyElemsData
   !##############################################################################
  
positive.code:     his(1:573,ElemTo,1)=his(1:573,ElemFrom,1)
  
      nnn2(ElemTo,1)=nnn2(ElemFrom,1)
      !!--- lumped mass matrix
      do j=1,4
          ym(j,ElemTo)=ym(j,ElemFrom)*ElemCrackingClassMain%rAreaRatio
          ym(j,ElemFrom)=ym(j,ElemFrom)*ElemCrackingClassOverlapping%rAreaRatio
      end do
  
      fhg(ElemTo,1:8)=fhg(ElemFrom,1:8)
      fhghis(ElemTo,1:8)=fhghis(ElemFrom,1:8)
  
negative.code: 
      implicit none
      type ( EC_ElemCrackingClass ), intent(inout) :: ElemCrackingClassMain,ElemCrackingClassOverlapping
      integer, intent(in) :: ElemFrom,ElemTo,bMain
      !-- bMain=1 copy to a main elem.... -- bMain=0 copy to an overlapping elem....
  
      common/wblock8/  abc(573,nume,4), his(573,nume,4)
      real abc,his
  