anchor.diff:     
      
      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, denom
  +   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.
  
positive.code:    real(ReKi),       intent(  out) :: Cd                    ! Coefficient of drag (-)
     real(ReKi),       intent(  out) :: Cm                    ! Pitch moment coefficient (-)
     real(ReKi),       intent(  out) :: Cd0                   ! Minimum Cd value (-)
     integer(IntKi),   intent(  out) :: ErrStat               ! Error status of the operation
     character(*),     intent(  out) :: ErrMsg                ! Error message if ErrStat /= ErrID_None
     
  
negative.code:       tmpRoot = 0.0_ReKi
     else
        
        call GetSteadyOutputs(AFInfo, alpha, Cl, Cd, Cm, Cd0, Cm0, ErrStat, ErrMsg)
           if (ErrStat >= AbortErrLev ) return
     
        Cn =  Cl*cos(alpha) + (Cd-Cd0)*sin(alpha)
  