Subroutine */
| 20069 | } /* zlartg_ */ |
| 20070 | |
| 20071 | /* Subroutine */ int zlascl_(char *type__, integer *kl, integer *ku, |
| 20072 | doublereal *cfrom, doublereal *cto, integer *m, integer *n, |
| 20073 | doublecomplex *a, integer *lda, integer *info) |
| 20074 | { |
| 20075 | /* System generated locals */ |
| 20076 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 20077 | doublecomplex z__1; |
| 20078 | |
| 20079 | /* Local variables */ |
| 20080 | static integer i__, j, k1, k2, k3, k4; |
| 20081 | static doublereal mul, cto1; |
| 20082 | static logical done; |
| 20083 | static doublereal ctoc; |
| 20084 | extern logical lsame_(char *, char *); |
| 20085 | static integer itype; |
| 20086 | static doublereal cfrom1; |
| 20087 | |
| 20088 | static doublereal cfromc; |
| 20089 | extern logical disnan_(doublereal *); |
| 20090 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 20091 | static doublereal bignum, smlnum; |
| 20092 | |
| 20093 | |
| 20094 | /* |
| 20095 | -- LAPACK auxiliary routine (version 3.2) -- |
| 20096 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 20097 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 20098 | November 2006 |
| 20099 | |
| 20100 | |
| 20101 | Purpose |
| 20102 | ======= |
| 20103 | |
| 20104 | ZLASCL multiplies the M by N complex matrix A by the real scalar |
| 20105 | CTO/CFROM. This is done without over/underflow as long as the final |
| 20106 | result CTO*A(I,J)/CFROM does not over/underflow. TYPE specifies that |
| 20107 | A may be full, upper triangular, lower triangular, upper Hessenberg, |
| 20108 | or banded. |
| 20109 | |
| 20110 | Arguments |
| 20111 | ========= |
| 20112 | |
| 20113 | TYPE (input) CHARACTER*1 |
| 20114 | TYPE indices the storage type of the input matrix. |
| 20115 | = 'G': A is a full matrix. |
| 20116 | = 'L': A is a lower triangular matrix. |
| 20117 | = 'U': A is an upper triangular matrix. |
| 20118 | = 'H': A is an upper Hessenberg matrix. |
| 20119 | = 'B': A is a symmetric band matrix with lower bandwidth KL |
| 20120 | and upper bandwidth KU and with the only the lower |
| 20121 | half stored. |
| 20122 | = 'Q': A is a symmetric band matrix with lower bandwidth KL |
| 20123 | and upper bandwidth KU and with the only the upper |
| 20124 | half stored. |
| 20125 | = 'Z': A is a band matrix with lower bandwidth KL and upper |
| 20126 | bandwidth KU. |
| 20127 | |
| 20128 | KL (input) INTEGER |