void dinta(double*,double[],long[]);
void dintm(long,double*,double[],long,long[]);
void dintma(double*,double[],long[]);