void stgfnd(float[],float[],long[],long,float[],long*,long[],
	float[][3],long*);
void stgget(long,long[],long[]);