Lines Matching refs:sd1
15 /* Subroutine */ int srotmg_(real *sd1, real *sd2, real *sx1, real *sy1, real in srotmg_() argument
104 if (! (*sd1 < zero)) { in srotmg_()
119 sp1 = *sd1 * *sx1; in srotmg_()
138 *sd1 /= su; in srotmg_()
155 *sd2 = *sd1 / su; in srotmg_()
156 *sd1 = stemp; in srotmg_()
168 *sd1 = zero; in srotmg_()
200 if (! (*sd1 <= rgamsq)) { in srotmg_()
203 if (*sd1 == zero) { in srotmg_()
213 *sd1 *= r__1 * r__1; in srotmg_()
220 if (! (*sd1 >= gamsq)) { in srotmg_()
230 *sd1 /= r__1 * r__1; in srotmg_()