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 ddasj(long,long*,double*,double[],double[],double[],double,double[],double[],double[],long[],double[],
          void(*)(double*,double[],double[],double[],double[],long*,double*,long*,double[],long[]),long[],long*);
void dgbfa(double*,long,long,long,long,long[],long*);
void dgefa(double*,long,long,long[],long*);
void dswap(long,double[],long,double[],long);