void ierm1(STRING,long,long,STRING,STRING,long,byte);
void sckder(long*,long,long,float[],float[],float*,long,
	float*,long*,long*,float*);