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:          END IF
  
           IF (p%StC_DOF_MODE == DOFMode_Indept) THEN
              DO I = 1,2
                 Disp(I) = x%StC_x(J(I),i_pt)
              END DO
           ELSE !IF (p%StC_DOF_MODE == DOFMode_Omni) THEN
              Disp = SQRT(x%StC_x(1,i_pt)**2+x%StC_x(3,i_pt)**2) ! constant assignment to vector
           END IF
  
           DO I = 1,2
              TmpRAry = p%F_TBL(:,J(I))-Disp(I)
              TmpRAry = ABS(TmpRAry)
              M = MINLOC(TmpRAry,1)
  
negative.code:    ! local variables
     INTEGER(IntKi)                                           :: ErrStat2       ! error status
     INTEGER(IntKi)                                           :: I              ! Loop counter
     INTEGER(IntKi), DIMENSION(3)                             :: J = (/1, 3, 5/) ! Index to StC_x for each dimension 
     INTEGER(IntKi)                                           :: M              ! location of closest table position
     INTEGER(IntKi)                                           :: Nrows          ! Number of rows in F_TBL
     REAL(ReKi)                                               :: Slope          !
     REAL(ReKi)                                               :: DX             !
     REAL(ReKi)                                               :: Disp(3)        ! Current displacement
     REAL(ReKi), ALLOCATABLE                                  :: TmpRAry(:)
     INTEGER(IntKi)                                           :: i_pt           !< generic counter for mesh point
  
  