anchor.diff:    DEALLOCATE(mask1)
       Re_Xferred   = Re_Xferred   + SIZE(OutData%bc)
     ENDIF
  +  IF ( ALLOCATED(OutData%F_ext) ) THEN
  +  ALLOCATE(mask1(SIZE(OutData%F_ext,1))); mask1 = .TRUE.
  +    OutData%F_ext = UNPACK(ReKiBuf( Re_Xferred:Re_Xferred+(SIZE(OutData%F_ext))-1 ),mask1,OutData%F_ext)
  +  DEALLOCATE(mask1)
  +    Re_Xferred   = Re_Xferred   + SIZE(OutData%F_ext)
  +  ENDIF
     Re_Xferred   = Re_Xferred-1
     Db_Xferred   = Db_Xferred-1
     Int_Xferred  = Int_Xferred-1
  
positive.code:    CHARACTER(*),    INTENT(  OUT) :: ErrMsg
  ! Local 
     INTEGER(IntKi)                 :: i,i1,i2,i3,i4,i5,j,k
  ! 
     ErrStat = ErrID_None
     ErrMsg  = ""
  
negative.code:   ErrStat = ErrID_None
    ErrMsg  = ""
  IF (ALLOCATED(OtherStateData%xdot)) THEN
  DO i1 = LBOUND(OtherStateData%xdot,1), UBOUND(OtherStateData%xdot,1)
    CALL BDyn_DestroyContState( OtherStateData%xdot(i1), ErrStat, ErrMsg )
  ENDDO
  ENDIF
  