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