void derv1(STRING,double,byte);
void dnqaq(long,long,double*,long,double[],double[]);
void dnqdog(long,double[],long,double[],double[],double,double[],
	LOGICAL32*,double[],double[],LOGICAL32,double[]);
void dnqfdj(
          void(*)(long,double[],double[],double*,long*),long,double[],double[],double*,long,long*,long,long,double,double[],double[]);
void dnqqfm(long,long,double*,long,double[]);
void dnqqrf(long,long,double*,long,LOGICAL32,long[],long,
	double[],double[],double[]);
void dnqsl1(
          void(*)(long,double[],double[],double*,long*),long,double[],double[],double,long*,long*,long*,long,LOGICAL32,long,LOGICAL32,
          long,long,double,double,LOGICAL32,double*,double[],double[],double[],double[],double[],double[],double[],double*,double[]);
void dnqsol(
          void(*)(long,double[],double[],double*,long*),long,double[],double[],double,long[],double[],long);
void dnqupd(long,long,double[],long,double[],double[],double[],
	LOGICAL32*);
double dnrm2(long,double[],long);
void ierm1(STRING,long,long,STRING,STRING,long,byte);
void ierv1(STRING,long,byte);