aboutsummaryrefslogtreecommitdiff
path: root/src/apps/p_series.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/apps/p_series.cpp')
-rw-r--r--src/apps/p_series.cpp43
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);
- }
-}