void devbh(double*,long,long,long*,long*,long[],double[]);
void devun(double*,long,long,double[],double[],long[]);
void ermsg(STRING,long,long,STRING,byte);