void sbacc(float*,long,long,long*,long,long,long*,long*);
void sbsol(long,float*,long,long,long,long,float[],long,float*,long*);