void srot(long,float[],long,float[],long,float,float);
void srotg(float*,float*,float*,float*);
void stgget(long,long[],long[]);
void stgls(float[][21],long,long,LOGICAL32*,long,float*,float*);
void stgmor(float[],float[],float[],long,long[],float[][21]);
void stgpd(float[],float[],float[],float[][2],long,long[],long,
	long[]);