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