void dsortp(double[],long,long,long[]);
void dtgadj(long,long,double[],double[],long,long[],long,
	long[][4],long,long,LOGICAL32*);
double dtgang(double,double,double);
void dtgget(long,long[],long[]);
void dtggrd(double[],double[],long,long[],double[],long[],long,
	long[][4],long,long*,long[]);
void dtgput(long,long[],long[],long);
void dtgset(long,long,long,long,long,long,long,
	long[],long);
void dtgsiz(long,long*);
void dtgupd(long,long,long[],long[],long,long);