void sivabu(float[],long[]);
void sivag(float[],float[],float[],long[],long*,long*,float[],
	float[]);
void sivain(float[],float[],float[],long[]);
void smess(long[],CHAR_INT,long[],float[]);
void szero(float*,float*,float*,float*,long*,float);