void saxpy(long,float,float[],long,float[],long);
float sdot(long,float[],long,float[],long);
void sgbsl(float*,long,long,long,long,long[],float[],
	long);