void dpolz(double[],long,double[],double*,long*);