double dasum(long,double[],long);