void ermsg(STRING,long,long,STRING,byte);
void ierm1(STRING,long,long,STRING,STRING,long,byte);
void ierv1(STRING,long,byte);
void spascl(long,float[]);
void swacos(long,float[],float[]);
void swacsi(long,float[],float[],LOGICAL32);
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[]);