void divaf(double[],double[],double[],long[]);
void divao(double[],double[],double[],long[]);
void diva(double[],double[],double[],long[],long,
      void(*)(double[],double[],double[],long[]),
      void(*)(double[],double[],double[],long[]),long,long,long,long,long[]);
void divaco(long[],double[]);
void divadb(long,double[],double[],double[],long[],STRING);
void divag(double[],double[],double[],long[],long*,long*,double[],double[]);
void dmess(long[],CHAR_INT,long[],double[]);