void dgefa(double*,long,long,long[],long*);
void dgefs(double*,long,long,double*,long,long,long[],
	long*);
void dgesld(double*,long,long,long[],double[]);