6
/* $Log: print_array.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:42 seidl
17
/* *** empty log message ***
20
static char *rcsid = "$Id: print_array.c,v 1.3 2002/06/01 18:23:54 sherrill Exp $";
25
** print_array: Prints a linear array a of length m to file pointer out.
29
void print_array(double *a, int m, FILE *out)
31
int ii,jj,kk,mm,nn,ll;
39
nn = kk + kk*(kk-1)/2;
44
for (i=ii; i <= mm; i++) fprintf(out," %5d",i);
46
for (i=ii; i <= m; i++) {
49
if (i2 > nn) i2 = i1+9;
50
fprintf (out,"\n%5d",i);
51
for (j=i1; j <= i2; j++) {
52
fprintf (out,"%12.7f",a[j-1]);