/usr/share/doc/libsuperlu-dev/examples/dreadtriple.c is in libsuperlu3-dev 3.0+20070106-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 | #include <stdio.h>
#include "dsp_defs.h"
#include "util.h"
void
dreadtriple(int *m, int *n, int *nonz,
double **nzval, int **rowind, int **colptr)
{
/*
* Output parameters
* =================
* (a,asub,xa): asub[*] contains the row subscripts of nonzeros
* in columns of matrix A; a[*] the numerical values;
* row i of A is given by a[k],k=xa[i],...,xa[i+1]-1.
*
*/
int i, j, k, jsize, lasta, nnz, nz;
double *a, *val;
int *asub, *xa, *row, *col;
/* Matrix format:
* First line: #rows, #cols, #non-zero
* Triplet in the rest of lines:
* row, col, value
*/
scanf("%d%d", n, nonz);
*m = *n;
printf("m %d, n %d, nonz %d\n", *m, *n, *nonz);
dallocateA(*n, *nonz, nzval, rowind, colptr); /* Allocate storage */
a = *nzval;
asub = *rowind;
xa = *colptr;
val = (double *) SUPERLU_MALLOC(*nonz * sizeof(double));
row = (int *) SUPERLU_MALLOC(*nonz * sizeof(int));
col = (int *) SUPERLU_MALLOC(*nonz * sizeof(int));
for (j = 0; j < *n; ++j) xa[j] = 0;
/* Read into the triplet array from a file */
for (nnz = 0, nz = 0; nnz < *nonz; ++nnz) {
scanf("%d%d%lf\n", &row[nz], &col[nz], &val[nz]);
/* Change to 0-based indexing. */
#if 0
--row[nz];
--col[nz];
#endif
if (row[nz] < 0 || row[nz] >= *m || col[nz] < 0 || col[nz] >= *n
/*|| val[nz] == 0.*/) {
fprintf(stderr, "nz %d, (%d, %d) = %e out of bound, removed\n",
nz, row[nz], col[nz], val[nz]);
exit(-1);
} else {
++xa[col[nz]];
++nz;
}
}
*nonz = nz;
/* Initialize the array of column pointers */
k = 0;
jsize = xa[0];
xa[0] = 0;
for (j = 1; j < *n; ++j) {
k += jsize;
jsize = xa[j];
xa[j] = k;
}
/* Copy the triplets into the column oriented storage */
for (nz = 0; nz < *nonz; ++nz) {
j = col[nz];
k = xa[j];
asub[k] = row[nz];
a[k] = val[nz];
++xa[j];
}
/* Reset the column pointers to the beginning of each column */
for (j = *n; j > 0; --j)
xa[j] = xa[j-1];
xa[0] = 0;
SUPERLU_FREE(val);
SUPERLU_FREE(row);
SUPERLU_FREE(col);
#ifdef CHK_INPUT
for (i = 0; i < *n; i++) {
printf("Col %d, xa %d\n", i, xa[i]);
for (k = xa[i]; k < xa[i+1]; k++)
printf("%d\t%16.10f\n", asub[k], a[k]);
}
#endif
}
void dreadrhs(int m, double *b)
{
FILE *fp, *fopen();
int i, j;
if ( !(fp = fopen("b.dat", "r")) ) {
fprintf(stderr, "dreadrhs: file does not exist\n");
exit(-1);
}
for (i = 0; i < m; ++i)
fscanf(fp, "%lf\n", &b[i]);
/*fscanf(fp, "%d%lf\n", &j, &b[i]);*/
/* readpair_(j, &b[i]);*/
fclose(fp);
}
|