void cwofz(float[],float[],long*);