void sdaslx(void(*)(),long,float*,float[],float[],float,long[],float[],float[],
      long*,float[],long,long[],long);
void sgbfa(float*,long,long,long,long,long[],long*);
void sgbsl(float*,long,long,long,long,long[],float[],long);