void sgeco(float*,long,long,long[],float*,float[]);
void sgefsc(float*,long,long,float*,long,long,long[],
	float*,float[]);
void sgesld(float*,long,long,long[],float[]);