void da7sst(long[],long,long,double[]);
void dd7mlp(long,double[],double[],double[],long);
double dd7tpr(long,double[],double[]);
void dd7upd(double[],double*,long[],long,long,long,long,
	long,long,long,double[]);
void df7dhb(double[][2],double[],double[],long*,long[],long,long,
	long,double[],double[]);
void dg7itb(double[][2],double[],double[],long[],long,long,long,
	long,double[],double[],double[]);
void dg7qsb(double[][2],double[],double[],double[],long[],long[],long[],
	long*,double[],long,long,long*,long,double*,
	double[],double[],double[],double[],double[],double[]);
void dg7qts(double[],double[],double[],long*,double[],long,double[],
	double[],double[]);
void dh2rfa(long,double[],double[],double,double,double);
double dh2rfg(double,double,double*,double*,double*);
void ditsum(double[],double[],long[],long,long,long,double[],
	double[]);
void divset(long,long[],long,long,double[]);
void dl7itv(long,double[],double[],double[]);
void dl7ivm(long,double[],double[],double[]);
void dl7msb(double[][2],double[],double[],long,long[],long[],long[],
	long*,double[],long,long,long*,long,double[],
	double[],double*,double[],double[],double[],double[],double[],
	double[],double[]);
void dl7mst(double[],double[],long,long[],long*,long,double[],
	double[],double[],double[],double[]);
void dl7sqr(long,double[],double[]);
void dl7tvm(long,double[],double[],double[]);
void dl7vml(long,double[],double[],double[]);
void dparck(long,double[],long[],long,long,long,double[]);
void dq7apl(long,long,long,double*,double[],long);
void dq7rad(long,long,long,double[],LOGICAL32,double[],double*,
	double[]);
void dq7rsh(long,long,LOGICAL32,double[],double[],double[]);
double dr7mdc(long);
void dr7tvm(long,long,double[],double[],double*,double[]);
double drldst(long,double[],double[],double[]);
void drn2gb(double[][2],double[],double*,long[],long,long,long,
	long,long*,long*,long,double[],double[],double[],
	double[]);
void ds7bqn(double[][2],double[],double[],long[],long[],long[],long*,
	double[],long,long*,long,long*,double[],double[],
	double[],double[],double[],double[],double[]);
void ds7dmp(long,double[],double[],double[],long);
void ds7ipr(long,long[],double[]);
void ds7lup(double[],double,long,double,double[],double[],double[],
	double[],double*,double[]);
void ds7lvm(long,double[],double[],double[]);
void dv2axy(long,double[],double,double[],double[]);
double dv2nrm(long,double[]);
void dv7cpy(long,double[],double[]);
void dv7ipr(long,long[],double[]);
void dv7scp(long,double[],double);
void dv7shf(long,long,double[]);
void dv7vmp(long,double[],double[],double[],long);
void i7copy(long,long[],long[]);
void i7pnvr(long,long[],long[]);
void i7shft(long,long,long[]);