Lines Matching refs:sh21
30 real sh11, sh12, sh21, sh22, sflag;
54 /* (SH21 SH22), (SH21 1.E0), (-1.E0 SH22), (0.E0 1.E0). */
79 /* SPARAM(3)=SH21 */
114 sh21 = sparam[3];
121 sy[i__] = w * sh21 + z__;
141 sh21 = sparam[3];
149 sy[i__] = w * sh21 + z__ * sh22;
172 sh21 = sparam[3];
178 sy[ky] = w * sh21 + z__;
201 sh21 = sparam[3];
208 sy[ky] = w * sh21 + z__ * sh22;
