Lines Matching refs:A1
106 float *V1 = V, *A1 = A;
109 for( p = 0; p < n - 1; p++, A1 += n, V1 += n )
116 float *A3, Apq = A1[q], App, Aqq, Aip, Aiq, Vpi, Vqi;
124 App = A1[p];
151 Aip = A1[i];
155 A1[i] = (float) (Aip * c - Aiq * s);
162 Aip = A1[i];
166 A1[i] = (float) (Aip * c - Aiq * s);
171 A1[p] = (float) (App * c2 + Aqq * s2 - a);
173 A1[q] = A2[p] = 0.0f;
223 double *A1 = A, *V1 = V, *A2 = A, *V2 = V;
234 for( i = 0; i < n; i++, V1 += n, A1 += n )
238 double Am = A1[j];
257 A1 = A;
259 for( p = 0; p < n - 1; p++, A1 += n, V1 += n )
268 if( fabs( A1[q] ) < Amax )
270 Apq = A1[q];
275 App = A1[p];
302 Aip = A1[i];
306 A1[i] = Aip * c - Aiq * s;
313 Aip = A1[i];
317 A1[i] = Aip * c - Aiq * s;
324 A1[p] = App2;
326 A1[q] = A2[p] = 0.0;
