Subroutine */
| 1035 | } /* cgemm_ */ |
| 1036 | |
| 1037 | /* Subroutine */ int cgemv_(char *trans, integer *m, integer *n, complex * |
| 1038 | alpha, complex *a, integer *lda, complex *x, integer *incx, complex * |
| 1039 | beta, complex *y, integer *incy) |
| 1040 | { |
| 1041 | /* System generated locals */ |
| 1042 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 1043 | complex q__1, q__2, q__3; |
| 1044 | |
| 1045 | /* Local variables */ |
| 1046 | static integer i__, j, ix, iy, jx, jy, kx, ky, info; |
| 1047 | static complex temp; |
| 1048 | static integer lenx, leny; |
| 1049 | extern logical lsame_(char *, char *); |
| 1050 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 1051 | static logical noconj; |
| 1052 | |
| 1053 | |
| 1054 | /* |
| 1055 | Purpose |
| 1056 | ======= |
| 1057 | |
| 1058 | CGEMV performs one of the matrix-vector operations |
| 1059 | |
| 1060 | y := alpha*A*x + beta*y, or y := alpha*A'*x + beta*y, or |
| 1061 | |
| 1062 | y := alpha*conjg( A' )*x + beta*y, |
| 1063 | |
| 1064 | where alpha and beta are scalars, x and y are vectors and A is an |
| 1065 | m by n matrix. |
| 1066 | |
| 1067 | Arguments |
| 1068 | ========== |
| 1069 | |
| 1070 | TRANS - CHARACTER*1. |
| 1071 | On entry, TRANS specifies the operation to be performed as |
| 1072 | follows: |
| 1073 | |
| 1074 | TRANS = 'N' or 'n' y := alpha*A*x + beta*y. |
| 1075 | |
| 1076 | TRANS = 'T' or 't' y := alpha*A'*x + beta*y. |
| 1077 | |
| 1078 | TRANS = 'C' or 'c' y := alpha*conjg( A' )*x + beta*y. |
| 1079 | |
| 1080 | Unchanged on exit. |
| 1081 | |
| 1082 | M - INTEGER. |
| 1083 | On entry, M specifies the number of rows of the matrix A. |
| 1084 | M must be at least zero. |
| 1085 | Unchanged on exit. |
| 1086 | |
| 1087 | N - INTEGER. |
| 1088 | On entry, N specifies the number of columns of the matrix A. |
| 1089 | N must be at least zero. |
| 1090 | Unchanged on exit. |
| 1091 | |
| 1092 | ALPHA - COMPLEX . |
| 1093 | On entry, ALPHA specifies the scalar alpha. |
| 1094 | Unchanged on exit. |