void mess(long[],CHAR_INT,long[]);
void optchk(long[],long[],STRING);
void siva(float[],float[],float[],long[],long,
          void(*)(float[],float[],float[],long[]),
          void(*)(float[],float[],float[],long[]),long,long,long,long,long[]);
void sivaa(float[],float[],float[],long[],
          void(*)(float[],float[],float[],long[]),
          void(*)(float[],float[],float[],long[]));
void sivabu(float[],long[]);
void sivaco(long[],float[]);
void sivacr(float[],float[],long[],float[],long[]);
void sivahc(void);
void sivain(float[],float[],float[],long[]);
void sivaop(long[],float[]);
void sivapr(float[],float[],float[],long[]);
void smess(long[],CHAR_INT,long[],float[]);