23 void Y(vpr_double)(R *x,
const INT n,
const char *text)
29 printf(
"null pointer\n");
36 printf (
"\n %s, adr=%p\n", text, (
void*)x);
38 for (k = 0; k < n; k++)
43 printf(
"%+.1" __FES__
",", x[k]);
53 for (k = 0; k < n; k++)
54 printf(
"%+" __FES__
",\n", x[k]);
60 void Y(vpr_complex)(C *x,
const INT n,
const char *text)
66 printf(
"\n %s, adr=%p\n", text, (
void*)x);
67 for (k = 0; k < n; k++)
72 printf(
"%+.1" __FES__
"%+.1" __FES__
"i,", CREAL(x[k]), CIMAG(x[k]));
81 for (k = 0; k < n; k++)
82 printf(
"%+" __FES__
"%+" __FES__
"i,\n", CREAL(x[k]), CIMAG(x[k]));
Internal header file for auxiliary definitions and functions.