void dtgfnd(double[],double[],long[],long,double[],long*,long[],
	double[][3],long*);
void dtgget(long,long[],long[]);