Home | History | Annotate | Download | only in f2c

Lines Matching refs:sh22

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 */
89 /*     SPARAM(5)=SH22 */
152     sh22 = *sx1 / *sy1;
153     su = one + sh11 * sh22;
166     sh22 = zero;
183     sh22 = one;
252     sh22 /= gam;
268     sh22 *= gam;
284     sparam[5] = sh22;
290     sparam[5] = sh22;