anchor.diff:     m%FirstWarn_M = .true.   
      
      OtherState%sigma1    = 1.0_ReKi
  -   OtherState%sigma1c    = 1.0_ReKi
  -   OtherState%sigma1m    = 1.0_ReKi
  +   OtherState%sigma1c   = 1.0_ReKi
  +   OtherState%sigma1m   = 1.0_ReKi
      OtherState%sigma3    = 1.0_ReKi
      
   #ifdef UA_OUTS
  
positive.code:    
     Kafactor      = Kalpha_f*dalpha0  ! indicates if the airfoil is moving towards alpha0 [ Kafactor < 0.0 ] or away [ Kafactor > 0.0]
     
     if (p%UAMod == 2) then   !Added modifiers for Tfn, Tfc and Tfm depending on the aerodynamic state, this set of values can be optimized for different airfoils or wind conditions
        if ( fprimeprime>0.7 .AND. TESF .AND. .NOT.LESF .AND. .NOT.VRTX ) then
  	      OtherState%sigma1(i,j)=1.0!0.2
  	      OtherState%sigma1c(i,j)=1.0!0.2
  	      OtherState%sigma1m(i,j)=1.0!0.1
        elseif ((fprimeprime<=0.7).AND.(TESF).AND.(.NOT.LESF).AND. NOT.VRTX ) then
  	      OtherState%sigma1(i,j)=1.0!0.5
  	      OtherState%sigma1c(i,j)=1.0!0.8
  	      OtherState%sigma1m(i,j)=1.0!0.3
  	  elseif ((xd%tau_V(i,j)<T_VL).AND.(xd%tau_V(i,j)>0.001).AND.(TESF)) then
            OtherState%sigma1(i,j)=2.0!4.0
            OtherState%sigma1c(i,j)=1.0!1.0
            OtherState%sigma1m(i,j)=1.0!0.2
       elseif ((TESF).AND.(LESF)) then
  	   OtherState%sigma1(i,j)=2.0!4.0
  	   OtherState%sigma1c(i,j)=1.0!1.0
  	   OtherState%sigma1m(i,j)=1.0!0.3
  	elseif ((LESF).AND.(.NOT.TESF)) then
  	   OtherState%sigma1(i,j)=1.0!0.2
  	   OtherState%sigma1c(i,j)=1.0!0.2
  	   OtherState%sigma1m(i,j)=1.0!0.2
  	elseif ((fprimeprime<=0.7).AND.(.NOT.TESF)) then
  	   OtherState%sigma1(i,j)=0.5!0.5
  	   OtherState%sigma1c(i,j)=1.0!0.5
  	   OtherState%sigma1m(i,j)=1.0!2.0
  	elseif ((fprimeprime>0.7).AND.(.NOT.TESF)) then
  	   OtherState%sigma1(i,j)=0.5!4.0
  	   OtherState%sigma1c(i,j)=1.0!0.4
  	   OtherState%sigma1m(i,j)=1.0!2.0
  	else
  	   OtherState%sigma1(i,j)=1.0_ReKi
  	   OtherState%sigma1c(i,j)=1.0_ReKi
  	   OtherState%sigma1m(i,j)=1.0_ReKi
          endif
       else
     if ( TESF ) then  ! Flow is continuing or starting to separate
  
        if (Kafactor < 0.0_ReKi) then
              ! We are moving towards alpha0
           OtherState%sigma1(i,j) = 2.0_ReKi  ! This must be the first check
  
negative.code: !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  
  ! This code is taken from ADv14 but doesn't reflect the original intent of the UA theory document
  #ifdef TEST_THEORY
  IF ( p%UAMod /= 2 ) THEN
     IF ( alpha_filt_cur * Cn_prime_diff < 0. ) THEN
        T_f   = T_f0*1.5
     ELSE
        T_f   = T_f0
     ENDIF
  ENDIF
  #endif   
  !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  
        ! Compute alpha_f using Eqn 1.34
  