void dcopy(long,double[],long,double[],long);
void duatan(double[],double[]);
void duatn2(double[],double[],double[]);
void ducos(double[],double[]);
void dupro(double[],double[],double[]);
void duquo(double[],double[],double[]);
void durev(double*,double*,long,double*,long[],double*);
void duset(double,long,double[]);
void dusetn(long,long,long);
void dusin(double[],double[]);
void dusqrt(double[],double[]);
void dusum(double[],double[],double[]);