ESMF_DLASET Subroutine

subroutine ESMF_DLASET(UPLO, M, N, ALPHA, BETA, A, LDA)

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

\verbatim

ESMF_DLASET initializes an m-by-n matrix A to BETA on the diagonal and ALPHA on the offdiagonals. \endverbatim \param[in] UPLO \verbatim UPLO is CHARACTER*1 Specifies the part of the matrix A to be set. = ‘U’: Upper triangular part is set; the strictly lower triangular part of A is not changed. = ‘L’: Lower triangular part is set; the strictly upper triangular part of A is not changed. Otherwise: All of the matrix A is set. \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] ALPHA \verbatim ALPHA is DOUBLE PRECISION The constant to which the offdiagonal elements are to be set. \endverbatim

\param[in] BETA \verbatim BETA is DOUBLE PRECISION The constant to which the diagonal elements are to be set. \endverbatim

\param[in,out] A \verbatim A is DOUBLE PRECISION array, dimension (LDA,N) On exit, the leading m-by-n submatrix of A is set as follows:

     if UPLO = 'U', A(i,j) = ALPHA, 1<=i<=j-1, 1<=j<=n,
     if UPLO = 'L', A(i,j) = ALPHA, j+1<=i<=m, 1<=j<=n,
     otherwise,     A(i,j) = ALPHA, 1<=i<=m, 1<=j<=n, i.ne.j,

     and, for all UPLO, A(i,i) = BETA, 1<=i<=min(m,n).

\endverbatim

\param[in] LDA \verbatim LDA is INTEGER The leading dimension of the array A. LDA >= max(1,M). \endverbatim \author Univ. of Tennessee \author Univ. of California Berkeley \author Univ. of Colorado Denver \author NAG Ltd. \date November 2011 \ingroup auxOTHERauxiliary

Arguments