Subroutine */
| 23769 | } /* dlas2_ */ |
| 23770 | |
| 23771 | /* Subroutine */ int dlascl_(char *type__, integer *kl, integer *ku, |
| 23772 | doublereal *cfrom, doublereal *cto, integer *m, integer *n, |
| 23773 | doublereal *a, integer *lda, integer *info) |
| 23774 | { |
| 23775 | /* System generated locals */ |
| 23776 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 23777 | |
| 23778 | /* Local variables */ |
| 23779 | static integer i__, j, k1, k2, k3, k4; |
| 23780 | static doublereal mul, cto1; |
| 23781 | static logical done; |
| 23782 | static doublereal ctoc; |
| 23783 | extern logical lsame_(char *, char *); |
| 23784 | static integer itype; |
| 23785 | static doublereal cfrom1; |
| 23786 | |
| 23787 | static doublereal cfromc; |
| 23788 | extern logical disnan_(doublereal *); |
| 23789 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 23790 | static doublereal bignum, smlnum; |
| 23791 | |
| 23792 | |
| 23793 | /* |
| 23794 | -- LAPACK auxiliary routine (version 3.2) -- |
| 23795 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 23796 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 23797 | November 2006 |
| 23798 | |
| 23799 | |
| 23800 | Purpose |
| 23801 | ======= |
| 23802 | |
| 23803 | DLASCL multiplies the M by N real matrix A by the real scalar |
| 23804 | CTO/CFROM. This is done without over/underflow as long as the final |
| 23805 | result CTO*A(I,J)/CFROM does not over/underflow. TYPE specifies that |
| 23806 | A may be full, upper triangular, lower triangular, upper Hessenberg, |
| 23807 | or banded. |
| 23808 | |
| 23809 | Arguments |
| 23810 | ========= |
| 23811 | |
| 23812 | TYPE (input) CHARACTER*1 |
| 23813 | TYPE indices the storage type of the input matrix. |
| 23814 | = 'G': A is a full matrix. |
| 23815 | = 'L': A is a lower triangular matrix. |
| 23816 | = 'U': A is an upper triangular matrix. |
| 23817 | = 'H': A is an upper Hessenberg matrix. |
| 23818 | = 'B': A is a symmetric band matrix with lower bandwidth KL |
| 23819 | and upper bandwidth KU and with the only the lower |
| 23820 | half stored. |
| 23821 | = 'Q': A is a symmetric band matrix with lower bandwidth KL |
| 23822 | and upper bandwidth KU and with the only the upper |
| 23823 | half stored. |
| 23824 | = 'Z': A is a band matrix with lower bandwidth KL and upper |
| 23825 | bandwidth KU. |
| 23826 | |
| 23827 | KL (input) INTEGER |
| 23828 | The lower bandwidth of A. Referenced only if TYPE = 'B', |
no test coverage detected