Lines Matching refs:dd1
15 /* Subroutine */ int drotmg_(doublereal *dd1, doublereal *dd2, doublereal *
53 /* THE SECOND COMPONENT OF THE 2-VECTOR (DSQRT(DD1)*DX1,DSQRT(DD2)* */
68 /* OF DD1 AND DD2. ALL ACTUAL SCALING OF DATA IS DONE USING GAM. */
74 /* DD1 (input/output) DOUBLE PRECISION */
102 if (! (*dd1 < zero)) {
108 /* CASE-DD1-NONNEGATIVE */
117 dp1 = *dd1 * *dx1;
136 *dd1 /= du;
153 *dd2 = *dd1 / du;
154 *dd1 = dtemp;
166 *dd1 = zero;
198 if (! (*dd1 <= rgamsq)) {
201 if (*dd1 == zero) {
211 *dd1 *= d__1 * d__1;
218 if (! (*dd1 >= gamsq)) {
228 *dd1 /= d__1 * d__1;
