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