CLASET initializes a 2-D array A to BETA on the diagonal and
 ALPHA on the offdiagonals.

          UPLO is CHARACTER*1
          Specifies the part of the matrix A to be set.
          = 'U':      Upper triangular part is set. The lower triangle
                      is unchanged.
          = 'L':      Lower triangular part is set. The upper triangle
                      is unchanged.
          Otherwise:  All of the matrix A is set.

          M is INTEGER
          On entry, M specifies the number of rows of A.

          N is INTEGER
          On entry, N specifies the number of columns of A.

          ALPHA is COMPLEX
          All the offdiagonal array elements are set to ALPHA.

          BETA is COMPLEX
          All the diagonal array elements are set to BETA.

          A is COMPLEX array, dimension (LDA,N)
          On entry, the m by n matrix A.
          On exit, A(i,j) = ALPHA, 1 <= i <= m, 1 <= j <= n, i.ne.j;
                   A(i,i) = BETA , 1 <= i <= min(m,n)

          LDA is INTEGER
          The leading dimension of the array A.  LDA >= max(1,M).