void ierm1(STRING,long,long,STRING,STRING,long,byte);
void ierv1(STRING,long,byte);
void serm1(STRING,long,long,STRING,STRING,float,byte);
void serv1(STRING,float,byte);
void spfit(long,float[],float[],float[],long,LOGICAL32,LOGICAL32,
	LOGICAL32,float[],long*,float*,float*);
void srotm(long,float[],long,float[],long,float[]);
void srotmg(float*,float*,float*,float,float[]);