void ssortp(float[],long,long,long[]);
void stgadj(long,long,float[],float[],long,long[],long,
	long[][4],long,long,LOGICAL32*);
float stgang(float,float,float);
void stgget(long,long[],long[]);
void stggrd(float[],float[],long,long[],float[],long[],long,
	long[][4],long,long*,long[]);
void stgput(long,long[],long[],long);
void stgset(long,long,long,long,long,long,long,
	long[],long);
void stgsiz(long,long*);
void stgupd(long,long,long[],long[],long,long);