anchor.diff:     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_ContinuousStateType), INTENT(IN   )  :: 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
  
positive.code:       CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
     CALL ReadVar ( UnIn, InputFile, InputFileData%BldFile, 'MatFile', 'Name of the file containing properties for beam', ErrStat2, ErrMsg2, UnEc )
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  
     END SUBROUTINE BD_ReadPrimaryFile
  
  
negative.code:    CALL MeshCopy ( SrcMesh  = u%PointLoad      &
                   , DestMesh = y%BldForce       &
                   , CtrlCode = MESH_SIBLING     &
                   , IOS      = COMPONENT_OUTPUT &
                   , Force           = .TRUE.    &
                   , Moment          = .TRUE.    &
                   , ErrStat  = ErrStat          &
                   , ErrMess  = ErrMsg           )
     CALL MeshCopy( SrcMesh   = u%RootMotion     &
                   , DestMesh = y%ReactionForce  &
                   , CtrlCode = MESH_SIBLING     &
                   , IOS      = COMPONENT_OUTPUT &
                   , Force           = .TRUE.    &
                   , Moment          = .TRUE.    &
                   , ErrStat  = ErrStat          &
                   , ErrMess  = ErrMsg           )
     
     CALL MeshCommit ( Mesh    = y%ReactionForce &
                      ,ErrStat = ErrStat         &
                      ,ErrMess = ErrMsg          )
  