void i7copy(long,long[],long[]);
void i7pnvr(long,long[],long[]);
void i7shft(long,long,long[]);
void sa7sst(long[],long,long,float[]);
void sd7mlp(long,float[],float[],float[],long);
float sd7tpr(long,float[],float[]);
void sd7upd(float[],float*,long[],long,long,long,long,
	long,long,long,float[]);
void sf7dhb(float[][2],float[],float[],long*,long[],long,long,
	long,float[],float[]);
void sg7itb(float[][2],float[],float[],long[],long,long,long,
	long,float[],float[],float[]);
void sg7qsb(float[][2],float[],float[],float[],long[],long[],long[],
	long*,float[],long,long,long*,long,float*,
	float[],float[],float[],float[],float[],float[]);
void sg7qts(float[],float[],float[],long*,float[],long,float[],
	float[],float[]);
void sh2rfa(long,float[],float[],float,float,float);
float sh2rfg(float,float,float*,float*,float*);
void sitsum(float[],float[],long[],long,long,long,float[],
	float[]);
void sivset(long,long[],long,long,float[]);
void sl7itv(long,float[],float[],float[]);
void sl7ivm(long,float[],float[],float[]);
void sl7msb(float[][2],float[],float[],long,long[],long[],long[],
	long*,float[],long,long,long*,long,float[],
	float[],float*,float[],float[],float[],float[],float[],
	float[],float[]);
void sl7mst(float[],float[],long,long[],long*,long,float[],
	float[],float[],float[],float[]);
void sl7sqr(long,float[],float[]);
void sl7tvm(long,float[],float[],float[]);
void sl7vml(long,float[],float[],float[]);
void sparck(long,float[],long[],long,long,long,float[]);
void sq7apl(long,long,long,float*,float[],long);
void sq7rad(long,long,long,float[],LOGICAL32,float[],float*,
	float[]);
void sq7rsh(long,long,LOGICAL32,float[],float[],float[]);
float sr7mdc(long);
void sr7tvm(long,long,float[],float[],float*,float[]);
float srldst(long,float[],float[],float[]);
void srn2gb(float[][2],float[],float*,long[],long,long,long,
	long,long*,long*,long,float[],float[],float[],
	float[]);
void ss7bqn(float[][2],float[],float[],long[],long[],long[],long*,
	float[],long,long*,long,long*,float[],float[],
	float[],float[],float[],float[],float[]);
void ss7dmp(long,float[],float[],float[],long);
void ss7ipr(long,long[],float[]);
void ss7lup(float[],float,long,float,float[],float[],float[],
	float[],float*,float[]);
void ss7lvm(long,float[],float[],float[]);
void sv2axy(long,float[],float,float[],float[]);
float sv2nrm(long,float[]);
void sv7cpy(long,float[],float[]);
void sv7ipr(long,long[],float[]);
void sv7scp(long,float[],float);
void sv7shf(long,long,float[]);
void sv7vmp(long,float[],float[],float[],long);