void ierm1(STRING,long,long,STRING,STRING,long,byte);
void stgc0(float[][3],float*,LOGICAL32,float[]);
void stgext(float[],float[],float[],float[][2],long[],long[][4],long,
	long,float[],long,long,float*,LOGICAL32,float[]);
void stgget(long,long[],long[]);
void stgqs(float[],long[],float[],float[],float[][3]);