void sgefa(float*,long,long,long[],long*);
void sgefs(float*,long,long,float*,long,long,long[],
	long*);
void sgesld(float*,long,long,long[],float[]);