6
/* $Log: print_mat.c,v $
7
/* Revision 1.3 2002/06/01 18:23:54 sherrill
8
/* Upgrade doxygen documentation
10
/* Revision 1.2 2002/04/19 21:48:06 sherrill
11
/* Remove some unused functions and do doxygen markup of libciomr.
13
/* Revision 1.1.1.1 2000/02/04 22:53:21 evaleev
14
/* Started PSI 3 repository
16
/* Revision 2.1 1991/06/15 18:29:43 seidl
17
/* *** empty log message ***
20
static char *rcsid = "$Id: print_mat.c,v 1.3 2002/06/01 18:23:54 sherrill Exp $";
25
** print_mat: Print a matrix a of dimensions mxn to file pointer out.
29
void print_mat(double **a, int m, int n, FILE *out)
43
for (i=ii; i <= nn; i++) fprintf(out," %5d",i);
45
for (i=0; i < m; i++) {
46
fprintf (out,"\n%5d",i+1);
47
for (j=ii-1; j < nn; j++) {
48
fprintf (out,"%12.7f",a[i][j]);