void dprpl(double,byte,byte[],long,double,double,LOGICAL32);
void dsdif(long,long,double[],double[],long,double*);
void dsfitc(byte[][5],double[],double[],double[],long,long,double[],double[],
      double*,long[],long[],double[]);
double dsval(long,long,double[],double[],double,long);
void dsvala(long,long,double[],long,double*,double,double[]);