Lines Matching refs:dd2
15 /* Subroutine */ int drotmg_(doublereal *dd1, doublereal *dd2, doublereal * in drotmg_() argument
109 dp2 = *dd2 * *dy1; in drotmg_()
137 *dd2 /= du; in drotmg_()
152 dtemp = *dd2 / du; in drotmg_()
153 *dd2 = *dd1 / du; in drotmg_()
167 *dd2 = zero; in drotmg_()
235 if (! (abs(*dd2) <= rgamsq)) { in drotmg_()
238 if (*dd2 == zero) { in drotmg_()
248 *dd2 *= d__1 * d__1; in drotmg_()
254 if (! (abs(*dd2) >= gamsq)) { in drotmg_()
264 *dd2 /= d__1 * d__1; in drotmg_()