void dranua(double[],long);
void dsort(double[],long,long);
void dsortp(double[],long,long,long[]);