void derm1(STRING,long,long,STRING,STRING,double,byte);
void derv1(STRING,double,byte);
void dpfit(long,double[],double[],double[],long,LOGICAL32,LOGICAL32,
	LOGICAL32,double[],long*,double*,double*);
void drotm(long,double[],long,double[],long,double[]);
void drotmg(double*,double*,double*,double,double[]);
void ierm1(STRING,long,long,STRING,STRING,long,byte);
void ierv1(STRING,long,byte);