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