anchor.diff:                           , ErrStat   = ErrStat      &
                            , ErrMess   = ErrMsg       )
   
  -   CALL MeshPositionNode ( Mesh = y%ReactionForce   &
  -                         , INode = 1                &
  -                         , Pos = TmpPos             &
  -                         , ErrStat   = ErrStat      &
  -                         , ErrMess   = ErrMsg       )
   
      DO i=1,p%elem_total
          DO j=1,p%node_elem
  
positive.code:    CALL MeshCopy ( SrcMesh  = u%PointLoad      &
                   , DestMesh = y%BldForce       &
                   , CtrlCode = MESH_SIBLING     &
                   , Force           = .TRUE.    &
                   , Moment          = .TRUE.    &
                   , ErrStat  = ErrStat          &
                   , ErrMess  = ErrMsg           )
     CALL MeshCommit ( Mesh    = y%ReactionForce &
                      ,ErrStat = ErrStat         &
                      ,ErrMess = ErrMsg          )
  
negative.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(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
  