Home | History | Annotate | Download | only in f2c

Lines Matching refs:sh21

37     real su, sp1, sp2, sq1, sq2, sh11, sh12, sh21, sh22;
61 /*       (SH21  SH22),   (SH21  1.E0),   (-1.E0 SH22),   (0.E0  1.E0). */
62 /*     LOCATIONS 2-4 OF SPARAM CONTAIN SH11,SH21,SH12, AND SH22 */
87 /*     SPARAM(3)=SH21 */
126     sh21 = -(*sy1) / *sx1;
129     su = one - sh12 * sh21;
165     sh21 = zero;
187     sh21 = -one;
251     sh21 /= gam;
267     sh21 *= gam;
279     sparam[3] = sh21;
288     sparam[3] = sh21;