16 	doublereal *dy, integer *incy, doublereal *dparam)  in drotm_()  argument
89     --dy;  in drotm_()
118 	z__ = dy[i__];  in drotm_()
120 	dy[i__] = w * dh21 + z__;  in drotm_()
131 	z__ = dy[i__];  in drotm_()
133 	dy[i__] = -w + dh22 * z__;  in drotm_()
146 	z__ = dy[i__];  in drotm_()
148 	dy[i__] = w * dh21 + z__ * dh22;  in drotm_()
175 	z__ = dy[ky];  in drotm_()
177 	dy[ky] = w * dh21 + z__;  in drotm_()
189 	z__ = dy[ky];  in drotm_()
191 	dy[ky] = -w + dh22 * z__;  in drotm_()
205 	z__ = dy[ky];  in drotm_()
207 	dy[ky] = w * dh21 + z__ * dh22;  in drotm_()