double dsdot(long,float[],long,float[],long);
float sdsdot(long,float,float[],long,float[],long);