float sasum(long,float[],long);
void saxpy(long,float,float[],long,float[],long);
void scopy(long,float[],long,float[],long);
void sdasf(float,float[],float[],float[],float[],long,float,
	long,float[],long[]);
void sdasls(void(*)(),long,float*,float[],float[],long[],float,
	float,float*,long*,long,long*,float[],long,
	long[],long);
void sgbfa(float*,long,long,long,long,long[],long*);
void sgbsl(float*,long,long,long,long,long[],float[],
	long);
void sgefa(float*,long,long,long[],long*);
void sgemv(byte,long,long,float,float*,long,float[],
	long,float,float[],long);
void sgesl(float*,long,long,long[],float[],long);
void sscal(long,float,float[],long);
void sswap(long,float[],long,float[],long);