15 /* Subroutine */ int srotm_(integer *n, real *sx, integer *incx, real *sy,   in srotm_()  argument
90     --sy;  in srotm_()
119 	z__ = sy[i__];  in srotm_()
121 	sy[i__] = w * sh21 + z__;  in srotm_()
132 	z__ = sy[i__];  in srotm_()
134 	sy[i__] = -w + sh22 * z__;  in srotm_()
147 	z__ = sy[i__];  in srotm_()
149 	sy[i__] = w * sh21 + z__ * sh22;  in srotm_()
176 	z__ = sy[ky];  in srotm_()
178 	sy[ky] = w * sh21 + z__;  in srotm_()
190 	z__ = sy[ky];  in srotm_()
192 	sy[ky] = -w + sh22 * z__;  in srotm_()
206 	z__ = sy[ky];  in srotm_()
208 	sy[ky] = w * sh21 + z__ * sh22;  in srotm_()