.TH BSsave_diag 3 "10/19/1995" " " "BlockSolve95"
.SH NAME
BSsave_diag \- Copy the diagonal of A into special storage in A

.SH INPUT PARAMETERS
.PD 0
.TP
.B A 
- a sparse matrix
.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 saved
.PD 1

.SH RETURNS
void

.SH SYNOPSIS
.nf
void BSsave_diag(BSpar_mat *A, BSprocinfo *procinfo)

.fi

.SH LOCATION
 BlockSolve95/src/BSsave_diag.c