1 #include "PRE"
2 
r8192(register real * a)3 void r8192(register real *a)
4 {
5   rpass(a,d8192,1024);
6   r4096(a);
7   c2048((complex *)(a + 4096));
8 }
9