csrot man page on YellowDog

Man page or keyword search:  
man Server   18644 pages
apropos Keyword Search (all sections)
Output format
YellowDog logo
[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]
Tweet
Polarhome, production since 1999.
Member of Polarhome portal.
Based on Fawad Halim's script.
....................................................................
Vote for polarhome
Free Shell Accounts :: the biggest list on the net