void drft1(double[],byte,long,long*,double[]);