void drot(long,double[],long,double[],long,double,double);
void drotg(double*,double*,double*,double*);
void dtgget(long,long[],long[]);
void dtgls(double[][21],long,long,LOGICAL32*,long,double*,double*);
void dtgmor(double[],double[],double[],long,long[],double[][21]);
void dtgpd(double[],double[],double[],double[][2],long,long[],long,
	long[]);