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 sivadb(long,float[],float[],float[],long[],STRING);
void sivag(float[],float[],float[],long[],long*,long*,float[],float[]);