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