float sdot(long,float[],long,float[],long);