Lines Matching refs:Apq
116 float *A3, Apq = A1[q], App, Aqq, Aip, Aiq, Vpi, Vqi;
118 if( fabs( Apq ) < Amax )
127 x = -Apq / sqrt( (double)Apq * Apq + (double)y * y );
134 a = 2.0 * Apq * c * s;
136 /*---- Apq annulation ----*/
266 double *A3, Apq, App, Aqq, App2, Aqq2, Aip, Aiq, Vpi, Vqi;
270 Apq = A1[q];
278 x = -Apq / sqrt( Apq * Apq + (double)y * y );
285 a = 2.0 * Apq * c * s;
287 /*---- Apq annulation ----*/
