void dtgfi(double[],double[],double[],double[][2],long[],long,long[][4],
	long,long,double[],double*,LOGICAL32,double[],long*,
	double[]);
void dtgrec(double[],double[],double[],double[][2],long,long[],long,
	long[][4],long,double[],long,long,double,double*,
	long,long,long,LOGICAL32,double*);