void sivset(long,long[],long,long,float[]);
void snlafb(long,long,float[],float[][2],
          void(*)(long,long,float[],long*,float[]),long[],long,long,float[]);
void srn2gb(float[][2],float[],float*,long[],long,long,long,
	long,long*,long*,long,float[],float[],float[],
	float[]);
void sv7scp(long,float[],float);