void stgfi(float[],float[],float[],float[][2],long[],long,long[][4],
	long,long,float[],float*,LOGICAL32,float[],long*,
	float[]);
void stgrec(float[],float[],float[],float[][2],long,long[],long,
	long[][4],long,float[],long,long,float,float*,
	long,long,long,LOGICAL32,float*);