float sd7tpr(long,float[],float[]);
void sq7rfh(long*,long[],long,long,long,long,float*,
	float[],long,float[]);
float sr7mdc(long);
void ss7cpr(float[],long[],long,long);
void sv2axy(long,float[],float,float[],float[]);
float sv2nrm(long,float[]);
void sv7prm(long,long[],float[]);
void sv7scl(long,float[],float,float[]);
void sv7scp(long,float[],float);
void sv7swp(long,float[],float[]);