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