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