anchor.diff:                     ,ErrStat          = ErrStat            &
                      ,ErrMess          = ErrMsg             )
   
  -   CALL MeshCreate( BlankMesh        = y%ReactionForce  &
  -                   ,IOS              = COMPONENT_OUTPUT &
  -                   ,NNodes           = 1                &
  -                   ,Force            = .TRUE.           &
  -                   ,Moment           = .TRUE.           &
  -                   ,nScalars        = 0                 &
  -                   ,ErrStat         = ErrStat           &
  -                   ,ErrMess         = ErrMsg            )
  -
      CALL MeshConstructElement ( Mesh = u%RootMotion            &
                                , Xelement = ELEMENT_POINT      &
                                , P1       = 1                  &
  
positive.code:    REAL(DbKi),                   INTENT(IN   )  :: t           ! Current simulation time in seconds
     TYPE(BD_InputType),           INTENT(INOUT)  :: u           ! Inputs at t
     TYPE(BD_ParameterType),       INTENT(IN   )  :: p           ! Parameters
     TYPE(BD_ContinuousStateType), INTENT(INOUT)  :: x           ! Continuous states at t
     TYPE(BD_DiscreteStateType),   INTENT(IN   )  :: xd          ! Discrete states at t
     TYPE(BD_ConstraintStateType), INTENT(IN   )  :: z           ! Constraint states at t
     TYPE(BD_OtherStateType),      INTENT(INOUT)  :: OtherState  ! Other/optimization states
  
negative.code:    ErrMsg  = ""
     Echo = .FALSE.
     UnEc = -1
     CALL GetPath( InputFile, PriPath )     ! Input files will be relative to the path where the primary input file is located.
  
     CALL GetNewUnit(UnIn,ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
     CALL OpenFInpFile(UnIn,InputFile,ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
        IF (ErrStat >= AbortErrLev) RETURN
        
     !-------------------------- HEADER ---------------------------------------------
     CALL ReadCom(UnIn,InputFile,'File Header: Module Version (line 1)',ErrStat2,ErrMsg2,UnEc)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  