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