void dprpl2(double*,long,long,long[],long[],long[],byte[],char*,char*,char*,long,long,byte[],long*);
void dprpl3(double,double,double,double,double*,double*,double*,double*,long*,long*,long*,long*,char*,char*,char*,long,long,byte[],
          long*);