void dlesum(double,long,double[],double*);