void ddasdb(long,long,double,double[],double[],long[],double[],
	long[],long,double[],double[]);
void ddasf(double,double[],double[],double[],double[],long,double,
	long,double[],long[]);
void ddaslv(long,long*,double*,double[],double[],double[],
          void(*)(double*,double[],double[],double[],double[],long*,double*,long*,double[],long[]),long[],long[],double[]);
void dgbsl(double*,long,long,long,long,long[],double[],
	long);
void dgesl(double*,long,long,long[],double[],long);