Home | History | Annotate | Download | only in f2c

Lines Matching refs:sh22

30     real sh11, sh12, sh21, sh22, sflag;
54 /*       (SH21  SH22),   (SH21  1.E0),   (-1.E0 SH22),   (0.E0  1.E0). */
81 /*     SPARAM(5)=SH22 */
127     sh22 = sparam[5];
134 	sy[i__] = -w + sh22 * z__;
142     sh22 = sparam[5];
149 	sy[i__] = w * sh21 + z__ * sh22;
186     sh22 = sparam[5];
192 	sy[ky] = -w + sh22 * z__;
202     sh22 = sparam[5];
208 	sy[ky] = w * sh21 + z__ * sh22;