Lines Matching defs:u1
42 static void evolve(dcomplex u0[NZ][NY][NX], dcomplex u1[NZ][NY][NX],
69 static void checksum(int i, dcomplex u1[NZ][NY][NX], int d[3]);
87 c u0, u1, u2 are the main arrays in the problem.
93 c - u1 and u2 are working arrays
106 static dcomplex u1[NZ][NY][NX];
133 compute_initial_conditions(u1, dims[0]);
136 fft(1, u1, u0);
156 compute_initial_conditions(u1, dims[0]);
169 fft(1, u1, u0);
181 evolve(u0, u1, iter, indexmap, dims[0]);
192 fft(-1, u1, u2);
246 static void evolve(dcomplex u0[NZ][NY][NX], dcomplex u1[NZ][NY][NX],
253 c evolve u0 -> u1 (t time steps) in fourier space
262 crmul(u1[k][j][i], u0[k][j][i], ex[t*indexmap[k][j][i]]);
771 dcomplex u1,x11,x21;
798 u1.real = u[ku+i].real;
799 u1.imag = u[ku+i].imag;
801 u1.real = u[ku+i].real;
802 u1.imag = -u[ku+i].imag;
818 y[i22+k][j].real = u1.real * (x11real - x21real)
819 - u1.imag * (x11imag - x21imag);
820 y[i22+k][j].imag = u1.real * (x11imag - x21imag)
821 + u1.imag * (x11real - x21real);
855 static void checksum(int i, dcomplex u1[NZ][NY][NX], int d[3]) {
874 cadd(chk,chk,u1[s-zstart[0]][r-ystart[0]][q-xstart[0]]);