Lines Matching refs:dd1
15 /* Subroutine */ int drotmg_(doublereal *dd1, doublereal *dd2, doublereal * in drotmg_() argument
102 if (! (*dd1 < zero)) { in drotmg_()
117 dp1 = *dd1 * *dx1; in drotmg_()
136 *dd1 /= du; in drotmg_()
153 *dd2 = *dd1 / du; in drotmg_()
154 *dd1 = dtemp; in drotmg_()
166 *dd1 = zero; in drotmg_()
198 if (! (*dd1 <= rgamsq)) { in drotmg_()
201 if (*dd1 == zero) { in drotmg_()
211 *dd1 *= d__1 * d__1; in drotmg_()
218 if (! (*dd1 >= gamsq)) { in drotmg_()
228 *dd1 /= d__1 * d__1; in drotmg_()