void delefi(double,double,double*,double*,long*);
void derm1(STRING,long,long,STRING,STRING,double,byte);
double dlnrel(double);