Lines Matching refs:SY
1 SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM) argument
6 REAL SPARAM(5),SX(*),SY(*) local
75 Z = SY(I)
77 SY(I) = W*SH21 + Z
85 Z = SY(I)
87 SY(I) = -W + SH22*Z
97 Z = SY(I)
99 SY(I) = W*SH21 + Z*SH22
114 Z = SY(KY)
116 SY(KY) = W*SH21 + Z
126 Z = SY(KY)
128 SY(KY) = -W + SH22*Z
140 Z = SY(KY)
142 SY(KY) = W*SH21 + Z*SH22