void sivaf(float[],float[],float[],long[]);
void sivao(float[],float[],float[],long[]);
void siva(float[],float[],float[],long[],long,
      void(*)(float[],float[],float[],long[]),
      void(*)(float[],float[],float[],long[]),long,long,long,long,long[]);
void sivaco(long[],float[]);
void sivadb(long,float[],float[],float[],long[],STRING);
void sivag(float[],float[],float[],long[],long*,long*,float[],float[]);
void smess(long[],CHAR_INT,long[],float[]);