Lines Matching refs:W
56 DOUBLE PRECISION DFLAG,DH11,DH12,DH21,DH22,TWO,W,Z,ZERO local
73 W = DX(I)
75 DX(I) = W + Z*DH12
76 DY(I) = W*DH21 + Z
83 W = DX(I)
85 DX(I) = W*DH11 + Z
86 DY(I) = -W + DH22*Z
95 W = DX(I)
97 DX(I) = W*DH11 + Z*DH12
98 DY(I) = W*DH21 + Z*DH22
112 W = DX(KX)
114 DX(KX) = W + Z*DH12
115 DY(KY) = W*DH21 + Z
124 W = DX(KX)
126 DX(KX) = W*DH11 + Z
127 DY(KY) = -W + DH22*Z
138 W = DX(KX)
140 DX(KX) = W*DH11 + Z*DH12
141 DY(KY) = W*DH21 + Z*DH22