void scopy(long,float[],long,float[],long);
void suatan(float[],float[]);
void suatn2(float[],float[],float[]);
void sucos(float[],float[]);
void supro(float[],float[],float[]);
void suquo(float[],float[],float[]);
void surev(float*,float*,long,float*,long[],float*);
void suset(float,long,float[]);
void susetn(long,long,long);
void susin(float[],float[]);
void susqrt(float[],float[]);
void susum(float[],float[],float[]);