1 #include "PRE"
2 
scaler2(real * a)3 void scaler2(real *a)
4 {
5   register real t0, t1;
6   register real u;
7 
8   u = 0.5;
9   t0 = a[0];
10   t1 = a[1];
11   t0 *= u; a[0] = t0;
12   t1 *= u; a[1] = t1;
13 }
14 
scaler4(real * a)15 void scaler4(real *a) { scalec2((complex *) a); scaler2(a); }
scaler8(real * a)16 void scaler8(real *a) { scalec4((complex *) a); scaler2(a); }
scaler16(real * a)17 void scaler16(real *a) { scalec8((complex *) a); scaler2(a); }
scaler32(real * a)18 void scaler32(real *a) { scalec16((complex *) a); scaler2(a); }
scaler64(real * a)19 void scaler64(real *a) { scalec32((complex *) a); scaler2(a); }
scaler128(real * a)20 void scaler128(real *a) { scalec64((complex *) a); scaler2(a); }
scaler256(real * a)21 void scaler256(real *a) { scalec128((complex *) a); scaler2(a); }
scaler512(real * a)22 void scaler512(real *a) { scalec256((complex *) a); scaler2(a); }
scaler1024(real * a)23 void scaler1024(real *a) { scalec512((complex *) a); scaler2(a); }
scaler2048(real * a)24 void scaler2048(real *a) { scalec1024((complex *) a); scaler2(a); }
scaler4096(real * a)25 void scaler4096(real *a) { scalec2048((complex *) a); scaler2(a); }
scaler8192(real * a)26 void scaler8192(real *a) { scalec4096((complex *) a); scaler2(a); }
27