82 double bx, by, bz, gamma, b2;
100 gamma = 1.0 / sqrt( 1 - b2 );
102 double gb2 = ( gamma - 1.0 ) / b2;
104 double gb2xy = gb2 * bx * by;
105 double gb2xz = gb2 * bx * bz;
106 double gb2yz = gb2 * by * bz;
108 double gbx = gamma * bx;
109 double gby = gamma * by;
110 double gbz = gamma * bz;
117 m_v[0] = gamma * e2 + gbx * px2 + gby * py2 + gbz * pz2;
119 m_v[1] = gbx * e2 + gb2 * bxx * px2 + px2 + gb2xy * py2 + gb2xz * pz2;
121 m_v[2] = gby * e2 + gb2 * byy * py2 + py2 + gb2xy * px2 + gb2yz * pz2;
123 m_v[3] = gbz * e2 + gb2 * bzz * pz2 + pz2 + gb2yz * py2 + gb2xz * px2;