void saxpy(long,float,float[],long,float[],long);
float sdot(long,float[],long,float[],long);
void shtgen(long,long,long,long,float[],long,LOGICAL32,
	float*,float[],long,long,LOGICAL32);
float snrm2(long,float[],long);