Subroutine */
| 19963 | } /* clartg_ */ |
| 19964 | |
| 19965 | /* Subroutine */ int clascl_(char *type__, integer *kl, integer *ku, real * |
| 19966 | cfrom, real *cto, integer *m, integer *n, complex *a, integer *lda, |
| 19967 | integer *info) |
| 19968 | { |
| 19969 | /* System generated locals */ |
| 19970 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 19971 | complex q__1; |
| 19972 | |
| 19973 | /* Local variables */ |
| 19974 | static integer i__, j, k1, k2, k3, k4; |
| 19975 | static real mul, cto1; |
| 19976 | static logical done; |
| 19977 | static real ctoc; |
| 19978 | extern logical lsame_(char *, char *); |
| 19979 | static integer itype; |
| 19980 | static real cfrom1; |
| 19981 | extern doublereal slamch_(char *); |
| 19982 | static real cfromc; |
| 19983 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 19984 | static real bignum; |
| 19985 | extern logical sisnan_(real *); |
| 19986 | static real smlnum; |
| 19987 | |
| 19988 | |
| 19989 | /* |
| 19990 | -- LAPACK auxiliary routine (version 3.2) -- |
| 19991 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 19992 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 19993 | November 2006 |
| 19994 | |
| 19995 | |
| 19996 | Purpose |
| 19997 | ======= |
| 19998 | |
| 19999 | CLASCL multiplies the M by N complex matrix A by the real scalar |
| 20000 | CTO/CFROM. This is done without over/underflow as long as the final |
| 20001 | result CTO*A(I,J)/CFROM does not over/underflow. TYPE specifies that |
| 20002 | A may be full, upper triangular, lower triangular, upper Hessenberg, |
| 20003 | or banded. |
| 20004 | |
| 20005 | Arguments |
| 20006 | ========= |
| 20007 | |
| 20008 | TYPE (input) CHARACTER*1 |
| 20009 | TYPE indices the storage type of the input matrix. |
| 20010 | = 'G': A is a full matrix. |
| 20011 | = 'L': A is a lower triangular matrix. |
| 20012 | = 'U': A is an upper triangular matrix. |
| 20013 | = 'H': A is an upper Hessenberg matrix. |
| 20014 | = 'B': A is a symmetric band matrix with lower bandwidth KL |
| 20015 | and upper bandwidth KU and with the only the lower |
| 20016 | half stored. |
| 20017 | = 'Q': A is a symmetric band matrix with lower bandwidth KL |
| 20018 | and upper bandwidth KU and with the only the upper |
| 20019 | half stored. |
| 20020 | = 'Z': A is a band matrix with lower bandwidth KL and upper |
| 20021 | bandwidth KU. |
| 20022 |