void ermsg(STRING,long,long,STRING,byte);
void ierm1(STRING,long,long,STRING,STRING,long,byte);
void suacos(float[],float[]);
void suacs(LOGICAL32,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 sugetn(long*,long*,long*,long*,long*);
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[]);