anchor.diff:           ELSE
               C_Brake(2,i_pt) = 0
            END IF
  +!FIXME: do we need the Z direction here also?
   
         END IF
      enddo
  
positive.code:             enddo
           END IF
  
        ENDIF
  
  
        ! compute damping for dxdt%StC_x(2) and dxdt%StC_x(4)
        IF (p%StC_CMODE == ControlMode_None) THEN
           m%C_ctrl(1,:) = p%C_X
           m%C_ctrl(2,:) = p%C_Y
  
           m%C_Brake = 0.0_ReKi
           m%F_fr    = 0.0_ReKi
  
negative.code:       INTEGER(IntKi),                INTENT(  OUT)  :: ErrStat     !< Error status of the operation
        CHARACTER(*),                  INTENT(  OUT)  :: ErrMsg      !< Error message if ErrStat /= ErrID_None
  
        REAL(ReKi), dimension(3)                        :: K          ! tuned mass damper stiffness
        Real(ReKi)                                      :: denom      ! denominator for omni-direction factors
        integer(IntKi)                                  :: i_pt       ! Generic counter for mesh point
  
  