Subroutine */
| 3871 | } /* cscal_ */ |
| 3872 | |
| 3873 | /* Subroutine */ int csrot_(integer *n, complex *cx, integer *incx, complex * |
| 3874 | cy, integer *incy, real *c__, real *s) |
| 3875 | { |
| 3876 | /* System generated locals */ |
| 3877 | integer i__1, i__2, i__3, i__4; |
| 3878 | complex q__1, q__2, q__3; |
| 3879 | |
| 3880 | /* Local variables */ |
| 3881 | static integer i__, ix, iy; |
| 3882 | static complex ctemp; |
| 3883 | |
| 3884 | |
| 3885 | /* |
| 3886 | Purpose |
| 3887 | ======= |
| 3888 | |
| 3889 | CSROT applies a plane rotation, where the cos and sin (c and s) are real |
| 3890 | and the vectors cx and cy are complex. |
| 3891 | jack dongarra, linpack, 3/11/78. |
| 3892 | |
| 3893 | Arguments |
| 3894 | ========== |
| 3895 | |
| 3896 | N (input) INTEGER |
| 3897 | On entry, N specifies the order of the vectors cx and cy. |
| 3898 | N must be at least zero. |
| 3899 | Unchanged on exit. |
| 3900 | |
| 3901 | CX (input) COMPLEX array, dimension at least |
| 3902 | ( 1 + ( N - 1 )*abs( INCX ) ). |
| 3903 | Before entry, the incremented array CX must contain the n |
| 3904 | element vector cx. On exit, CX is overwritten by the updated |
| 3905 | vector cx. |
| 3906 | |
| 3907 | INCX (input) INTEGER |
| 3908 | On entry, INCX specifies the increment for the elements of |
| 3909 | CX. INCX must not be zero. |
| 3910 | Unchanged on exit. |
| 3911 | |
| 3912 | CY (input) COMPLEX array, dimension at least |
| 3913 | ( 1 + ( N - 1 )*abs( INCY ) ). |
| 3914 | Before entry, the incremented array CY must contain the n |
| 3915 | element vector cy. On exit, CY is overwritten by the updated |
| 3916 | vector cy. |
| 3917 | |
| 3918 | INCY (input) INTEGER |
| 3919 | On entry, INCY specifies the increment for the elements of |
| 3920 | CY. INCY must not be zero. |
| 3921 | Unchanged on exit. |
| 3922 | |
| 3923 | C (input) REAL |
| 3924 | On entry, C specifies the cosine, cos. |
| 3925 | Unchanged on exit. |
| 3926 | |
| 3927 | S (input) REAL |
| 3928 | On entry, S specifies the sine, sin. |
| 3929 | Unchanged on exit. |
| 3930 |