Subroutine */
| 23865 | } /* zpotri_ */ |
| 23866 | |
| 23867 | /* Subroutine */ int zpotrs_(char *uplo, integer *n, integer *nrhs, |
| 23868 | doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, |
| 23869 | integer *info) |
| 23870 | { |
| 23871 | /* System generated locals */ |
| 23872 | integer a_dim1, a_offset, b_dim1, b_offset, i__1; |
| 23873 | |
| 23874 | /* Local variables */ |
| 23875 | extern logical lsame_(char *, char *); |
| 23876 | static logical upper; |
| 23877 | extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, |
| 23878 | integer *, integer *, doublecomplex *, doublecomplex *, integer *, |
| 23879 | doublecomplex *, integer *), |
| 23880 | xerbla_(char *, integer *); |
| 23881 | |
| 23882 | |
| 23883 | /* |
| 23884 | -- LAPACK routine (version 3.2) -- |
| 23885 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 23886 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 23887 | November 2006 |
| 23888 | |
| 23889 | |
| 23890 | Purpose |
| 23891 | ======= |
| 23892 | |
| 23893 | ZPOTRS solves a system of linear equations A*X = B with a Hermitian |
| 23894 | positive definite matrix A using the Cholesky factorization |
| 23895 | A = U**H*U or A = L*L**H computed by ZPOTRF. |
| 23896 | |
| 23897 | Arguments |
| 23898 | ========= |
| 23899 | |
| 23900 | UPLO (input) CHARACTER*1 |
| 23901 | = 'U': Upper triangle of A is stored; |
| 23902 | = 'L': Lower triangle of A is stored. |
| 23903 | |
| 23904 | N (input) INTEGER |
| 23905 | The order of the matrix A. N >= 0. |
| 23906 | |
| 23907 | NRHS (input) INTEGER |
| 23908 | The number of right hand sides, i.e., the number of columns |
| 23909 | of the matrix B. NRHS >= 0. |
| 23910 | |
| 23911 | A (input) COMPLEX*16 array, dimension (LDA,N) |
| 23912 | The triangular factor U or L from the Cholesky factorization |
| 23913 | A = U**H*U or A = L*L**H, as computed by ZPOTRF. |
| 23914 | |
| 23915 | LDA (input) INTEGER |
| 23916 | The leading dimension of the array A. LDA >= max(1,N). |
| 23917 | |
| 23918 | B (input/output) COMPLEX*16 array, dimension (LDB,NRHS) |
| 23919 | On entry, the right hand side matrix B. |
| 23920 | On exit, the solution matrix X. |
| 23921 | |
| 23922 | LDB (input) INTEGER |
| 23923 | The leading dimension of the array B. LDB >= max(1,N). |
| 23924 |