void dtgc0(double[][3],double*,LOGICAL32,double[]);
void dtgext(double[],double[],double[],double[][2],long[],long[][4],long,
	long,double[],long,long,double*,LOGICAL32,double[]);
void dtgget(long,long[],long[]);
void dtgqs(double[],long[],double[],double[],double[][3]);
void ierm1(STRING,long,long,STRING,STRING,long,byte);