anchor.diff:  
                  DO j = 1,DestMesh%ElemTable(i)%nelem
   
  -                  ALLOCATE(DestMesh%ElemTable(i)%Elements(j)%ElemNodes(size(SrcMesh%ElemTable(i)%Elements(j)%ElemNodes)),STAT=ErrStat)
  -                  IF (ErrStat /=0) THEN
  +                  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
  
positive.code: 
              IF ( SrcMesh%Committed ) THEN
  
                 ALLOCATE(DestMesh%ElemList(DestMesh%maxelemlist))
                 IF (ErrStat /=0) THEN
                    ErrStat = ErrID_Fatal
                    ErrMess=' MeshCopy: Error allocating ElemList.'
                    RETURN !Early return
  
negative.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=ErrStat2)
                 IF (ErrStat2 /=0) THEN
                    ErrStat = ErrID_Fatal
                    ErrMess=' MeshCopy: Error allocating ElemTable%Elements.'
                    RETURN !Early return
  