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 divag(double[],double[],double[],long[],long*,long*,double[],double[]);