void dcft(double[],STRING,long[],long,long*,double[]);