void divset(long,long[],long,long,double[]);
void dnlsfu(long,long,long,double[],double[],double[],
          void(*)(long,long,long,double[],long*,double[]),long*,long,long[],long,long,double[]);
void drnsg(double*,double[],double[],double*,long[][2],long[],long,
	long,long,long,long,long,long,long,
	double[],double[]);
void dv2axy(long,double[],double,double[],double[]);
void dv7cpy(long,double[],double[]);
void dv7scl(long,double[],double,double[]);
void idsm(long,long,long,long[],long[],long[],long*,
	long*,long*,long[],long[],long[],long,long[]);