Subroutine */
| 9003 | } /* zlacgv_ */ |
| 9004 | |
| 9005 | /* Subroutine */ int zlacp2_(char *uplo, integer *m, integer *n, doublereal * |
| 9006 | a, integer *lda, doublecomplex *b, integer *ldb) |
| 9007 | { |
| 9008 | /* System generated locals */ |
| 9009 | integer a_dim1, a_offset, b_dim1, b_offset, i__1, i__2, i__3, i__4; |
| 9010 | |
| 9011 | /* Local variables */ |
| 9012 | static integer i__, j; |
| 9013 | extern logical lsame_(char *, char *); |
| 9014 | |
| 9015 | |
| 9016 | /* |
| 9017 | -- LAPACK auxiliary routine (version 3.2) -- |
| 9018 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 9019 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 9020 | November 2006 |
| 9021 | |
| 9022 | |
| 9023 | Purpose |
| 9024 | ======= |
| 9025 | |
| 9026 | ZLACP2 copies all or part of a real two-dimensional matrix A to a |
| 9027 | complex matrix B. |
| 9028 | |
| 9029 | Arguments |
| 9030 | ========= |
| 9031 | |
| 9032 | UPLO (input) CHARACTER*1 |
| 9033 | Specifies the part of the matrix A to be copied to B. |
| 9034 | = 'U': Upper triangular part |
| 9035 | = 'L': Lower triangular part |
| 9036 | Otherwise: All of the matrix A |
| 9037 | |
| 9038 | M (input) INTEGER |
| 9039 | The number of rows of the matrix A. M >= 0. |
| 9040 | |
| 9041 | N (input) INTEGER |
| 9042 | The number of columns of the matrix A. N >= 0. |
| 9043 | |
| 9044 | A (input) DOUBLE PRECISION array, dimension (LDA,N) |
| 9045 | The m by n matrix A. If UPLO = 'U', only the upper trapezium |
| 9046 | is accessed; if UPLO = 'L', only the lower trapezium is |
| 9047 | accessed. |
| 9048 | |
| 9049 | LDA (input) INTEGER |
| 9050 | The leading dimension of the array A. LDA >= max(1,M). |
| 9051 | |
| 9052 | B (output) COMPLEX*16 array, dimension (LDB,N) |
| 9053 | On exit, B = A in the locations specified by UPLO. |
| 9054 | |
| 9055 | LDB (input) INTEGER |
| 9056 | The leading dimension of the array B. LDB >= max(1,M). |
| 9057 | |
| 9058 | ===================================================================== |
| 9059 | */ |
| 9060 | |
| 9061 | |
| 9062 | /* Parameter adjustments */ |