anchor.diff:    Re_BufSz  = 0
     Db_BufSz  = 0
     Int_BufSz  = 0
  -      Re_BufSz   = Re_BufSz   + SIZE(InData%F_stop)  ! F_stop
  -      Re_BufSz   = Re_BufSz   + SIZE(InData%F_ext)  ! F_ext
  -      Re_BufSz   = Re_BufSz   + SIZE(InData%F_fr)  ! F_fr
  -      Re_BufSz   = Re_BufSz   + SIZE(InData%C_ctrl)  ! C_ctrl
  -      Re_BufSz   = Re_BufSz   + SIZE(InData%C_Brake)  ! C_Brake
  -      Re_BufSz   = Re_BufSz   + SIZE(InData%F_table)  ! F_table
  +      Re_BufSz   = Re_BufSz   + 1  ! DummyOtherState
     IF ( Re_BufSz  .GT. 0 ) THEN 
        ALLOCATE( ReKiBuf(  Re_BufSz  ), STAT=ErrStat2 )
        IF (ErrStat2 /= 0) THEN 
  
positive.code: ! =======================
  ! =========  TMD_OtherStateType  =======
    TYPE, PUBLIC :: TMD_OtherStateType
      REAL(ReKi) , DIMENSION(1:2)  :: F_stop      ! Stop forces [-]
      REAL(ReKi) , DIMENSION(1:2)  :: F_ext      ! External forces (user defined) [-]
      REAL(ReKi) , DIMENSION(1:2)  :: F_fr      ! Friction forces [-]
      REAL(ReKi) , DIMENSION(1:2)  :: C_ctrl      ! Controlled Damping (On/Off) [-]
      REAL(ReKi) , DIMENSION(1:2)  :: C_Brake      ! Braking Damping [-]
      REAL(ReKi) , DIMENSION(1:2)  :: F_table      ! Tabled Stiffness [-]
    END TYPE TMD_OtherStateType
  ! =======================
  ! =========  TMD_ParameterType  =======
    TYPE, PUBLIC :: TMD_ParameterType
  
negative.code:   Db_Xferred  = 1
    Int_Xferred = 1
  
        ReKiBuf ( Re_Xferred:Re_Xferred+(1)-1 ) = InData%DummyOtherState
        Re_Xferred   = Re_Xferred   + 1
   END SUBROUTINE TMD_PackOtherState
  
   SUBROUTINE TMD_UnPackOtherState( ReKiBuf, DbKiBuf, IntKiBuf, Outdata, ErrStat, ErrMsg )
  