Home | History | Annotate | Download | only in fortran

Lines Matching defs:SY

1       SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM)
6 REAL SPARAM(5),SX(*),SY(*)
18 * LX = (-INCX)*N, AND SIMILARLY FOR SY USING USING LY AND INCY.
41 * SY (input/output) REAL array, dimension N
45 * storage spacing between elements of SY
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