void divset(long,long[],long,long,double[]);
void dn2rdp(long[],long,long,double[]);
void dnlafu(long,long,double[],
          void(*)(long,long,double[],long*,double[]),long[],long,long,double[]);
void drn2g(double[],double*,long[],long,long,long,long,
	long*,long*,long,double[],double[],double[],double[]);
void dv7scp(long,double[],double);