anchor.diff:        Re_Xferred   = Re_Xferred   + SIZE(InData%C_Brake)
         ReKiBuf ( Re_Xferred:Re_Xferred+(SIZE(InData%F_table))-1 ) = PACK(InData%F_table,.TRUE.)
         Re_Xferred   = Re_Xferred   + SIZE(InData%F_table)
  +      ReKiBuf ( Re_Xferred:Re_Xferred+(1)-1 ) = InData%F_k_x
  +      Re_Xferred   = Re_Xferred   + 1
  +      ReKiBuf ( Re_Xferred:Re_Xferred+(1)-1 ) = InData%F_k_y
  +      Re_Xferred   = Re_Xferred   + 1
    END SUBROUTINE TMD_PackMisc
   
    SUBROUTINE TMD_UnPackMisc( ReKiBuf, DbKiBuf, IntKiBuf, Outdata, ErrStat, ErrMsg )
  
positive.code:     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_MiscVarType
  ! =======================
  ! =========  TMD_ParameterType  =======
  
negative.code:       OutData%F_table = UNPACK(ReKiBuf( Re_Xferred:Re_Xferred+(SIZE(OutData%F_table))-1 ), mask1, 0.0_ReKi )
        Re_Xferred   = Re_Xferred   + SIZE(OutData%F_table)
      DEALLOCATE(mask1)
        OutData%F_k_x = ReKiBuf( Re_Xferred )
        Re_Xferred   = Re_Xferred + 1
        OutData%F_k_y = ReKiBuf( Re_Xferred )
        Re_Xferred   = Re_Xferred + 1
   END SUBROUTINE TMD_UnPackMisc
  
   SUBROUTINE TMD_CopyParam( SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg )
  