Home | History | Annotate | Download | only in f2c

Lines Matching full:sh11

30     real sh11, sh12, sh21, sh22, sflag;
52 /*       (SH11  SH12)    (1.E0  SH12)    (SH11  1.E0)    (1.E0  0.E0) */
78 /*     SPARAM(2)=SH11 */
126     sh11 = sparam[2];
133 	sx[i__] = w * sh11 + z__;
139     sh11 = sparam[2];
148 	sx[i__] = w * sh11 + z__ * sh12;
185     sh11 = sparam[2];
191 	sx[kx] = w * sh11 + z__;
199     sh11 = sparam[2];
207 	sx[kx] = w * sh11 + z__ * sh12;