Home | History | Annotate | Download | only in f2c

Lines Matching full:sh12

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 */
88 /*     SPARAM(4)=SH12 */
127     sh12 = sp2 / sp1;
129     su = one - sh12 * sh21;
164     sh12 = zero;
188     sh12 = one;
216     sh12 /= gam;
233     sh12 *= gam;
280     sparam[4] = sh12;
289     sparam[4] = sh12;