.TH BSset_diag 3 "12/14/1995" " " "BlockSolve95"
.SH NAME
BSset_diag \- Set the diagonal of A to a constant

.SH INPUT PARAMETERS
.PD 0
.TP
.B A 
- a sparse matrix
.PD 1
.PD 0
.TP
.B my_alpha 
- the constant
.PD 1
.PD 0
.TP
.B procinfo 
- the usual processor stuff
.PD 1

.SH OUTPUT PARAMETERS
.PD 0
.TP
.B A 
- a sparse matrix with the diagonal set to my_alpha
.PD 1

.SH RETURNS
void

Notes:  In the nonsymmetric case we set the diagonal +/-my_alpha
depending on the sign of the diagonal.

.SH SYNOPSIS
.nf
/* Set the diagonal of the matrix to my_alpha */
void BSset_diag(BSpar_mat *A, FLOAT my_alpha, BSprocinfo *procinfo)

.fi

.SH LOCATION
 BlockSolve95/src/BSset_diag.c