void sivset(long,long[],long,long,float[]);
void sn2rdp(long[],long,long,float[]);
void snlagu(long,long,float[],
          void(*)(long,long,float[],long*,float[]),
          void(*)(long,long,float[],long*,float[]),long[],long,long,float[]);
void srn2g(float[],float*,long[],long,long,long,long,
	long*,long*,long,float[],float[],float[],float[]);