Lines Matching full:dh22
30 doublereal dh11, dh12, dh21, dh22, dflag;
54 /* (DH21 DH22), (DH21 1.D0), (-1.D0 DH22), (0.D0 1.D0). */
80 /* DPARAM(5)=DH22 */
126 dh22 = dparam[5];
133 dy[i__] = -w + dh22 * z__;
141 dh22 = dparam[5];
148 dy[i__] = w * dh21 + z__ * dh22;
185 dh22 = dparam[5];
191 dy[ky] = -w + dh22 * z__;
201 dh22 = dparam[5];
207 dy[ky] = w * dh21 + z__ * dh22;