Subroutine */
| 21699 | } /* clatrd_ */ |
| 21700 | |
| 21701 | /* Subroutine */ int clatrs_(char *uplo, char *trans, char *diag, char * |
| 21702 | normin, integer *n, complex *a, integer *lda, complex *x, real *scale, |
| 21703 | real *cnorm, integer *info) |
| 21704 | { |
| 21705 | /* System generated locals */ |
| 21706 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 21707 | real r__1, r__2, r__3, r__4; |
| 21708 | complex q__1, q__2, q__3, q__4; |
| 21709 | |
| 21710 | /* Local variables */ |
| 21711 | static integer i__, j; |
| 21712 | static real xj, rec, tjj; |
| 21713 | static integer jinc; |
| 21714 | static real xbnd; |
| 21715 | static integer imax; |
| 21716 | static real tmax; |
| 21717 | static complex tjjs; |
| 21718 | static real xmax, grow; |
| 21719 | extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer |
| 21720 | *, complex *, integer *); |
| 21721 | extern logical lsame_(char *, char *); |
| 21722 | extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); |
| 21723 | static real tscal; |
| 21724 | static complex uscal; |
| 21725 | static integer jlast; |
| 21726 | extern /* Complex */ VOID cdotu_(complex *, integer *, complex *, integer |
| 21727 | *, complex *, integer *); |
| 21728 | static complex csumj; |
| 21729 | extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, |
| 21730 | integer *, complex *, integer *); |
| 21731 | static logical upper; |
| 21732 | extern /* Subroutine */ int ctrsv_(char *, char *, char *, integer *, |
| 21733 | complex *, integer *, complex *, integer *), slabad_(real *, real *); |
| 21734 | extern integer icamax_(integer *, complex *, integer *); |
| 21735 | extern /* Complex */ VOID cladiv_(complex *, complex *, complex *); |
| 21736 | extern doublereal slamch_(char *); |
| 21737 | extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer |
| 21738 | *), xerbla_(char *, integer *); |
| 21739 | static real bignum; |
| 21740 | extern integer isamax_(integer *, real *, integer *); |
| 21741 | extern doublereal scasum_(integer *, complex *, integer *); |
| 21742 | static logical notran; |
| 21743 | static integer jfirst; |
| 21744 | static real smlnum; |
| 21745 | static logical nounit; |
| 21746 | |
| 21747 | |
| 21748 | /* |
| 21749 | -- LAPACK auxiliary routine (version 3.2) -- |
| 21750 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 21751 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 21752 | November 2006 |
| 21753 | |
| 21754 | |
| 21755 | Purpose |
| 21756 | ======= |
| 21757 | |
| 21758 | CLATRS solves one of the triangular systems |
no test coverage detected