anchor.diff:                                                   , TranslationAcc_l  & ! If true, allocate TranslationAcc field
                                                    , RotationAcc_l       ! If true, allocate RotationAcc field
        INTEGER(IntKi)                             :: nScalars_l          ! If > 0, alloc n Scalars
  -     INTEGER i, j, k
  +     INTEGER i, j, k, ErrStat2
   
   
        
  
positive.code:                DestMesh%ElemTable(i)%maxelem = SrcMesh%ElemTable(i)%maxelem
                 DestMesh%ElemTable(i)%XElement = SrcMesh%ElemTable(i)%XElement
  
                 ALLOCATE(DestMesh%ElemTable(i)%Elements(DestMesh%ElemTable(i)%maxelem),STAT=ErrStat)
                 IF (ErrStat /=0) THEN
                    ErrStat = ErrID_Fatal
                    ErrMess=' MeshCopy: Error allocating ElemTable%Elements.'
                    RETURN !Early return
  
negative.code: 
                 DO j = 1,DestMesh%ElemTable(i)%nelem
  
                    ALLOCATE(DestMesh%ElemTable(i)%Elements(j)%ElemNodes(size(SrcMesh%ElemTable(i)%Elements(j)%ElemNodes)),STAT=ErrStat2)
                    IF (ErrStat2 /=0) THEN
                       ErrStat = ErrID_Fatal
                       ErrMess=' MeshCopy: Error allocating ElemTable%ElemNodes.'
                       RETURN !Early return
  