Searched refs:dWdD (Results 1 – 1 of 1) sorted by relevance
98 dWdD = 3.0d+00 * t * ( t - 1.0d+00 ) / D2099 E1_1 = dWdD * ( t * E10 - E )100 E1_2 = dWdD * ( - t * E10 - E )101 E2_1 = dWdD * ( E + t * E20 )102 E2_2 = dWdD * ( E - t * E20 )111 real(c_double) :: D1, D2, t, dWdD local144 dWdD = 3.0d+00 * t * ( t - 1.0d+00 ) / TPMC3145 E1_1 = dWdD * ( E10 - E )146 E1_2 = dWdD * ( - E10 - E )147 E2_1 = dWdD * ( E + E20 )[all …]