1 #include "PRE" 2 scaler2(real * a)3void 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)15void scaler4(real *a) { scalec2((complex *) a); scaler2(a); } scaler8(real * a)16void scaler8(real *a) { scalec4((complex *) a); scaler2(a); } scaler16(real * a)17void scaler16(real *a) { scalec8((complex *) a); scaler2(a); } scaler32(real * a)18void scaler32(real *a) { scalec16((complex *) a); scaler2(a); } scaler64(real * a)19void scaler64(real *a) { scalec32((complex *) a); scaler2(a); } scaler128(real * a)20void scaler128(real *a) { scalec64((complex *) a); scaler2(a); } scaler256(real * a)21void scaler256(real *a) { scalec128((complex *) a); scaler2(a); } scaler512(real * a)22void scaler512(real *a) { scalec256((complex *) a); scaler2(a); } scaler1024(real * a)23void scaler1024(real *a) { scalec512((complex *) a); scaler2(a); } scaler2048(real * a)24void scaler2048(real *a) { scalec1024((complex *) a); scaler2(a); } scaler4096(real * a)25void scaler4096(real *a) { scalec2048((complex *) a); scaler2(a); } scaler8192(real * a)26void scaler8192(real *a) { scalec4096((complex *) a); scaler2(a); } 27