anchor.diff:  
      real(ReKi)                     :: chi0, theta, Vx, Vy
      real(ReKi)                     :: psi, Re, fzero,  r
  -   real(ReKi)                     :: Rtip, localCl, localCd
  +   real(ReKi)                     :: Rtip
   
      integer(IntKi)                 :: i                                               ! Generic index
      integer(IntKi)                 :: j                                               ! Loops through nodes / elements
  
positive.code:                            errStat2, errMsg2)
        call SetErrStat( errStat2, errMsg2, errStat, errMsg, RoutineName ) 
        if (errStat >= AbortErrLev) return
  
        if ( abs(f1) < aTol ) then
           phiStar =  phiIn
           return
  
negative.code: 
        ! Local variables
     character(*), parameter                       :: RoutineName = 'BEMT_InitContraintStates'
     integer(IntKi)                                :: errStat2                ! temporary Error status of the operation
     
        ! Initialize variables for this routine
  