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