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