void dint1(double,double,double*,double[],long[]);
void dinta(double*,double[],long[]);