void scopy(long,float[],long,float[],long);
void sdasls(void(*)(),long,float*,float[],float[],long[],float,float,float*,
      long*,long,long*,float[],long,long[],long);
void sdaslx(void(*)(),long,float*,float[],float[],float,long[],float[],float[],
      long*,float[],long,long[],long);
void srotg(float*,float*,float*,float*);