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