void dzero(double*,double*,double*,double*,long*,double);