void sevbh(float*,long,long,long*,long*,long[],float[]);