anchor.diff:     
      k_alpha  = Get_k_       ( M, beta_M, C_nalpha/2.0_ReKi, A1, A2, b1, b2 )                 ! Eqn 1.11a
      k_q      = Get_k_       ( M, beta_M, C_nalpha         , A1, A2, b1, b2 )                 ! Eqn 1.11b
  -   T_alpha  = T_I * k_alpha                                                 ! Eqn 1.10a
  -   T_q      = T_I * k_q                                                     ! Eqn 1.10b
  +   T_alpha  = T_I * k_alpha * 0.75                                                 ! Eqn 1.10a -RRD 9/28 added *0.75 that seemed to be missing
  +   T_q      = T_I * k_q * 0.75                                                     ! Eqn 1.10b -RRD 9/28 added *0.75
         
         ! These quantities are needed for the update state calculations, but are then updated themselves based on the logic which follows
      T_f           = T_f0 / OtherState%sigma1(i,j)       ! Eqn 1.34
  
positive.code:    
     
        ! Compute Cc_pot using eqn 1.28
     Cc_pot          = Cn_alpha_q_circ*tan(alpha_e+alpha0)
     
     
     if (OtherState%FirstPass(i,j)) then
        Cn_pot_minus1 = Cn_pot
  
negative.code:       Get_Cc_FS   = Cn_alpha_q_circ * sqrt(fprimeprime) * tan(alpha_e + alpha0) * eta_e
     else if ( UAMod == 2 ) then
        ! use equation 1.38
       ! Get_Cc_FS   = Cn_alpha_q_circ * (sqrt(fprimeprime) - 0.2_ReKi) * tan(alpha_e + alpha0) * eta_e
        Get_Cc_FS   = Cn_alpha_q_circ * (sqrt(fprimeprime) - 0.2_ReKi) * alpha_e * eta_e !testing this version without tan here and in fc retrieval
     else
        ! implementation error!  Cannot have UAMod other than 0,1,2
     end if
  