diff options
Diffstat (limited to 'src/apps/p_series.cpp')
| -rw-r--r-- | src/apps/p_series.cpp | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/src/apps/p_series.cpp b/src/apps/p_series.cpp deleted file mode 100644 index 2f668ce0..00000000 --- a/src/apps/p_series.cpp +++ /dev/null @@ -1,43 +0,0 @@ -/* print row coefficients of Tseries structure */ -#include "proj.h" -#include "proj_internal.h" -#include <stdio.h> -#include <string.h> -#define NF 20 /* length of final format string */ -#define CUT 60 /* check length of line */ - -/* FIXME: put the declaration in a header. Also used in gen_cheb.c */ -void p_series(Tseries *T, FILE *file, char *fmt); - -void p_series(Tseries *T, FILE *file, char *fmt) { - int i, j, n, L; - char format[NF+1]; - - *format = ' '; - strncpy(format + 1, fmt, NF - 3); - strcat(format, "%n"); - fprintf(file, "u: %d\n", T->mu+1); - for (i = 0; i <= T->mu; ++i) - if (T->cu[i].m) { - fprintf(file, "%d %d%n", i, T->cu[i].m, &L); - n = 0; - for (j = 0; j < T->cu[i].m; ++j) { - if ((L += n) > CUT) - fprintf(file, "\n %n", &L); - fprintf(file, format, T->cu[i].c[j], &n); - } - fputc('\n', file); - } - fprintf(file, "v: %d\n", T->mv+1); - for (i = 0; i <= T->mv; ++i) - if (T->cv[i].m) { - fprintf(file, "%d %d%n", i, T->cv[i].m, &L); - n = 0; - for (j = 0; j < T->cv[i].m; ++j) { - if ((L += n) > 60) - fprintf(file, "\n %n", &L); - fprintf(file, format, T->cv[i].c[j], &n); - } - fputc('\n', file); - } -} |
