ZLASET 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*16
          All the offdiagonal array elements are set to ALPHA.

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

          A is COMPLEX*16 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).