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