void divabu(double[],long[]);
void divag(double[],double[],double[],long[],long*,long*,double[],
	double[]);
void divain(double[],double[],double[],long[]);
void dmess(long[],CHAR_INT,long[],double[]);
void dzero(double*,double*,double*,double*,long*,double);