anchor.diff:     integer(intki), parameter :: UA_Gonzalez      = 2   ! UAMod = 2 [Gonzalez's variant (changes in Cn,Cc,Cm)]
      integer(intki), parameter :: UA_MinemmaPierce = 3   ! UAMod = 3 [Minemma/Pierce variant (changes in Cc and Cm)]
      
  -   real(ReKi),     parameter :: Gonzales_factor = 0.2_ReKi   ! this factor, proposed by Gonzales (for "all" models) is used to modify Cc to account for negative values seen at f=0 (see Eqn 1.40)
  +   real(ReKi),     parameter :: Gonzalez_factor = 0.2_ReKi   ! this factor, proposed by Gonzalez (for "all" models) is used to modify Cc to account for negative values seen at f=0 (see Eqn 1.40)
      
      contains
      
  
positive.code:    character(*),     intent(  out) :: ErrMsg        ! Error message if ErrStat /= ErrID_None
     
     
     real(ReKi), parameter           :: fc_limit = (1.0_ReKi + Gonzales_factor)**2    ! normally, fc is limited by 1, but we're limiting (sqrt(fc)-Gonzales_factor) to 1
     real(ReKi)                      :: Cc, Cl, Cd, Cm, Cd0, Cm0, denom
     ErrStat = ErrID_None
     ErrMsg  = ''
        ! NOTE:  This subroutine call cannot live in Blade Element because BE module calls UnsteadyAero module.
     
    
     if (EqualRealNos(real(alpha,SiKi), 0.0_SiKi)) then
        
        Get_f_c_from_Lookup = 1.44_ReKi
        
     elseif (EqualRealNos(real(alpha,SiKi), real(alpha0,SiKi))) then
        
        Get_f_c_from_Lookup = 1.44_ReKi
        
     else if (EqualRealNos( real(c_nalpha_circ,SiKi), 0.0_SiKi )) then
        
        Get_f_c_from_Lookup = 1.44_ReKi
  
     else
           
  
negative.code:       
        if ( p%flookup ) then 
        !if ( p%UAMod == UA_Gonzalez ) then
           Cc_FS = BL_p%eta_e*KC%Cc_pot *(sqrt(KC%fprimeprime_c) - Gonzalez_factor)                                                                  ! Eqn 1.40  
        else
           Cc_FS = BL_p%eta_e*KC%Cc_pot * sqrt(KC%fprimeprime_c)                                                                                     ! Eqn 1.40 without Gonzalez's modification for negative Cc
        end if
  