void scopy(long,float[],long,float[],long);
void spascl(long,float[]);
void svecp(float[],long,STRING);
void swacos(long,float[],float[]);
void swasin(long,float[],float[]);
void swatan(long,float[],float[]);
void swatn2(long,float[],float[],float[]);
void swchn(long,float[],float[]);
void swcos(long,float[],float[]);
void swcosh(long,float[],float[]);
void swdif(long,float[],float[],float[]);
void swdif1(long,float,float[],float[]);
void swexp(long,float[],float[]);
void swlog(long,float[],float[]);
void swpro(long,float[],float[],float[]);
void swpro1(long,float,float[],float[]);
void swpwri(long,long,float[],float[]);
void swquo(long,float[],float[],float[]);
void swquo1(long,float,float[],float[]);
void swrchn(long,float[],float[]);
void swset(long,float,float,float[]);
void swsin(long,float[],float[]);
void swsinh(long,float[],float[]);
void swsqrt(long,float[],float[]);
void swsum(long,float[],float[],float[]);
void swsum1(long,float,float[],float[]);
void swtan(long,float[],float[]);
void swtanh(long,float[],float[]);