anchor.diff:           if (abs(Cn_temp) < 0.01_ReKi ) then
               KC%fprime_m = 0.0_ReKi
            else
  -            KC%fprime_m = (Cm_temp - Cd0_temp) / Cn_temp 
  +            KC%fprime_m = (Cm_temp - Cm0_temp) / Cn_temp 
            end if
         else
            KC%fprime_m = 0.0_ReKi
  
positive.code:    
     if (OtherState%FirstPass(misc%iBladeNode, misc%iBlade) .or. EqualRealNos(u%U, 0.0_ReKi) ) then ! note: if u%U is = in UpdateStates, BEMT shuts off UA; however, it could still be called with u%U=0 here
              
        call GetSteadyOutputs(AFInfo, u%alpha, y%Cl, y%Cd, y%Cm, BL_p%Cd0, ErrStat2, ErrMsg2)
           call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName)   
        
        
  
negative.code:    real(ReKi)                                             :: Cm_v, alpha_prime_f
     real(ReKi)                                             :: x_cp_hat                      ! center-of-pressure distance from LE in chord fraction
     real(ReKi)                                             :: Cm_common                     ! 
     real(ReKi)                                             :: Cm0
  
     integer(intKi)                                         :: ncols
     
  