void sivset(long,long[],long,long,float[]);
void snlsgu(long,long,long,float[],float[],float[],
          void(*)(long,long,long,float[],long*,float[]),
          void(*)(long,long,long,float[],long*,float[]),long*,long,long[],long,long,float[]);
void srnsg(float*,float[],float[],float*,long[][2],long[],long,
	long,long,long,long,long,long,long,
	float[],float[]);