Lines Matching refs:W
57 REAL SFLAG,SH11,SH12,SH21,SH22,TWO,W,Z,ZERO local
74 W = SX(I)
76 SX(I) = W + Z*SH12
77 SY(I) = W*SH21 + Z
84 W = SX(I)
86 SX(I) = W*SH11 + Z
87 SY(I) = -W + SH22*Z
96 W = SX(I)
98 SX(I) = W*SH11 + Z*SH12
99 SY(I) = W*SH21 + Z*SH22
113 W = SX(KX)
115 SX(KX) = W + Z*SH12
116 SY(KY) = W*SH21 + Z
125 W = SX(KX)
127 SX(KX) = W*SH11 + Z
128 SY(KY) = -W + SH22*Z
139 W = SX(KX)
141 SX(KX) = W*SH11 + Z*SH12
142 SY(KY) = W*SH21 + Z*SH22