Home | History | Annotate | Download | only in f2c

Lines Matching full:sh11

37     real su, sp1, sp2, sq1, sq2, sh11, sh12, sh21, sh22;
59 /*       (SH11  SH12)    (1.E0  SH12)    (SH11  1.E0)    (1.E0  0.E0) */
62 /*     LOCATIONS 2-4 OF SPARAM CONTAIN SH11,SH21,SH12, AND SH22 */
86 /*     SPARAM(2)=SH11 */
151     sh11 = sp1 / sp2;
153     su = one + sh11 * sh22;
163     sh11 = zero;
182     sh11 = one;
215     sh11 /= gam;
232     sh11 *= gam;
283     sparam[2] = sh11;
287     sparam[2] = sh11;