void sprtsv(float*,long,long,long,CHAR_INT,long,long,
	long);
void ssva(float*,long,long,long,long,float[],float[],
	long[],CHAR_INT,long,float[],float[]);
void ssvdrs(float*,long,long,long,float*,long,long,
	float[],float[]);