void slesum(float,long,float[],float*);