Lines Matching refs:sd2
15 /* Subroutine */ int srotmg_(real *sd1, real *sd2, real *sx1, real *sy1, real in srotmg_() argument
111 sp2 = *sd2 * *sy1; in srotmg_()
139 *sd2 /= su; in srotmg_()
154 stemp = *sd2 / su; in srotmg_()
155 *sd2 = *sd1 / su; in srotmg_()
169 *sd2 = zero; in srotmg_()
237 if (! (dabs(*sd2) <= rgamsq)) { in srotmg_()
240 if (*sd2 == zero) { in srotmg_()
250 *sd2 *= r__1 * r__1; in srotmg_()
256 if (! (dabs(*sd2) >= gamsq)) { in srotmg_()
266 *sd2 /= r__1 * r__1; in srotmg_()