24 void Y(cp_complex)(C *x, C *y, INT n)
28 for (k = 0; k < n; k++)
33 void Y(cp_double)(R *x, R *y, INT n)
37 for (k = 0; k < n; k++)
42 void Y(cp_a_complex)(C *x, R a, C *y, INT n)
46 for (k = 0; k < n; k++)
51 void Y(cp_a_double)(R *x, R a, R *y, INT n)
55 for (k = 0; k < n; k++)
61 void Y(cp_w_complex)(C *x, R *w, C *y, INT n)
65 for (k = 0; k < n; k++)
70 void Y(cp_w_double)(R *x, R *w, R *y, INT n)
74 for (k = 0; k < n; k++)