csrot man page on YellowDog
[printable version]
SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S )
INTEGER INCX, INCY, N
REAL C, S
COMPLEX CX( * ), CY( * )
INTEGER I, IX, IY
COMPLEX CTEMP
IF( N.LE.0 ) RETURN
IF( INCX.EQ.1 .AND. INCY.EQ.1 ) GO TO 20
IX = 1
IY = 1
IF( INCX.LT.0 ) IX = ( ‐N+1 )*INCX + 1
IF( INCY.LT.0 ) IY = ( ‐N+1 )*INCY + 1
DO 10 I = 1, N
CTEMP = C*CX( IX ) + S*CY( IY )
CY( IY ) = C*CY( IY ) ‐ S*CX( IX )
CX( IX ) = CTEMP
IX = IX + INCX
IY = IY + INCY
10 CONTINUE
RETURN
20 DO 30 I = 1, N
CTEMP = C*CX( I ) + S*CY( I )
CY( I ) = C*CY( I ) ‐ S*CX( I )
CX( I ) = CTEMP
30 CONTINUE
RETURN
END
[top]
List of man pages available for YellowDog
Copyright (c) for man pages and the logo by the respective OS vendor.
For those who want to learn more, the polarhome community provides shell access and support.
[legal]
[privacy]
[GNU]
[policy]
[cookies]
[netiquette]
[sponsors]
[FAQ]
Polarhome, production since 1999.
Member of Polarhome portal.
Based on Fawad Halim's script.
....................................................................
|
Vote for polarhome
|