void scopy(long,float[],long,float[],long);
void suacos(float[],float[]);
void suasin(float[],float[]);
void suatan(float[],float[]);
void suatn2(float[],float[],float[]);
void sucos(float[],float[]);
void sucosh(float[],float[]);
void sudif(float[],float[],float[]);
void sudif1(float,float[],float[]);
void suexp(float[],float[]);
void sulog(float[],float[]);
void supro(float[],float[],float[]);
void supro1(float,float[],float[]);
void supwri(long,float[],float[]);
void suquo(float[],float[],float[]);
void suquo1(float,float[],float[]);
void suset(float,long,float[]);
void susetn(long,long,long);
void susin(float[],float[]);
void susinh(float[],float[]);
void susqrt(float[],float[]);
void susum(float[],float[],float[]);
void susum1(float,float[],float[]);
void sutan(float[],float[]);
void sutanh(float[],float[]);