void dsbasd(long,long,double[],double,long,double[]);
void dsbasi(long,long,double[],double,double,long*,long*,double[]);
void dsdif(long,long,double[],double[],long,double*);
void dsfind(double[],long,long,double,long*,long*);
void dsvala(long,long,double[],long,double*,double,double[]);