void stgc0(float[][3],float*,LOGICAL32,float[]);
void stgc1(LOGICAL32,float[][3],float*,LOGICAL32,float[]);
void stgext(float[],float[],float[],float[][2],long[],long[][4],long,
	long,float[],long,long,float*,LOGICAL32,float[]);
void stgfi(float[],float[],float[],float[][2],long[],long,long[][4],
	long,long,float[],float*,LOGICAL32,float[],long*,
	float[]);
void stgfnd(float[],float[],long[],long,float[],long*,long[],
	float[][3],long*);