void dtgget(long,long[],long[]);
void dtgprg(double[],double[],long,long[],long[][4],long,long);