void scalca(long,long,long,float[],long*,float[]);
void scalcb(long,long,long,float[],long*,float[]);
void sivset(long,long[],long,long,float[]);
void snlsfb(long,long,long,float[],float[][2],float[],float[],
      void(*)(long,long,long,float[],long*,float[]),long*,long,long[],long,
      long,float[]);