void scopy(long,float[],long,float[],long);
void sdasco(float*,long,long,float[],float[]);
void sdasdb(long,long,float,float[],float[],long[],float[],
	long[],long,float[],float[]);
void sdasf(float,float[],float[],float[],float[],long,float,
	long,float[],long[]);
void sdasgh(float,float,float*,float,float*,float);
void sdasin(float,float,float[],float[],long,long,float*,
	float[]);
void sdasj(long,long*,float*,float[],float[],float[],float,float[],float[],float[],long[],float[],
          void(*)(float*,float[],float[],float[],float[],long*,float*,long*,float[],long[]),long[],long*);
void sdaslv(long,long*,float*,float[],float[],float[],
          void(*)(float*,float[],float[],float[],float[],long*,float*,long*,float[],long[]),long[],long[],float[]);
float sdasnm(long,float[],float[],float[],long[]);
void sdastp(float*,float[],float[],long,long*,
          void(*)(float*,float[],float[],float[],float[],long*,float*,long*,float[],long[]),long[],float*,float[],long*,float*,float[],
          float[],float[],long[],float[],float[],float[],float[],float[],float[],long*);
float snrm2(long,float[],long);