void dcopy(long,double[],long,double[],long);
void dinta(double*,double[],long[]);
void dintf(double*,double[],long[]);
void dintma(double*,double[],long[]);
void mess(long[],CHAR_INT,long[]);