void dtgc0(double[][3],double*,LOGICAL32,double[]);
void dtgc1(LOGICAL32,double[][3],double*,LOGICAL32,double[]);
void dtgext(double[],double[],double[],double[][2],long[],long[][4],long,
	long,double[],long,long,double*,LOGICAL32,double[]);
void dtgfi(double[],double[],double[],double[][2],long[],long,long[][4],
	long,long,double[],double*,LOGICAL32,double[],long*,
	double[]);
void dtgfnd(double[],double[],long[],long,double[],long*,long[],
	double[][3],long*);