void dprpl3(double,double,double,double,double*,double*,double*,double*,long*,long*,long*,long*,char*,char*,char*,long,long,byte[],
          long*);
void dprpl4(double,double,double*,double*,long*,long*,byte[6],long*,long*);
void dprpl5(double,double,long,byte[6],long,long,long,long,byte[]);
void ierm1(STRING,long,long,STRING,STRING,long,byte);
void ierv1(STRING,long,byte);