Lines Matching refs:sx
15 /* Subroutine */ int srotm_(integer *n, real *sx, integer *incx, real *sy,
43 /* (SX**T) , WHERE **T INDICATES TRANSPOSE. THE ELEMENTS OF SX ARE IN */
46 /* SX(LX+I*INCX), I = 0 TO N-1, WHERE LX = 1 IF INCX .GE. 0, ELSE */
64 /* SX (input/output) REAL array, dimension N */
68 /* storage spacing between elements of SX */
91 --sx;
118 w = sx[i__];
120 sx[i__] = w + z__ * sh12;
131 w = sx[i__];
133 sx[i__] = w * sh11 + z__;
146 w = sx[i__];
148 sx[i__] = w * sh11 + z__ * sh12;
175 w = sx[kx];
177 sx[kx] = w + z__ * sh12;
189 w = sx[kx];
191 sx[kx] = w * sh11 + z__;
205 w = sx[kx];
207 sx[kx] = w * sh11 + z__ * sh12;
