ESMF_DLASCL Subroutine

subroutine ESMF_DLASCL(TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO)

\brief \b ESMF_DLASCL \htmlonly Download ESMF_DLASCL + dependencies [TGZ] [ZIP] [TXT] \endhtmlonly \par Purpose:

\verbatim

ESMF_DLASCL multiplies the M by N real matrix A by the real scalar CTO/CFROM. This is done without over/underflow as long as the final result CTOA(I,J)/CFROM does not over/underflow. TYPE specifies that A may be full, upper triangular, lower triangular, upper Hessenberg, or banded. \endverbatim \param[in] TYPE \verbatim TYPE is CHARACTER1 TYPE indices the storage type of the input matrix. = ‘G’: A is a full matrix. = ‘L’: A is a lower triangular matrix. = ‘U’: A is an upper triangular matrix. = ‘H’: A is an upper Hessenberg matrix. = ‘B’: A is a symmetric band matrix with lower bandwidth KL and upper bandwidth KU and with the only the lower half stored. = ‘Q’: A is a symmetric band matrix with lower bandwidth KL and upper bandwidth KU and with the only the upper half stored. = ‘Z’: A is a band matrix with lower bandwidth KL and upper bandwidth KU. See DGBTRF for storage details. \endverbatim

\param[in] KL \verbatim KL is INTEGER The lower bandwidth of A. Referenced only if TYPE = ‘B’, ‘Q’ or ‘Z’. \endverbatim

\param[in] KU \verbatim KU is INTEGER The upper bandwidth of A. Referenced only if TYPE = ‘B’, ‘Q’ or ‘Z’. \endverbatim

\param[in] CFROM \verbatim CFROM is DOUBLE PRECISION \endverbatim

\param[in] CTO \verbatim CTO is DOUBLE PRECISION

     The matrix A is multiplied by CTO/CFROM. A(I,J) is computed
     without over/underflow if the final result CTO*A(I,J)/CFROM
     can be represented without over/underflow.  CFROM must be
     nonzero.

\endverbatim

\param[in] M \verbatim M is INTEGER The number of rows of the matrix A. M >= 0. \endverbatim

\param[in] N \verbatim N is INTEGER The number of columns of the matrix A. N >= 0. \endverbatim

\param[in,out] A \verbatim A is DOUBLE PRECISION array, dimension (LDA,N) The matrix to be multiplied by CTO/CFROM. See TYPE for the storage type. \endverbatim

\param[in] LDA \verbatim LDA is INTEGER The leading dimension of the array A. LDA >= max(1,M). \endverbatim

\param[out] INFO \verbatim INFO is INTEGER 0 - successful exit <0 - if INFO = -i, the i-th argument had an illegal value. \endverbatim \author Univ. of Tennessee \author Univ. of California Berkeley \author Univ. of Colorado Denver \author NAG Ltd. \date November 2011 \ingroup auxOTHERauxiliary

Arguments

Type IntentOptional Attributes Name
character(len=1) :: TYPE
integer :: KL
integer :: KU
double precision :: CFROM
double precision :: CTO
integer :: M
integer :: N
double precision :: A(LDA,*)
integer :: LDA
integer :: INFO