void idsm(long,long,long,long[],long[],long[],long*,
	long*,long*,long[],long[],long[],long,long[]);
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[]);
void srnsgb(float*,float[],float[][2],float[],float*,long[][2],long[],
	long,long,long,long,long,long,long,
	long,float[],float[]);
void sv2axy(long,float[],float,float[],float[]);
void sv7cpy(long,float[],float[]);
void sv7scl(long,float[],float,float[]);