void szero(float*,float*,float*,float*,long*,float);