NAME

       ZDROT - ZDROT

總覽 SYNOPSIS

       SUBROUTINE ZDROT( N, CX, INCX, CY, INCY, C, S )

           INTEGER       INCX, INCY, N

           DOUBLE        PRECISION C, S

           COMPLEX*16    CX( * ), CY( * )

           INTEGER       I, IX, IY

           COMPLEX*16    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            CONTINUE

           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

PURPOSE

[中文版維護人]

       姓名 <email>

[中文版最新更新]

       yyyy.mm.dd

《中國linux論壇man手冊頁翻譯計劃》:

       http://cmpp.linuxforum.net

跋

       本頁面中文版由中文 man 手冊頁計劃提供。
       中文 man 手冊頁計劃：https://github.com/man-pages-zh/manpages-zh

                                                                                         ZDROT(3)