--- 
:name: dlaset
:md5sum: c2f6317581bca79e8eb4cd9e8db8f3c7
:category: :subroutine
:arguments: 
- uplo: 
    :type: char
    :intent: input
- m: 
    :type: integer
    :intent: input
- n: 
    :type: integer
    :intent: input
- alpha: 
    :type: doublereal
    :intent: input
- beta: 
    :type: doublereal
    :intent: input
- a: 
    :type: doublereal
    :intent: input/output
    :dims: 
    - lda
    - n
- lda: 
    :type: integer
    :intent: input
:substitutions: {}

:fortran_help: "      SUBROUTINE DLASET( UPLO, M, N, ALPHA, BETA, A, LDA )\n\n\
  *  Purpose\n\
  *  =======\n\
  *\n\
  *  DLASET initializes an m-by-n matrix A to BETA on the diagonal and\n\
  *  ALPHA on the offdiagonals.\n\
  *\n\n\
  *  Arguments\n\
  *  =========\n\
  *\n\
  *  UPLO    (input) CHARACTER*1\n\
  *          Specifies the part of the matrix A to be set.\n\
  *          = 'U':      Upper triangular part is set; the strictly lower\n\
  *                      triangular part of A is not changed.\n\
  *          = 'L':      Lower triangular part is set; the strictly upper\n\
  *                      triangular part of A is not changed.\n\
  *          Otherwise:  All of the matrix A is set.\n\
  *\n\
  *  M       (input) INTEGER\n\
  *          The number of rows of the matrix A.  M >= 0.\n\
  *\n\
  *  N       (input) INTEGER\n\
  *          The number of columns of the matrix A.  N >= 0.\n\
  *\n\
  *  ALPHA   (input) DOUBLE PRECISION\n\
  *          The constant to which the offdiagonal elements are to be set.\n\
  *\n\
  *  BETA    (input) DOUBLE PRECISION\n\
  *          The constant to which the diagonal elements are to be set.\n\
  *\n\
  *  A       (input/output) DOUBLE PRECISION array, dimension (LDA,N)\n\
  *          On exit, the leading m-by-n submatrix of A is set as follows:\n\
  *\n\
  *          if UPLO = 'U', A(i,j) = ALPHA, 1<=i<=j-1, 1<=j<=n,\n\
  *          if UPLO = 'L', A(i,j) = ALPHA, j+1<=i<=m, 1<=j<=n,\n\
  *          otherwise,     A(i,j) = ALPHA, 1<=i<=m, 1<=j<=n, i.ne.j,\n\
  *\n\
  *          and, for all UPLO, A(i,i) = BETA, 1<=i<=min(m,n).\n\
  *\n\
  *  LDA     (input) INTEGER\n\
  *          The leading dimension of the array A.  LDA >= max(1,M).\n\
  *\n\n\
  * =====================================================================\n\
  *\n\
  *     .. Local Scalars ..\n      INTEGER            I, J\n\
  *     ..\n\
  *     .. External Functions ..\n      LOGICAL            LSAME\n      EXTERNAL           LSAME\n\
  *     ..\n\
  *     .. Intrinsic Functions ..\n      INTRINSIC          MIN\n\
  *     ..\n"
