Subroutine */
| 8948 | } /* clacgv_ */ |
| 8949 | |
| 8950 | /* Subroutine */ int clacp2_(char *uplo, integer *m, integer *n, real *a, |
| 8951 | integer *lda, complex *b, integer *ldb) |
| 8952 | { |
| 8953 | /* System generated locals */ |
| 8954 | integer a_dim1, a_offset, b_dim1, b_offset, i__1, i__2, i__3, i__4; |
| 8955 | |
| 8956 | /* Local variables */ |
| 8957 | static integer i__, j; |
| 8958 | extern logical lsame_(char *, char *); |
| 8959 | |
| 8960 | |
| 8961 | /* |
| 8962 | -- LAPACK auxiliary routine (version 3.2) -- |
| 8963 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 8964 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 8965 | November 2006 |
| 8966 | |
| 8967 | |
| 8968 | Purpose |
| 8969 | ======= |
| 8970 | |
| 8971 | CLACP2 copies all or part of a real two-dimensional matrix A to a |
| 8972 | complex matrix B. |
| 8973 | |
| 8974 | Arguments |
| 8975 | ========= |
| 8976 | |
| 8977 | UPLO (input) CHARACTER*1 |
| 8978 | Specifies the part of the matrix A to be copied to B. |
| 8979 | = 'U': Upper triangular part |
| 8980 | = 'L': Lower triangular part |
| 8981 | Otherwise: All of the matrix A |
| 8982 | |
| 8983 | M (input) INTEGER |
| 8984 | The number of rows of the matrix A. M >= 0. |
| 8985 | |
| 8986 | N (input) INTEGER |
| 8987 | The number of columns of the matrix A. N >= 0. |
| 8988 | |
| 8989 | A (input) REAL array, dimension (LDA,N) |
| 8990 | The m by n matrix A. If UPLO = 'U', only the upper trapezium |
| 8991 | is accessed; if UPLO = 'L', only the lower trapezium is |
| 8992 | accessed. |
| 8993 | |
| 8994 | LDA (input) INTEGER |
| 8995 | The leading dimension of the array A. LDA >= max(1,M). |
| 8996 | |
| 8997 | B (output) COMPLEX array, dimension (LDB,N) |
| 8998 | On exit, B = A in the locations specified by UPLO. |
| 8999 | |
| 9000 | LDB (input) INTEGER |
| 9001 | The leading dimension of the array B. LDB >= max(1,M). |
| 9002 | |
| 9003 | ===================================================================== |
| 9004 | */ |
| 9005 | |
| 9006 | |
| 9007 | /* Parameter adjustments */ |