anchor.diff:           OtherState%sigma3(i,j) =  4.0_ReKi
         end if
         
  +      !!!if ( (.not. OtherState%VRTX(i,j)) .OR. (.not. OtherState%TESF(i,j)) ) then !RRD: trying to emulate the old AD14 SEPAR.f90 with SHIFT=NOT(TESF), go back to original commented!!! out above when done
  +      !!!       OtherState%sigma3(i,j) =  2_ReKi
  +      !!!   else
  +      !!!      OtherState%sigma3(i,j) = 1.0_ReKi
  +      !!!endif
         
         if ((.not. OtherState%TESF(i,j)) .and. (Kq*dalpha0 < 0.0_ReKi)) then
            OtherState%sigma3(i,j) = 1.0_ReKi
  
positive.code:                OtherState%sigma1(i,j) = 0.75_ReKi
              end if
           end if
        
        OtherState%sigma3(i,j) = 1.0_ReKi
        
  
negative.code:          if  ( Kafactor < 0.0_ReKi ) then ! .AND.  .NOT. OtherState%VRTX(OtherState%iBladeNode, OtherState%iBlade )  )then
              y%Cc = eta_e*Cc_pot*(sqrt(fprimeprime_c) - f_c_offset)
           else         
              !y%Cc = eta_e*Cc_pot*(sqrt(fprimeprime_c) - f_c_offset) + Cn_v*tan(alpha_e)*(1-xd%tau_v(OtherState%iBladeNode, OtherState%iBlade)/(2.0*T_VL))
              y%Cc = eta_e*Cc_pot*(sqrt(fprimeprime_c) - f_c_offset) + Cn_v*alpha_e*(1-xd%tau_v(OtherState%iBladeNode, OtherState%iBlade)/(2.0*T_VL)) !testing without tan 9/16/15
           end if
           
        elseif ( p%UAMod == 2 ) then
  