Lines Matching refs:E1
82 double T,T1,T2,E1[5]; variable
182 E1[1] = 1.0; in main()
183 E1[2] = -1.0; in main()
184 E1[3] = -1.0; in main()
185 E1[4] = -1.0; in main()
188 E1[1] = ( E1[1] + E1[2] + E1[3] - E1[4]) * T; in main()
189 E1[2] = ( E1[1] + E1[2] - E1[3] + E1[4]) * T; in main()
190 E1[3] = ( E1[1] - E1[2] + E1[3] + E1[4]) * T; in main()
191 E1[4] = (-E1[1] + E1[2] + E1[3] + E1[4]) * T; in main()
195 IF (JJ==II)POUT(N2,N3,N2,E1[1],E1[2],E1[3],E1[4]); in main()
204 PA(E1); in main()
207 IF (JJ==II)POUT(N3,N2,N2,E1[1],E1[2],E1[3],E1[4]); in main()
252 E1[L-1] = J + K + L; in main()
253 E1[K-1] = J * K * L; in main()
257 IF (JJ==II)POUT(N6,J,K,E1[1],E1[2],E1[3],E1[4]); in main()
301 E1[1] = 1.0; in main()
302 E1[2] = 2.0; in main()
303 E1[3] = 3.0; in main()
309 IF (JJ==II)POUT(N9,J,K,E1[1],E1[2],E1[3],E1[4]); in main()
409 E1[J] = E1[K]; in P0()
410 E1[K] = E1[L]; in P0()
411 E1[L] = E1[J]; in P0()