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