void divset(long,long[],long,long,double[]);
void dnlsfb(long,long,long,double[],double[][2],double[],double[],
          void(*)(long,long,long,double[],long*,double[]),long*,long,long[],long,long,double[]);
void drnsgb(double*,double[],double[][2],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[]);