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