Searched refs:tf_trial (Results 1 – 1 of 1) sorted by relevance
100 real(kind=kreal) :: tf_trial(3), length_tft local147 tf_trial(1:3) = ctstate%tangentForce_trial(1:3)148 length_tft = dsqrt(dot_product(tf_trial,tf_trial))149 tangent(1:3) = tf_trial(1:3)/length_tft337 real(kind=kreal) :: tf_trial(3), length_tft, tangent(3), tf_final(3) local366 tf_trial(1:3) = ctstate%tangentForce_trial(1:3)367 length_tft = dsqrt(dot_product(tf_trial,tf_trial))368 tangent(1:3) = tf_trial(1:3)/length_tft