long isamax(long,float[],long);
float sasum(long,float[],long);
void saxpy(long,float,float[],long,float[],long);
float snrm2(long,float[],long);
void sscal(long,float,float[],long);
void sswap(long,float[],long,float[],long);